URGENT Mid est un projet ou une bibliothèque introuvable où le trouver???

[sechanbask]

Bonjour, j'ai un problème que je lance le commandbutton1, VBA me dit que Mid est un projet ou une bibliothèque introuvable pourtant dans l'aide je trouve tout sur mid...

 

 

Merci par anticipation

 

Dim MTextObj As AcadMText
Dim corner(0 To 2) As Double
Dim width As Double
Dim text As String
Dim entree As Double
Dim diametre As Double
Dim vitesse As Double
Dim Pins As Variant
Dim resultat As String
Dim texte As String
Dim mot As String
Dim longueur As Single
Dim premier_caractere As String
Dim le_reste As String
Dim taille As Single
Dim decalage As Single

Private Sub CommandButton2_Click()
End
End Sub
Private Sub CommandButton1_Click()

On Error GoTo gestionerreur
mot = TextBox1.text
longueur = Len(mot)
premier_caractere = Mid(mot, 1, 1)

[winfield]

Salut,

Je ne vois rien d'anormal, j'ai même testé, ça roule.

Essaye avec

premier_caractere = Right(mot, 1) 

[sechanbask]

VBA est caractériel: parfois, il faut mettre VBA. devant certaines fonctions sinon sur certains PC ça plante...

 premier_caractere = VBA.Left(mot, 1)