Discussion :

[halaster08]

Bonjour,
J'ai un tableau auquel on ajoute une colonne chaque trimestre
Ce tableau va récupérer ses valeurs sur une autre feuille via une formule
j'aimerais créer un bouton pour rajouter une colonne à la fin qui prenne comme formule la même que celle de la dernière colonne mais avec un décalage (c'est là que je bloque)

les formules des colonnes précédentes:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Range("X10").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('Hist_taux rec'!R[2]C[94]=0,NA(),'Hist_taux rec'!R[2]C[94])"
    Range("W10").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('Hist_taux rec'!R[2]C[89]=0,NA(),'Hist_taux rec'!R[2]C[89])"
    Range("V10").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('Hist_taux rec'!R[2]C[84]=0,NA(),'Hist_taux rec'!R[2]C[84])"
    Range("U10").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('Hist_taux rec'!R[2]C[79]=0,NA(),'Hist_taux rec'!R[2]C[79])"

Comme on peut le voir, la seul chose qui change c'est la valeur C[X] --> C[X+5] à chaque nouvelle colonne
J'aurais donc voulu savoir si c'était possible de copier de copier la formule et remplacer dedans le C[X] par C[X+5]

Merci d'avance.

[parmi]

Bonjour,

Quelque chose comme ceci peut-être ?

Code :

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

1
2
3
4
5
6
7
8
9
    Dim I As Long
    Dim Valeur As Long
 
    Valeur = 79
    For I = 21 To 24  'colonnes U à X
        Cells(10, I).FormulaR1C1 = _
            "=IF('Hist_taux rec'!R[2]C[" & Valeur & "]=0,NA(),'Hist_taux rec'!R[2]C[" & Valeur & "])"
        Valeur = Valeur + 5
    Next