Incrementation d'une macro
elodie_madrid
Messages postés
1
Statut
Membre
-
pilas31 Messages postés 1878 Statut Contributeur -
pilas31 Messages postés 1878 Statut Contributeur -
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
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
A voir également:
- Incrementation d'une macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
1 réponse
Bonjour,
Je propose la macro suivante (si j'ai bien compris le principe)
A+
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+
