Script vba pour répéter une formule [Résolu/Fermé]

Signaler
-
 Tartempion -
Bonjour,

J'ai la formule RECHERCHEV (merci waoo40 et jejelefou) dans une macro suivante :

Range("c1").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-2],Feuil2!RC[-2]:R[4999]C[-1],Feuil2!RC[-1])"

Comment puis-je faire pour la répéter en boucle jusqu'à la première cel vide rencontrée ?

Je sais qu'il y a des milliers de topics sur les boucles mais comme chaque cas est particulier, je n'arrive pas à trouver de réponse au mien.

Merci d'avance.

Pis après je vous fous la paix.

T

3 réponses

Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 164
bonjour,

Voilà une façon de faire une boucle:
Dim i As Long
i= 1
While Range("C" & i).Value <> ""
   Range("C" & i).Select 
   '....
 i = i + 1
Wend


;o)

polux
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
433
Date d'inscription
dimanche 17 février 2008
Statut
Membre
Dernière intervention
17 octobre 2008
304
Bonjour,
tu peux, par exemple, utiliser une boucle While ... Wend avec un test sur ta colonne A (c'est-à-dire la colonne -2)
Range("C1").Activate
While ActiveCell.Offset(0, -2).Value <> ""
    ActiveCell.FormulaR1C1 = "=....."
    ActiveCell.Offset(1, 0).Activate
Wend

I.
J'ai adopté la méthode Ivan-hoe.

Ca fonctionne nickel.

J'essaierais la méthode Polux 31 à tête reposée.

Faut que je remonte le temps.

Merci à vous.

T