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

Question

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

Ivan-hoe · Answer

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.

Polux31 · Answer

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

Tartempion · Answer

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

Script vba pour répéter une formule

3 réponses

Discussions similaires