effacer une list box

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

akramenergie

XLDnaute Occasionnel
bonjour tous le monde
j'ai un petit problem sur ma listbox ,
en faite je fait une recherhe suivant des critére et lorsque je passe a la recherche par un autre critere dans mon code je demade de effacer ma listbox des données de la premier recherche pour la remplir par les nouveaux donnée mais il ya un bug qui apparer
si vous avez une idées sur l'erreur que je commais ou bien vous avez une idées comment effacer le contenue d'une listbox n'esiter pas svp
merci d'avance

NB: la piece joint represente le message d'erreur et le débogage de la partie du code qui traite ce probléme
 

Pièces jointes

Re : effacer une list box

bonjour,

En cherchant bien sur le forum tu trouvera plein de fils où il est question de cela. Alors cherche, essaie et reviens si tu n'arrive pas à appliquer ce que tu aura trouvé.

bon courage
 
Re : effacer une list box

Excuse moi, mais mon message précédent ne t'étais pas destiner.

par contre pour ton problème essaie de sortir .Clear de l'ensemble With...End With.

Liste1.Combobox1.Clear
With Liste1.Combobox1
......
.......
......
End With
 
Re : effacer une list box

Salut
UN petit fichier excel serait bien!!!
J'ai regardé un peu l'erreur dans le fichier que t'a envoyé ;tu ne peu pas dans le with demander en meme temps d'effacer la liste ;et de la remplir en meme temps!!!!
 
Re : effacer une list box

oui mai méme si je la sort a l'extérieur ca marche pas
voila la partie du code que j'ai modifier etvous pouvais remarquer que le ".clear "il est a l'exterieur :
--------------------------------------------------------------------------
Sub afficherListe2()
Dim Plg As String
With Sheets("Feuil2")
Plg = .Range("A2:C" & .Range("A65536").End(xlUp).Row).Address
End With

Liste1.ListBox2.Clear

With Liste1.ListBox2
.ColumnCount = 3
.ColumnWidths = "50;60;60"
.ColumnHeads = False
.RowSource = "Feuil2!" & Plg
End With

End Sub
-----------------------------------------------------------------------
 
Re : effacer une list box

Salut
Bonjour le fil
Bonjour le forum

Arff je sais pas si c'est cela mais (sans avoir le texte du message d'erreur)
je ne vois nul part le chargement du userform Liste1 et son affichage
as tu essayé de mettre ton code dans la procédure Userform_Initialize ou Activate de ton Userform Liste1
ce qui donnerait
Code:
Private Sub UserForm_Initialize()
Dim Plg As String
With Sheets("Feuil2")
    Plg = .Range("A2:C" & .Range("A65536").End(xlUp).Row).Address
End With
With Liste1.ListBox2
    .ColumnCount = 3
    .ColumnWidths = "50;60;60"
    .ColumnHeads = False
.Clear
    .RowSource = "Feuil2!" & Plg
End With
End Sub

puis
Sub afficherListe2()
Liste1.show
End Sub
Sans fichier difficile de répondre
Ps : Arfffff Un coucou particulier à mon Ami Pierrejean
Bonne fin de journée
 
Re : effacer une list box

re
arff pas evident avec si peu de chose

enfin je ne comprends pas pourquoi tu redimmensionnes ta listBox dans cette procédure alors que tu l'as fait à l'Initialisation du Userform

le texte du message d'errreur c'est quoi ?????

dans l'attente
Bonne fin de journée
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour