Pb "d'offset" avec la notation R1C1

Bonjour à tous,

Le but est, via une macro, insérer une formule:
- sur la feuille 4.
- qui prend en compte deux variable au moins.
- sur sur une zone comprise entre les colonnes A--> "dernière colonne avec du texte" et entre les lignes 7 et 9.
-la ligne totale et la ligne 10.

En gros ça donne ça mais j'ai un problème de décalage:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() Dim x As Integer Dim y As Integer x = 7 y = 1 While Sheets("feuil4").Cells(x, y).Value <> "" Sheets("feuil4").Cells(x + 3, y).FormulaR1C1 = "= SUM(R[" & x & "]C[" & y & "]_ :R[" & x + 2 & "]C[" & y & "])" y = y + 1 Wend End Sub

---

Pour chaque incrémentation de "y" la zone de calcul se décale d'une colonne supplémentaire puis deux puis trois... et le calcul (du a "x") s'effectue entre les lignes 17 et 19.

J'ai comprit que c'était du à l'initialisation des variables "x" et "y" mais je ne comprend pas pourquoi en écrivant sous la syntaxe R1C1 ça décale comme ça et si il y a pas un autre moyen ?

Merci a tous pour vos réponses! :)

Bonjour,

Dans un premier temps, x=7 et y=1
Donc

Code:

---

"= SUM(R[" & x & "]C[" & y & "]:R[" & x + 2 & "]C[" & y & "])"

---

revient à

Code:

---

"=SUM(R[7]C[1]:R[9]C[1])"

---

ce qui revient à dire
cells(Ligne, Colonne)=SOMME(Ligne+7Colonne+1:Ligne+9Colonne+1)

Si j'ai bien compris ce que tu cherches à obtenir, tu dois l'écrire comme ceci

Code:

---

"= SUM(R" & x & "C" & y & ":R" & x + 2 & "C" & y & ")"

---

Salut Sarune et le forum
R1C1 est une notation avec les colonnes en numérique
Quand tu écrit : R1C1 : ça revient à écrire $A$1
si tu écris en B5 :
=R1C1 : ça revient à écrire : la ligne de numéro 1 et la colonne de numéro 1 : =$A$1 en notation par défaut
=R[1]C[1] revient à écire : une colonne à droite, une ligne plus bas que la cellule contenant la formule : =C6

Tu mets la formule :
"= SUM(R[x]C[y]:R[x+2]C[y])"
faire la somme de la plage d'adresse y colonnes de la cellule contenant la formule, de X à x+2 lignes de la cellule contenant la formule

il faudrais peut-être écrire : en adressage abolu
"= SUM(R7C" & y & ":R9C & y & ")" B10 : =somme($B$7:$B$9)
ou en relatif
"= SUM(R[-3]C:R[-1]C)" B10 : =Somme(B7:B9)

on peut employer une autre formulation si on est en français et pas en L1C1

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub test() Dim x As Integer Dim y As Integer Dim z x = 7 y = 1 With Sheets("feuil4") While .Cells(x, y).Value <> "" 'Adressage absolu '.Cells(x + 3, y).FormulaLocal = "=Somme(" & Range(Cells(x, y), _   ' Cells(x + 2, y)).Address & ")" 'Adressage relatif .Cells(x + 3, y).FormulaLocal = "=Somme(" & Range(Cells(x, y), _ Cells(x + 2, y)).Address(0, 0) & ")"   y = y + 1 Wend End With End Sub

---

On peut aussi mettre le nom de la feuille si nécessaire :
"=Somme('feuil4'!" & range...
A+

:king: It works !

Merci à vous deux je comprend mieux la notation R1C1.
En fait c'est cette notation de valeur absolu ou relative en fonction des "[]" qui m'échappait.
En tout cas merci pour votre perspicacité ! :)

Pour info, j'ai modifié mon code de la sorte en retirant juste les "[]".

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() Dim x As Integer Dim y As Integer x = 7 y = 1 While Sheets("feuil4").Cells(x, y).Value <> "" Sheets("feuil4").Cells(x + 3, y).FormulaR1C1 = "= SUM(R" & x & "C" & y & "_ :R" & x + 2 & "C" & y & ")" y = y + 1 Wend End Sub

---

Merci encore :king: