Bonjour,
Je possède un tableau Excel avec des références uniques à six chiffres (de 000001 à 999999). Pour bien voir apparaitre les 0 en début de référence je met une apostrophe avant la valeur de la référence ce qui permet d'avoir 000001 au lieu de 1 d'écrit dans la cellule.
Dans le cadre d'un programme VBA je récupère les valeurs une à une des références hors il ne prend plus en compte les 0 et prend par exemple 1 au lieu de 000001. J'aimerais remédier à ce problème.
Voici une partie du code utilisé (la valeur dans test a été cherchée ultérieurement)
Dim valeur as single
For num = 1 to 10
valeur = Range("Tableau3[REF]")(num).Text
If InStr(1, test, valeur, vbTextCompare) Then
Range("Tableau3[IMAGE]")(num).Value = Range("Tableau5[IMG]")(i).Value
Exit For
End If
Next
Merci d'avance pour votre aide