Comparer entre la liste d'une listview et celle d'une combobox et lancer une macro

[Meloman]

Bonsoir à tous

j'ai trouver cette petite macro qui permet de comparer la liste d'une combobox et la valeur d'une textbox

ce que je recherche c'est de l'adapter pour qui me compare la liste d'une combobox et celle de la 5 eme colonne d'une listview si la valeur dans la listview n'est pas present dans la combobox lancer macro1
autrement lancer macro2

Dim test As Boolean

With listview1

For x = 0 To ComboBox1.ListCount - 1
    If .ListItems(.ListItems.Count).ListSubItems(4).Text = ComboBox1.List(x) Then
        test = True
        Exit For
    End If
Next x
If test = True Then
   
    MsgBox "macro1"
Else
    
    MsgBox "Macro2"
End If


End With

pouvez vous m'aider à adapter ceci svp merci d'avance

 

[jp14]

Re : Comparer entre la liste d'une listview et celle d'une combobox et lancer une mac

Bonjour

Si j'ai bien compris, ce qui n'est pas sûr.

Dim test As Boolean

With ListView1

For X = 0 To ComboBox1.ListCount - 1
    For x2 = 1 To .ListItems.Count
        If .ListItems(x2).ListSubItems(4).Text = ComboBox1.List(X) Then
            MsgBox "macro1"
        Else
            MsgBox "Macro2"
        End If
    Next x2
Next X
   
    
End If


End With
End Sub

A tester

JP

 

[Meloman]

Re : Comparer entre la liste d'une listview et celle d'une combobox et lancer une mac

Bonjour JP14 merci pour ta contribution c'est exactement cela un grand merci à bientot