action sur bouton activx et bouton sur userform

[farid]

Bonjour,
voila mon souci
lorsque je crée un bouton(CommandButton1) via développeur/insérer/Controleactivex et que j'insère la formule , elle fonctionne très bien.
Par contre lorsque je crée un userform et que j'insère un bouton et que je colle la même macro, cela me crée un bug.
je joins le fichier
merci pour votre aide
bien cordialement

 

[Dranreb]

Bonsoir.
C'est parce que certaines méthodes sont assumée comme étant celles de l'objet Worksheet dans le module d'un tel objet, ce qui n'est pas le cas dans celui d'un autre type d'objet. Précisez 'Feuil1.' devant les méthodes et propriétés qui le requièrent pour l'UserForm.

Private Sub CommandButton1_Click()
With Intersect(Feuil1.UsedRange, Feuil1.Rows("4:" & Feuil1.Rows.Count), Feuil1.Columns("N:Y"))
      If .Parent.FilterMode Then .Parent.ShowAllData
      .AutoFilter Field:=Month(Date), Criteria1:=1
   End With
End Sub

D'ailleurs il me semble que c'est aussi Feuil1 au lieu de .Parent et éventuellement Me dans le module de l'objet Worksheet.

 

[farid]

Bonsoir Dranreb,
merci beaucoup pour ce retour et cela fonctionne très bien.
bien au plaisir.
bonne soirée