Discussion :

[MaelB]

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...

[Daniel.C]

J'ai un peu de mal à comprendre la disposition de tes données. Peux-tu mettre un classeur exemple - sans données confidentielles - en pièce jointe ?

[MaelB]

Voilà, j'ai retiré beaucoup de chose mais normalement, il reste de quoi comprendre pour toi.
J'espère que tu réussira à lire le fichier, c'est la première fois que j'utilise cette fonction...

N'oublie pas de mettre PDF Creator en imprimante par défaut sinon la macro lancera l'impression papier.

[Daniel.C]

Essaie comme ça :

Code :

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

1
2
3
4
5
6
7
8
Sub ESSAI()
    Dim Col As Integer
    With Worksheets("SYN")
        Col = .Range("2:27").Find("*", , , , xlByColumns, xlPrevious).Column
        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, Col))
    End With
End Sub

[MaelB]

Hum, ça bug... A chaque fois ça veut envoyer un rapport d'erreur et ça plante Excel...

Que le fantôme qui hante mon ordi sorte tout de suite, il est vieux mais il a pas encore rendu l'âme!!

[Daniel.C]

Quelle est ta version d'Excel ? Je n'ai pas trouvé dans le classeur la macro "ESSAI" que tu as publié ? J'ai collé la mienne dans "Module1" et je l'exécute sans problème. As-tu essayé de l'exécuter ligne à ligne (avec la touche F8) pour voir quelle ligne provoque le plantage ?