Nb d'item avec critère listbox multicolonne

[jtitin]

Bonsoir à tous

dans un userform1 je clique dans listbox1
une Listbox2 multicolonne affiche alors le résultat
à ce moment là, je cherche à renvoyer dans une textbox1 le nombre de ligne de la listbox2 multicolonne qui a dans sa 3ème colonne la valeur "chien" ou "chat"

merci pour votre aide

 

[Robert]

Re : Nb d'item avec critère listbox multicolonne

Bonsoir Jtitin, bonsoir le forum,

Sans fichier exemple difficile d'être plus précis... Je te propose le code ci-dessous :

Private Sub ListBox1_Click()
Dim nb As Integer 'déclare la variable nb (NomBre)
 
'****************************************************
'il doit y avoir ici le code qui alimente la ListBox2
'****************************************************
nb = 0 'initialise la variable nb
With ListBox2 'prend en compte la ListBox2
    For x = 0 To .ListCount - 1 'boucle sur tous les items de la ListBox2
        'condition : si l'item de la troisième colonne est "chien" ou "chat", incrémente le nombre
        If .Column(2, x) = "chien" Or .Column(2, x) = "chat" Then nb = nb + 1
    Next x 'prochain item de la ListBox2
End With 'fin de la prise en compte de la ListBox2
TextBox1.Value = nb 'affiche le nombre nb dans la textBox1
End Sub

 

[jtitin]

Re : Nb d'item avec critère listbox multicolonne

Merci Robert
C'est OK pour moi
super efficace ce forum