Interdire item dans listbox

  • Initiateur de la discussion Initiateur de la discussion 2susy
  • Date de début Date de début

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 !

2susy

XLDnaute Junior
Bonjour à tous,

j'ai un combobox multicolonne qui me permet de sélectionner un item.
Une fonction recherche affiche une liste d'items dans une listbox.

J'aimerai interdire l'affichage de l'item sélectionné dans le combobox dans la listbox affichant les résultats de ma recherche.

voici le code actuel qui ne fonctionne pas :
For i = 0 To ListBox2.ListCount - 1
For x=0 To Combobox3.ListCount-1
If ListBox2.ListIndex <> -1 Then
If ListBox2.List(i) = Combobox3.List (x) Then
ListBox2.RemoveItem (i)
End If
End If
Next x
Next i

Merci bcp pour votre aide !!
Susy
 
Re : Interdire item dans listbox

Bonjour,

Les données à disposition sont un peu short...même si c'est enfin de saison!
Peut être en adaptant ceci :
Code:
  For i = 0 To ListBox2.ListCount - 1
     If ListBox2.ListIndex <> -1 Then
        If ListBox2.List(i) = Combobox3.value Then
        ListBox2.RemoveItem (i)
        End If
    End If
 Next i
Cordialement
 
Re : Interdire item dans listbox

Salut Susy!

tu t'en sert d'un combox qui est a sont tour lié a une listbox,et l'item s'affiche au niveau combox et tu veut éviter son affichage au niveau de la listbox c'est ca je crois ta démarche donc une simple question qui ce pose a quoi sert ta listbox ?

Cordialement
 
Re : Interdire item dans listbox

quand je relis ma demande, je n'y comprends plus rien ! merci quand même de vous être intéressés à mon cas, j'ai réussi à me débrouiller finalement en mettant le comboboxText en critère et en faisant une collection et ce avant l'opération Additem.
 
Re : Interdire item dans listbox

voilà le code en substance :


Private Sub Rechercher()
' Rechercher les données en fonction des critères
Dim lgLigDeb As Long
Dim i As Integer, r As Long, j As Integer
Dim Critere1 As String
Dim Critere4 As String

Critere1 = "*"
If ComboBox4.Value <> "" Then Critere1 = ComboBox4.Value
Critere4 = "*"
If ComboBox3.Value <> "" Then Critere4 = ComboBox3.Value

ListBox2.Clear
Dim Cell As Range
Dim Unique As New Collection
Dim Valeur As Range

' Boucle de la 2me à la dernière ligne de la feuille
For lgLigDeb = 2 To Range("A" & Cells.Rows.Count).End(xlUp).Row
On Error Resume Next


If Not ComboBox4.ListIndex = -1 Then
If Range("K" & lgLigDeb).Value Like Critere1 And Range("A" & lgLigDeb).Value <> Critere4 Then
For Each Cell In Range("A2" & lgLigDeb)
Unique.Add Cell, CStr(Cell)
Next Cell
On Error GoTo 0
For Each Valeur In Unique
With ListBox2
.AddItem Range("A" & lgLigDeb).Value
.List(.ListCount - 1, 1) = Range("B" & lgLigDeb).Value
.List(.ListCount - 1, 2) = Range("K" & lgLigDeb).Value
End With
Next Valeur
End If
End If
Next lgLigDeb
End Sub

J'espère que ce sera utile à d'autres !!
 
Re : Interdire item dans listbox

re

conseil comme toujours : efforce-toi de mettre des commentaires dans ton code
c'est vite fait, quoiqu'il faille le faire bien.
tu en seras heureuse quand dans 6 mois tu auras besoin de le modifier.
 
- 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

Discussions similaires

Réponses
3
Affichages
568
Réponses
4
Affichages
439
  • Question Question
Microsoft 365 Lenteur macro
Réponses
15
Affichages
1 K
Réponses
10
Affichages
714
Réponses
40
Affichages
2 K
Retour