vba methode autofill

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

Code:

---

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:

---

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:

---

Range("D1:D(i-1)")

---

savez -vous comment y remédier

Merci

Je n'ai pas vérifié le reste du code mais pour ton Range + une variable, il faut écrire

Code:

---

Range("D1:D" & i - 1)

---

et tout ceci

Code:

---

1 2 3 4

Range("D1").Select ActiveCell.FormulaR1C1 = "=if(RC[-3]=RC[-2],""ok"",""false"")" Range("D1").Select Selection.AutoFill Destination:=Range("D1(i-1)"), Type:=xlFillDefault

---

Devrait pouvoir s'écrire

Code:

---

1 2	Range("D1").FormulaR1C1 = "=if(RC[-3]=RC[-2],""ok"",""false"")" Range("D1").AutoFill Destination:=Range("D1:D" & i - 1), Type:=xlFillDefault

---

à tester


les smileys apparaissent dans tes codes parce que tu n'utilises pas les bonnes balises, il faut utiliser [CODE]... (via l'icone #) et pas les balises [QUOTE] qui servent aux citations

bonjour,

merci fring ca marche
par contre comment utiliser 2 variables i et j dans Range

j'ai essayé

Code:

---

1 2	range ("B" & i ":B" & j )

---

mais ça ne marche pas du tout .

savez vous comment s'y prendre?
merci beaucoup

Hello,

le plus souvent, je procède comme ça, si ma formule est en J2

Code:

---

RANGE("J2:J" & range("A65536").End(XlUp).Row).Autofill

---

bonjour,
merci beaucoup

par contre j'ai recopié votre formule mais il y avait une erreur

j'ai rectifié en

Code:

---

1 2	Selection.AutoFill Destination:=Range("G1:G" & Range("A65536").End(xlUp).Row)

---

la formule étant en G1

et la c'est bon

merci