Discussion :

[tyjez]

Bonjour, je viens vers vous car j'ai un soucis avec VBA pour recuperer une zonede texte independante.
En fait je souhaite récuperer un string de 6chiffres commencant par 0 hors quand je recupere mes données par VBA il me shunt tous les zero de debut de string.
Exemple: Valeur saisie 000005 valeur recupérée par vba 5
Je seche un peu pour sauvegarder mes 0 de départ.

Une idée SVP ?
PS ma variable récupérant la zone de texte est bien de type string

[LedZeppII]

Bonsoir,

Essaie en mettant @ dans la propriété format de la zone de texte.
Ça peut aider à interpréter la valeur en tant que chaîne de caractères.

A+
Christophe

[Geache]

Et si tu utilises la fonction format, tu ne peux pas arriver à tes fins ?

De mémoire, c'est un truc du genre :

MaVariableString = Format(9.4, "00000.00") ' devrait retourner, sauf erreur de ma part "00009.40".

Voici un lien sur MSDN :

http://msdn.microsoft.com/en-us/libr...ice.15%29.aspx

Geache

[PipoWIL]

Bonjour,

Si tu enrégistres une valeur texte, normalement, les zéros de tête devraient être présents.
Pour vérifier que tu as bien du texte, tu peux utiliser un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print VarType(maVariableL)

(string = 8).

Sinon, pour créer ce genre de valeur, j'ai l'habitude d'utiliser ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Var1 As Integer
Var1 = 5
Debug.Print Right("000000" & Var1, 6)