Incrémentation de formile en VBA

Bonjour,

Si la formule est bonne teste ceci

Dim F As string
    F = "=VLOOKUP(RC2,Données!R4C2:R7C5,2,FALSE)"
    Range("J2").Formula = F
    Range("J2").AutoFill Destination:=Range("J2:I" & Range("A" & Rows.Count).End(xlUp).Row), Type:=xlFillDefault

Bonjour,

Juste au passage, votre code crée, entre autre, la formule, =RECHERCHEV($B3;Données!$B$4:$E$7;2;FAUX)

et la génère sur la plage selon la valeur de la dernière ligne non vide en colonne A et c'est tout... ! Sans provoquer de message d'erreur.

Bonsoir à vous deux et merci pour vos réponses ...

La proposition M-12 fonctionne puisque la formule est bien copier dans la bon colonne tant que la colonne A n'est pas vide mais le résultat de la formule ne s'affiche pas. Pourquoi ?????

Le Pingou:

Oui c'est exactement ça.

Bonjour,

Sans voir les données pas possibles de voir ou est le problème...!

Note: j'ai essayé de construire un fichier selon La formule et tout fonctionne correctement, les résultats s'affichent!

Je viens de déposer un classeur test, voici le lien

https://www.cjoint.com/c/LLcqT2mzTN7

J'ai créé un formule toute bete si A est vide J est vide sinon OK.

Le formule est bien incrémentée jusqu'à la dernier ligne de la colonne A, mais je n'ai pas le résultat ???

Bonjour,

La ligne de code à corriger:

 F = "=IF(RC1="""","""",""OK"")" 'Formule pour le test

doit être:

 F = "=IF($A2="""","""",""OK"")" 'Formule pour le test

Mille merci à toi ça marche ...

Bonne soirée

Mistral