action sur bouton activx et bouton sur userform

farid

XLDnaute Occasionnel
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
 

Pièces jointes

  • Filtrage couleur.xlsm
    26.3 KB · Affichages: 9

Dranreb

XLDnaute Barbatruc
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.
VB:
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.
 
Dernière édition:

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 870
dernier inscrit
Dethomas