tonychange
XLDnaute Occasionnel
bonjour à tous,
je souhaite afficher des "0" lors de la saisie d'un ID number par exemple 5698 je souhaite l'afficher " 005698". ce probleme a été regler grace a vous.
Je souhaite que lorque je rentre le numéro "5698" et que j'appuie sur la touche du clavier "valider" afficher 005698
je ne sais pas comment proceder
ci dessous le code mais ou fait t'il me placer pour qu'il affiche les "0" apres action de la touche valider.
merci pour votre aide
zone = "$D$11:$D$30"
For Each curCell In Range(zone).Cells
If ((Len(curCell.Text) < 8) And (curCell.Text <> vbNullString)) Then curCell.Value = "'" & String(8 - Len(curCell.Text), "0") & curCell.Text
Next curCell
je souhaite afficher des "0" lors de la saisie d'un ID number par exemple 5698 je souhaite l'afficher " 005698". ce probleme a été regler grace a vous.
Je souhaite que lorque je rentre le numéro "5698" et que j'appuie sur la touche du clavier "valider" afficher 005698
je ne sais pas comment proceder
ci dessous le code mais ou fait t'il me placer pour qu'il affiche les "0" apres action de la touche valider.
merci pour votre aide
zone = "$D$11:$D$30"
For Each curCell In Range(zone).Cells
If ((Len(curCell.Text) < 8) And (curCell.Text <> vbNullString)) Then curCell.Value = "'" & String(8 - Len(curCell.Text), "0") & curCell.Text
Next curCell