Script vba pour répéter une formule

Résolu/Fermé
Tartempion - 26 mai 2008 à 15:43
 Tartempion - 26 mai 2008 à 16:11
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
A voir également:

3 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
26 mai 2008 à 15:58
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
Ivan-hoe Messages postés 433 Date d'inscription dimanche 17 février 2008 Statut Membre Dernière intervention 17 octobre 2008 309
26 mai 2008 à 15:56
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.
0
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
0