j'ai une autre question .
le code suivant a été trouvé grâce à l'enregistreur.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
   Range("D1").Select
    ActiveCell.FormulaR1C1 = "=if(RC[-3]=RC[-2],""ok"",""false"")"
    Range("D1").Select
    Selection.AutoFill Destination:=Range("D1:D7"), Type:=xlFillDefault
et je voudrais l'appliquer à d'autres feuilles excels
je cherche alors la dernière ligne où une donné et présente pour pouvoir utiliser la méthode AUTOFILL

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
for i = 1 to 200
if cells(i,1) ="" then 
 Range("D1").Select
    ActiveCell.FormulaR1C1 = "=if(RC[-3]=RC[-2],""ok"",""false"")"
    Range("D1").Select
    Selection.AutoFill Destination:=Range("D1:D(i-1)"), Type:=xlFillDefault
mais le code se plante: je crois qu'il n'aime pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Range("D1:D(i-1)")
savez -vous comment y remédier

Merci