incrementation d'une macro

Question

Bonjour,
 j'utilise excel 2003

j'essaie de developper la macro suivante :

Range("D133").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-1]C)"
    Range("D133").Select
    Selection.AutoFill Destination:=Range("D133:BD133"), Type:=xlFillDefault
    Range("D133:BD133").Select
    
    Range("E134").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-2]C[-1]:R[-2]C)"
    Range("E134").Select
    Selection.AutoFill Destination:=Range("E134:BD134"), Type:=xlFillDefault
    Range("E134:BD134").Select
    
    Range("F135").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-3]C[-2]:R[-3]C)"
    Range("F135").Select
    Selection.AutoFill Destination:=Range("F135:BD135"), Type:=xlFillDefault
    Range("F135:BD135").Select

jusqu'à la cellule BD185, je ne sais pas comment faire, j'imagine que je dois utiliser un while pour incrementer les lignes mais pour les lettres: aucune idée.

Un peu d'aide ne serait pas de refus, étant donné que je n'ai jamais fait de programmation de ma vie.

Merci d'avance à tout le monde

pilas31 · Answer

Bonjour,

Je propose la macro suivante (si j'ai bien compris le principe)

Sub REMPLIR()
Dim col As Integer, lig As Integer
For col = 4 To 56
    lig = 129 + col
    Cells(lig, col).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-" & col - 3 & "]C[-" & col - 4 & "]:R[-" & col - 3 & "]C)"
    If col < 56 Then
    Cells(lig, col).Select
        Selection.AutoFill Destination:=Range(Cells(lig, col), Cells(lig, 56)), Type:=xlFillDefault
    End If
Next col
End Sub


A+

Incrementation d'une macro

1 réponse

Discussions similaires

Newsletters