Discussion :

[onejock]

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 :

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

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

[mail.spam]

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

Code :

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

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

[onejock]

merci, ca marche mais dans

Code :

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

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

que veut dire

Code :

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

"=R[-1]C+1"

?

[Godzestla]

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

C'est une référence relative.

[onejock]

merki.

[Godzestla]

Te rien.