Formater une variable

cs_fio Messages postés 5 Date d'inscription jeudi 10 avril 2003 Statut Membre Dernière intervention 2 août 2003 - 10 avril 2003 à 21:49
cs_fio Messages postés 5 Date d'inscription jeudi 10 avril 2003 Statut Membre Dernière intervention 2 août 2003 - 10 avril 2003 à 22:21
Je dois extraire des données d'une zone de texte, et réafficher les 7 premières lettres dans une étiquette en éliminant les espaces, et s'il reste des espaces à la fin, les remplacer par des 0.

Par exemple:

quelle galère = quelleg
aïe = aïe0000

Pas de problèmes pour les espaces, mais je suis incapables de faire afficher les 0 à la fin.

Merci d'avance

2 réponses

stevebelgium Messages postés 180 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 7 juin 2003 1
10 avril 2003 à 22:10
Private Sub Command1_Click()

Dim test As String
Dim x As Integer

test = "aie"

If Len(test) < 7 Then
For x = Len(test) + 1 To 7
test = test & "0"
Next x
End If


MsgBox test
End Sub
0
cs_fio Messages postés 5 Date d'inscription jeudi 10 avril 2003 Statut Membre Dernière intervention 2 août 2003
10 avril 2003 à 22:21
Merci 1000 fois!
0
Rejoignez-nous