Bonjour à tous,

Voilà, je ne suis pas très forte en vba (complètement nulle même), mais j'aurai besoin de passer par Autofill.
Voilà le truc.
Je dois créer, imprimer et supprimer un graphique automatiquement (ça c'est bon). Dans ce graphique, il y a une ligne pour chaque catégorie (C), une colonne pour chaque semaine (S) et deux moyennes (A et B).

Semaines 1 2 3 4
Cat1 x x
Cat2 x x
...
MoyA x x x x
MoyB x x x x

Si j'étire à l'avance les formules des moyennes, la courbe du graphique retombe vers le zéro. Aussi il me faudrait quelque chose du type:

"Si au moins une cellule est non nulle dans la zone "D2: D28" alors étirer la formule écrite en "B29" de "B29" à "D29"." Sachant que les colonnes doivent être dynamiques.

Pour le moment mon code ressemble à ça:

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
Sub ESSAI()
 
With Worksheets("SYN")
 
Dim cc As Integer 'pour colonne
Dim ll As Integer 'pour ligne
 
For cc = 2 To 5
For ll = 2 To 5
 
If Not IsEmpty(Cells(ll, cc)) Then
Range("B29").FormulaLocal = "=MOYENNE(B4;B5;B11;B12;B14;B15;B16;B17;B19;B20;B22;B26;B28)"
Range("B29").AutoFill Destination:=Range(Cells(29, 2), Cells(29, cc).FillRight)
MsgBox "Etiré jusqu'à la colonne " & cc
End If
 
Next ll
Next cc
 
End With
 
End Sub
Et je ne comprend pas pour quoi ça ne fonctionne pas...