Worksheets(1).AutoFilterMode = False
Private Sub UserForm_Initialize()
'Worksheets(1).AutoFilterMode = False
CommandButton1.Visible = False
ListBox1.AddItem ("Sexe")
ListBox1.AddItem ("Pays")
ListBox1.AddItem ("Fonction")
ListBox1.AddItem ("Secteur")
Label2.Caption = ""
End Sub
Toi, je sais que tu es JM. Mais l'autre qui dit tout le temps mou sur XLD, je ne vois pas qui c'est.
Désolé je viens de voir ce post. J'ai lancé la recherche des fichiers *.exdRe
Le message N° #13 est inquiétant.
Je te suggère :
1) de fermer tous tes classeurs Excel
2) d'aller dans l'explorateur , d'y recenser tous les fichiers d'extension ".exd" et de les supprimer
et
3) de forcer la mise à jour immédiate de toutes les mises à jour Windows et Office non encore faites.
Oui, le formulaire s'affiche. Listbox1 fonctionnelle, mais Listbox2 et 3.Re
Je viens de tester en commentant la ligne.
Cela fonctionne aussi
(en tout cas sur mon PC)
VB:Private Sub UserForm_Initialize() 'Worksheets(1).AutoFilterMode = False CommandButton1.Visible = False ListBox1.AddItem ("Sexe") ListBox1.AddItem ("Pays") ListBox1.AddItem ("Fonction") ListBox1.AddItem ("Secteur") Label2.Caption = "" End Sub
Impossible de cliquer dans listbox2 et 3.Re
Tout fonctionne normalement (sur mon PC)
J'ai suivi ces étapes pour faire mon test.
Pour valider le choix, il faut cliquer sur la Listbox1
Ce qui active la ListBox2, on fait son choix puis on clique
Ce qui active le CommandButton2 sur lequel on clique pour appliquer le filtre et rapatrier le résultat du filtre dans l'userform (dans la ListBox3)
Merci pour tant de peines. Je comprends mieux pourquoi j'ai des retours erronés lorsque je code.
Bonjour JMRe
Tu as bien clique sur Fonction
(pas sur les flèches à droite) mais sur le contrôle ?
Bonsoir Staple1600Bonjour le fil, cp4
•>cp4
Et si tu tentes l'expérience sur un classeur vierge où tu insères deux ListBox ?
Est-ce que le même phénomène se produit?