Recherche une valeur de liste

bonjour

j'ai fait une userform avec plusieurs combobox

chaque combobox a sa liste avec des valeurs qui peuvent etre identique d'une liste a l'autre.

j'aimerai que quand je renseigne la combobox1 : si sa valeur = a une valeur de la liste de la combobox2 alors cette valeur est automatiquement mise dans la combobox2

merci pour vos reponse

je joint un fichier pour modele

Salut yannick,

à tester

Bonne nuit

merci sa fonctionne

je comprend pas trop mais au moins sa fonctionne

est il possible de faire de meme avec une 3eme combobox

toujours a partir de la combobox 1 si sa valeur est egal aux liste des combobox2 et 3 alors ces valeur s'affiche dans chaque combobox

si la valeur est egal a la liste de la combox

j'ai essayer ca :

For i = 0 To Me.ComboBox2.ListCount - 1 If Me.ComboBox2.Column(0, i) = valeur Then ComboBox2.Value = valeur Exit Sub Else ComboBox2.Value = "" End If Next i For j = 0 To Me.ComboBox3.ListCount - 1 If Me.ComboBox3.Column(0, j) = valeur Then ComboBox3.Value = valeur Exit Sub Else ComboBox3.Value = "" End If Next j

sa fonctionne qu'a moitier

merci pour ton aide

j'ai trouver une solution

voici mon code :

Private Sub ComboBox1_Change() Dim i As Integer Dim j As Integer valeur = ComboBox1.Value For i = 0 To ComboBox2.ListCount - 1 If ComboBox2.Column(0, i) = valeur Then ComboBox2.Value = valeur End If Next i For j = 0 To ComboBox3.ListCount - 1 If ComboBox3.Column(0, j) = valeur Then ComboBox3.Value = valeur End If Next j End Sub

après si quelqu'un a autre chose je suis preneur

merci

Bonjour,

à tester

Private Sub ComboBox1_Change()
Dim i As Integer, j As Integer
Valeur = ComboBox1.Value
    For i = 0 To ComboBox2.ListCount - 1
       If ComboBox2.Column(0, i) = Valeur Then
        ComboBox2.Value = Valeur
            For j = 0 To ComboBox3.ListCount - 1
                If ComboBox3.Column(0, j) = Valeur Then
                ComboBox3.Value = Valeur
                Exit Sub
                End If
            Next j
        Exit Sub
       Else
        ComboBox2.Value = ""
        ComboBox3.Value = ""
       End If
    Next i
End Sub

Bonne journée