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

Résolu
pixissama Messages postés 20 Date d'inscription   Statut Membre Dernière intervention   -  
pixissama Messages postés 20 Date d'inscription   Statut Membre Dernière intervention   - 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 8561 Date d'inscription   Statut Membre Dernière intervention   1 779
 
Bonjour,

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


1