Discussion :

[Chewee08]

Bonjour,

Je souhaite simplement créer une boucle avec le code ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sheets("Feuil2").Range("A2").Resize(UBound(Tabl2, 1), 1) = Tabl2
    With Sheets("Feuil1")
    .Range("H2").Value = WorksheetFunction.VLookup(.Range("A2").Value, Sheets("Feuil2").Range("A2:B300"), 2, False)
    End With
    With Sheets("Feuil1")
    .Range("H3").Value = WorksheetFunction.VLookup(.Range("A3").Value, Sheets("Feuil2").Range("A2:B300"), 2, False)
    End With
    With Sheets("Feuil1")
    .Range("H4").Value = WorksheetFunction.VLookup(.Range("A4").Value, Sheets("Feuil2").Range("A2:B300"), 2, False)
    End With

Car je dois effectuer cette recherche pour 300 lignes et j'ai déjà un code volumineux j'aimerais savoir comment créer une boucle.

Merci d'avance,

[Xiirf]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Sheets("Feuil1")
    for i = 2 to 4
        .Range("H"&i).Value = WorksheetFunction.VLookup(.Range("A"&i).Value, Sheets("Feuil2").Range("A2:B300"), 2, False)
    next i
End With

[Chewee08]

Merci en revanche il me met :

erreur d'execution '1004' : Impossible de lire la propriété VLookup de la classe WorksheetFunction

C'est une erreur qui concerne ce qu'il y a dans les cellules? où il faut que je cherche du côté déclarer la variables?

[Marc-L]

Bonjour,

commencer déjà par vérifier manuellement la formule dans une cellule de la feuille de calculs !
Une fois cette formule fonctionnelle, la poster ici …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Overeath]

Bonjour !
Voici une boucle simple et facilement modifiable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub recherH()
Dim y As Long
For y = 1 To 300
    If cells(y,8) = 'ta recherche
    Then
Next y
End Sub

y correspond à ton nombre de ligne; ici 300 lignes
8 correspond à H (8eme lettre de l'alphabet)
Le programme cherche ce que tu veux de H1 à H300, tu peux maintenant en faire ce que tu veux.

N'oubliez pas de mettre les balises #code !

Cordialement,
Un aspirant à la programmation

[Marc-L]

Pour qui connait un tant soit peu le B-A-BA d'Excel une boucle est inutile
car il suffit juste d'insérer directement dans la plage de cellules la - bonne - formule !

En attendant la bonne formulation, de nombreux exemples sont déjà présents dans les discussions de ce forum …

[Overeath]

Pour qui connait un tant soit peu le B-A-BA d'Excel une boucle est inutile

Je me suis penché sur le VB il y a une semaine et la première chose que j'ai remarqué est que c'est bien plus simple qu'une formule à entrer dans une cellule et que les possibilités sont bien plus grandes.
Cependant ce serait avec joie de savoir comment pourrait être cette formule car je n'en ai aucune idée.
Les boucles sont des méthodes de bourrins je te l'accorde mais elles sont efficaces !

[Chewee08]

Alors la formule que Xiirf (merci à vous) a posté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Sheets("Feuil1")
For x = 2 To 55
.Range("H" & x).Value = WorksheetFunction.VLookup(.Range("A" & x).Value, Sheets("Feuil2").Range("A2:B300"), 2, False)
Next x
End With

fonctionne très bien, cependant dans mon code je supprime des lignes inutiles (vide) sur Feuil1 (tout les jours le nombre de lignes change et peut atteindre 300), si je dépasse 55 (le nombre de ligne sur ma Feuil1 d'aujourd'hui) j'ai donc l'erreur d'execution mentionnée sur le message au-dessus. En fin de compte pour répondre à ceci je pense qu’au lieu de dire je vais jusqu'à 300 j'aurais dû dire je vais jusqu'à la dernière ligne non vide.

Pour Overeath je vous remercie et test votre code dès que j'ai trouvé comment reformuler la parti de code de Xiirf ^^

cordialement,