utilisation de formulaR1C1 pour de al concatenation

bonjour,
voici ce que je cherche a faire:
j'ai dans une colonne :

colonne B
1
2
3
4
...


dans la colonne voisine je veux, dans la colonne C:
R01 'sur la meme ligne que 1
R02
R03
R04


voila pour les details, j'ai un bouton aui ajoute des lignes dans un tableau... la colonne C contient la formule "R" & B1
voila apres avoir fait ma copie, je mets dans la colonne B :
pour B4 : b3 + 1
pour B5 : b4 + 1

et dans la colonne C :

je recherche a mettre le ;formulaR1C1 qui va bien mais je galere

sinon je fais tout ca grace a un for que voici :

Code:

---

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

For idLigne = lastCellRowID To lastCellRowID - 1 + nbLigneAAjouter   ' FeuilleGestionDesRisques.Cells(idLigne, myRangeID.Column).Value = FeuilleGestionDesRisques.Cells(idLigne - 1, myRangeID.Column).Value + 1 ' compteur invisible FeuilleGestionDesRisques.Cells(idLigne, myRangeID.Column + 1).FormulaR1C1 = "=RC[-1]" ' compteur visible   'voici ce que j'ai essayé de faire (en commentant les deux lignes precedentes)   ' FeuilleGestionDesRisques.Cells(idLigne - 1, myRangeID.Column).Copy ' FeuilleGestionDesRisques.Cells(idLigne, myRangeID.Column).PasteSpecial xlPasteAllExceptBorders, xlPasteSpecialOperationAdd   ' FeuilleGestionDesRisques.Cells(idLigne - 1, myRangeID.Column + 1).Copy ' FeuilleGestionDesRisques.Cells(idLigne, myRangeID.Column + 1).PasteSpecial xlPasteFormulasAndNumberFormats, xlPasteSpecialOperationAdd     Next idLigne

---

Bonjour, Voici un ptit code qui devrai pouvoir t'aider..

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub Mise_En_Forme()   Dim nb_ligne As Integer Dim ligneDébut As Integer Dim i As Integer 'met le nombre de ligne a faire nb_ligne = 5   'Indique le numéro de la première ligne ligneDébut = 1 'Valeur pour ta première ligne de la colonne B Cells(ligneDébut, 2).Value = 1 Cells(ligneDébut, 3).FormulaR1C1 = "=RC[-1]" Cells(ligneDébut, 3).NumberFormat = "R#,#00" For i = ligneDébut + 1 To nb_ligne + ligneDébut Cells(ligneDébut, 2).FormulaR1C1 = "=R[-1]C+1" Cells(ligneDébut, 3).FormulaR1C1 = "=RC[-1]" 'la ligne suivante permet de mettre le format de cellule que tu veux, c'est a dire que tu vois R01 ou R11 ma la valeur est 1 ou 11 'le type personnalisé de format de cellule est R# #00 Cells(ligneDébut, 3).NumberFormat = "R#,#00"   'Si tu veux que R soit dans la valeur de ta cellule utilise 'Cells(ligneDébut, 3).FormulaR1C1 = "=""R"" & RC[-1]" Next i   End Sub

---

Sinon utilise directement le format de cellule personnalisé R# #00

merci, ca marche mais dans

Code:

---

Cells(ligneDébut, 2).FormulaR1C1 = "=R[-1]C+1"

---

que veut dire

Code:

---

"=R[-1]C+1"

---

?

Row - 1 (précédente)
Column + 1 (suivante).

C'est une référence relative.

merki.

Te rien.:mouarf:

Bonjour tlm,

Quelques précisions concernant l'utilisation de FormulaR1C1

Pour le décalage, cela ne fonctionne pas si on ne met pas le signe "+" ou "-" entre [] et le signe "+" est facultatif
Quelques exemples si on applique la formule en C5 :

=R[-1]C+1 --> =C4+1
=R[-1]C[+1] --> =D4
=R[-1]C[1] --> =D4
=RC[1] --> =D5
=R[-1]C --> =C4
=R2C2 --> =$B$2
=R[-3]C[-1] --> =B2
=R2C[-1] --> =B$2
=R[-3]C2 --> =$B2
.

bonjour,

Attention quand tu lis

Citation:

---

"=R[-1]C+1"

---

il faut comprendre

Citation:

---

"=R[-1]C +1"

---

c'est à dire ligne -1 meme colonne + la valeur 1

ce qui correspond à ton

Citation:

---

pour B4 : b3 + 1

---

meri à tous les deux pour ces precisions, ca devrait être plus clair maintenant...:king: