Macro - copier Formule

Bonjour,

Je cherche une macro toute bête : je veux que sur la colonne J, la formule "=RECHERCHEV(G192;Liste!$C$2:$D$26;2;FAUX)" soit copiée automatiquement si la case dans la colonne G est différente de vide.

Pouvez vous m'aider svp

Merci

Jules

Bonjour,

tu peux aussi ne pas passer par VBA et inscrire cette formule en colonne J :

=SI($G192<>"";RECHERCHEV($G192;Liste!$C$2:$D$26;2;FAUX);"")

(tu peux enlever la syntaxe ;"" en fin de formule, si tu veux voir apparaître FAUX

Bonjour Yoyo01000,

Merci pour ta réponse.

Mon fichier va faire plusieurs millier de lignes. Je pensais à la macro car l'avantage est que je n'ai plus à toucher à ma colonne J, alors qu'avec une formule si, je suis obligé à un moment de l'étendre

ça ne prend pas excessivement de temps d'étirer une formule !?

tu peux même l'étirer plus bas que ta dernière ligne de données puisqu'un vide de résultat de formule apparaît si rien n'est renseigné sur la ligne

à mettre dans la feuille désirée :

Private Sub Worksheet_Activate()

    Me.Range("J1").FormulaR1C1 = _
        "=IF(R[0]C7<>"""",VLOOKUP(R[0]C7,Liste!R2C3:R26C4,2,FALSE),"""")"
    Range("J1").Resize(10000).FillDown

End Sub