VBA - HLookup supprime le zéro devant

Version imprimable

20/10/2016, 10h56
Pix_elle

1 pièce(s) jointe(s)

VBA - HLookup supprime le zéro devant

Bonjour à tous,

Je suis actuellement en train de créer une boucle de remplissage à l'aide de la fonction HLookUp. Tout se passe bien sauf quand j'ai des zéro en premier caractère de cellule (fichier de base) : ces derniers se sauvent dans mon fichier de résultats.

Vous trouverez en pièce jointe, un exemple simplifié. En colonne A:B : données du fichier de base.
En colonne H : colonne à remplir à l'aide d'une Recherche horizontale.

J'ai essayé de formater ma colonne de résultat en "texte" avant le remplissage, mais le problème est le même.
De plus, quand je fais la formule manuelle directement sous Excel "=Rechercheh(........)", les zéros sont conservés. (colonne J)

Merci par avance de votre aide,
Bonne journée !
20/10/2016, 11h02
Marc-L

Bonjour,

c'est normal si le format de la cellule n'est pas au format texte ni dans un format spécial.

Rappel : beaucoup n'ouvrent pas les classeurs contenant des macros …

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …

Bonjour,

Essayez :

Code:

1
2
3
4
5
6
7
8
 
Sub remplissage()
    With Sheets("Feuil1")
        For i = 2 To 27
            .Cells(i, 8) = "'" & Application.HLookup(.Cells(1, 8), Range("A1:A27"), i, False)
        Next
    End With
End Sub

Cordialement.

20/10/2016, 13h41
Pix_elle

Bonjour Marc et Eric,

Eric, merci, le problème est résolu. :D