Bonjour,
J'apprends grâce à vous pour les macros, un grand merci !

là je bloque sur une boucle pour une somme dynamique
Les colonnes sont de C à G
Les données sont de 13 à 25

Mon souhait :
- Créer en automatique la formule sur la ligne 26 pour les colonnes C à G
- Le nombre de ligne doit être dynamique : Il commence toujours à la ligne 13 mais je peux être amené à rajouter plusieurs lignes.

J'ai construit cette macro avec l’enregistreur, que j'ai bidouillé, mais je bloque sur la boucle (j'apprends doucement) et sur les deux condition 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
13
14
Dim L As Integer
Range("C26").Select
For L = "C" To "G"
ActiveCell.Offset(L, 1).Select
ActiveCell.FormulaR1C1 = "=SUM(R13C:R25C)"
    Range("C" & L).Select
       With Selection.Font
        .Color = -4165632
        .TintAndShade = 0
    End With
    Selection.AutoFill Destination:=Range("C" & L), Type:=xlFillDefault
    Range("C26:G26").Select
    L = L + 1
Next L
Qui aurait une idée ?

Bonne fin d'aprem

Seb