Merci
Question : j'ai inséré un bouton de contrôle Active X auquel j'ai associé la macro
Cependant lorsque je l'execute, j'ai une erreur 424 "Objet Requis" au niveau de la partie surlignée
Private Sub CommandButton1_Click()
Dim C As Range
For Each C In Feuil4.Range("c4:by4") // Q? l'onglet dans mon fichier s'appelle BILAN et correspond à la 4eme feuille => est ce correct ?
If Month(C) = Month(Date) Then
Feuil3.[c24.c28].Copy C.Offset(1): Exit For
End If
Next
For Each C In Feuil4.Range("c12:by12")
If Month(C) = Month(Date) Then
Feuil3.[d42.d48].Copy C.Offset(1): Exit For
End If
Next
End Sub