Récupérer les premières lettres d'un mot sous VB6?

Question

Je récupère un mot dans VB6 (depuis une cellule excel) et je veux récupérer la première lettre... sous excel c'est la fonction "gauche", mais je ne sais pas comment faire sous VB6...

Answer 1

mid marche en effet
ou left où tu as que 2 paramètres, ton mot et le nombre de caractères

Cells(2, 1).Value=Left(Cells(1, 1).Value, 1)
ou équivalent Cells(2, 1).Value=Mid(Cells(1, 1).Value, 1,1)

Mid indique que tu vas prendre à partir du milieu de mots mais comme tu indiques 1 dans ce cas il prend la première lettre

Answer 2

VBA étant en anglais, pense en anglais. Donc gauche se disant left il existe une fonction vba Left(string,length) equivalente à la fonction de feuille de calcul
GAUCHE(texte;longueur)
la fonction Mid elle correspond à la fonction de feuille de calcul STXT()

en supposant que le texte dont tu souhaites récupérer un certain nombre de caractères en partant de la gauche se trouve en A1
ton code VBA sera
si A1 = mon texte (soit 9 caractères au total, l'espace compte pour 1)
Pour les 3 premiers caractères à gauche
Left(Range("A1"),3) retourne "mon" (type de données string cad texte en français)

Si tu veux extraire les 3 caractères d'un texte en partant du 5eme
avec le même exemple
Mid(A1,5,3) retourne "tex" (type de données string)

Ci dessous une petite macro pour illustrer ce qui précède (copie la et colle la dans un module et lance la pour voir le résultat)

Sub mastring()
Range("A1") = "mon texte"
MsgBox Mid(Range("A1"), 5, 3)
MsgBox Left(Range("A1"), 3)
End Sub

Answer 3

Come ca à la voé c nu truc comme ca :

Mid("mon mot",1,1)

Sinon tu regarde l'aide sur mid