Macro de copie de cellules dans un tableau avec conditions

[xolik]

Bonjour,

Je cherche à construire une macro qui, lorsqu'on appuie sur un bouton à la fin du mois, copie les données d'un rapport en temps réel vers un tableau qui compile les données mensuelles afin de créer des graphiques. Je ne suis pas capable de transférer les données dans le bon mois selon le critère de la date...quelqu'un peut m'aider?

Voir le fichier joint.

Merci à l'avance!

 

[Staple1600]

Re : Macro de copie de cellules dans un tableau avec conditions

Bonjour



Un début de solution (ici pour le service 1)

Sub compilation()
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Sheets("Rapports Live")
Set ws2 = Sheets("Compilation-Rapports")
Dim t, i As Byte
t = ws2.Range("D10:BB10").Value
For i = 1 To 51
If Month(t(1, i)) = Month(Date) And Year(t(1, i)) = Year(Date) Then
ws2.Cells.Find(t(1, i)).Offset(1).Resize(10).Value = _
ws1.Range("D7").Resize(10).Value
End If
Next
End Sub

PS: les cellules fusionnées c'est pas top avec le code VBA