Récupérer une valeur commençant par un zéro dans une variable

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

Bonsoir,

je ne comprend pas tout, mais je dirais de prendre le problème à l'envers...
Que vous mettiez un apostrophe en début de texte afin que les "0" apparaissent dans votre liste de référence C'est une chose, mais pourquoi continuer à la faire sous VBA ? 000001 = 1 tout comme 008521 = 8521. Donc pourquoi s'embêter sous VBA, utiliser les références numériques, non ?

@ bientôt

LouReeD