Discussion :

[Pierre Dumas]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Dumas]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

Pierre

[Qwazerty]

Salut
Pour alléger le code utilise un with

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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