Différence entre range et cells pour une formule

Bonjour tout le monde

Je sais bien que le titre fait un peu simplet, mais une question me taraude depuis longtemps (sans m'empêcher de dormir rassurez-vous ;)).

Pourquoi, en étant depuis la Feuil1, la première ligne de code fonctionne et pas la deuxième ?

Code:

---

1 2 3

Sheets("Feuil2").Range("A1:A3").FormulaR1C1 = "=RC[1]+1" Sheets("Feuil2").Range(Cells(1, 3), Cells(3, 3)).FormulaR1C1 = "=RC[1]+1"

---

D'autant plus que cette deuxième ligne fonctionne quand on est sur la Feuil2.:(

En fait c'est parce que j'aimerai bien faire mes formules dans les feuilles sans avoir à y aller et quand même utiliser Cells(ligne,colonne) car c'est plus pratique pour les variables.

Bonne nuit et merci à ceux qui prendront le temps de me répondre.

Pierre

Salut
C'est normal, tu veux definir une plage de cellule se trouvant dans la feuille 2, en utilisant comme bornes, des cellules se trouvant dans la feuil1.

Il faut mettre

Code:

---

Sheets("Feuil2").Range(Sheets("Feuil2").Cells(1, 3), Sheets("Feuil2").Cells(3, 3)).FormulaR1C1 = "=RC[1]+1"

---

Autre "astuce" géniale avec Cells, c'est que tu peux nommé les colonne avec du texte

Code:

---

Sheets("Feuil2").Range(Sheets("Feuil2").Cells(1, "C"), Sheets("Feuil2").Cells(3, "C")).FormulaR1C1 = "=RC[1]+1"

---

Je trouve ca super lisible et pratique

++
Qwaz

Citation:

---

Envoyé par Qwazerty

Salut
C'est normal, tu veux definir une plage de cellule se trouvant dans la feuille 2, en utilisant comme bornes, des cellules se trouvant dans la feuil1.

Il faut mettre

Code:

---

Sheets("Feuil2").Range(Sheets("Feuil2").Cells(1, 3), Sheets("Feuil2").Cells(3, 3)).FormulaR1C1 = "=RC[1]+1"

---

---

Ah, OK, OK, OK. Ça alourdit un peu le code, mais bon je vais me laisser tenter.:P:P

Citation:

---

Autre "astuce" géniale avec Cells, c'est que tu peux nommé les colonne avec du texte

Code:

---

Sheets("Feuil2").Range(Sheets("Feuil2").Cells(1, "C"), Sheets("Feuil2").Cells(3, "C")).FormulaR1C1 = "=RC[1]+1"

---

Je trouve ca super lisible et pratique

---

Effectivement, ça aussi c'est vraiment bien.

Adopté.:lol:

Pierre

Salut
Pour alléger le code utilise un with

Code:

---

1 2 3

with Sheets("Feuil2") .Range(.Cells(1, "C"), .Cells(3, "C")).FormulaR1C1 = "=RC[1]+1" end With

---

Ou déclare une variable worksheet

Code:

---

1 2 3 4 5

Dim TheWs as worksheet   Set theWs = Sheets("Feuil2") TheWs .Range(TheWs .Cells(1, "C"), TheWs .Cells(3, "C")).FormulaR1C1 = "=RC[1]+1"

---

++
Qwaz