Je cherches =E0 =E9laborer une macro capable de compl=E9ter une=20
cha=EEne de caract=E8res avec des 0 (z=E9ro) afin que le nombre=20
de caract=E8res atteigne 10 au final.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ru-th
Salut Franck
Sub test() For Each c In Selection c.Value = c.Value & Application.Rept("0", 10 - Len(c.Value)) Next End Sub
a+ rural thierry
"Franck" a écrit dans le message de news: 25e201c3835f$478d24f0$ Bonjour,
Je cherches à élaborer une macro capable de compléter une chaîne de caractères avec des 0 (zéro) afin que le nombre de caractères atteigne 10 au final.
Quelqu'un a t-il une piste ?
Merci
Salut Franck
Sub test()
For Each c In Selection
c.Value = c.Value & Application.Rept("0", 10 - Len(c.Value))
Next
End Sub
a+
rural thierry
"Franck" <bernard@tolbiac.inserm.fr> a écrit dans le message de news:
25e201c3835f$478d24f0$a101280a@phx.gbl...
Bonjour,
Je cherches à élaborer une macro capable de compléter une
chaîne de caractères avec des 0 (zéro) afin que le nombre
de caractères atteigne 10 au final.
Sub test() For Each c In Selection c.Value = c.Value & Application.Rept("0", 10 - Len(c.Value)) Next End Sub
a+ rural thierry
"Franck" a écrit dans le message de news: 25e201c3835f$478d24f0$ Bonjour,
Je cherches à élaborer une macro capable de compléter une chaîne de caractères avec des 0 (zéro) afin que le nombre de caractères atteigne 10 au final.
