VBA EXCEL - Comment faire apparaître le 0 devant un chiffre ?

Résolu/Fermé
pixissama Messages postés 20 Date d'inscription mercredi 22 janvier 2020 Statut Membre Dernière intervention 9 mars 2020 - 23 janv. 2020 à 20:45
pixissama Messages postés 20 Date d'inscription mercredi 22 janvier 2020 Statut Membre Dernière intervention 9 mars 2020 - 25 janv. 2020 à 00:05
Bonjour,
Je suis en train de créer mon formulaire et je veux que, lorsque je change la valeur d'une cbbox, l'ordi aille me chercher cette valeur dans un tableau et me rende le numéro associé (principalement ce qu'on fait avec EQUIV et INDEX). Jusque là j'ai réussi mais j'aimerais que lorsqu'il doit me rendre "8", il me rende en fait "08".

Je me doute qu'il doit y avoir une variante de Format(...) mais je sais pas laquelle...
Je vous mets mon code en dessous :

Private Sub txtbox1_Change()

Worksheets("données").Select

Dim valeur As Long

On Error GoTo pbm

valeur = Columns("H").Find(Me.txtbox1, Range("H1"), xlValues).Row
Me.codetxtbox1 = Cells(valeur, "G")
' je pensais faire quelque chose comme Format(Cells(valeur, "G"), 00) mais ça ne fonctionne pas.
Exit Sub

pbm:
Me.codetxtbox1 = ""

End Sub


Merci d'avance de votre aide !!!

2 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
Modifié le 24 janv. 2020 à 00:39
Bonjour,

Il manque les quotes (et le parent et la propriété !!!) :
Me.codetxtbox1 = Format(Worksheets("données").Cells(valeur, "G").Value, "00") 


1