Problème avec script

[matrix]

Bonjour,

J'ai ce script VBA excel:

'Dimanche
 ' Vider le contenu de la liste
    ComboBox2.Clear
    
    With Worksheets("Base de données")
        ' Boucle de la ligne 3 à la dernière dans la colonne A
        For lig = 3 To .Range("A" & Cells.Rows.Count).End(xlUp).Row
            nomTrouve = False
            
            ' Boucle du premier au dernier élément de la liste
            For cmb = 0 To ComboBox2.ListCount - 1
                ' Vérifier que le nom n'existe pas déjà dans la liste
                If ComboBox2.List(cmb) = .Range("A" & lig).Value Then
                    nomTrouve = True
                    Exit For
                End If
            Next cmb
            
            ' Si le nom n'est pas trouvé dans la liste, l'ajouter
            If nomTrouve = False Then
                ComboBox2.AddItem .Range("A" & lig).Value
            End If
        Next lig
    End With

Comment modifier afin que la valeur du ComboBox2, soit la même pour les combobox 3 à 7 sans réécrire 6 fois le même script?

Merci pour votre aide.

 

[Luki]

Re : Problème avec script

bonjour matrix,
si j'ai compris, tu veux que tous tes combos aient les mêmes données.

Alors tu peux essayer ceci (Combo 3 en plus)

'Dimanche
 ' Vider le contenu de la liste
    ComboBox2.Clear
 [B][COLOR=Red]   ComboBox3.Clear[/COLOR][/B]
    
    With Worksheets("Base de données")
        ' Boucle de la ligne 3 à la dernière dans la colonne A
        For lig = 3 To .Range("A" & Cells.Rows.Count).End(xlUp).Row
            nomTrouve = False
            
            ' Boucle du premier au dernier élément de la liste
            For cmb = 0 To ComboBox2.ListCount - 1
                ' Vérifier que le nom n'existe pas déjà dans la liste
                If ComboBox2.List(cmb) = .Range("A" & lig).Value Then
                    nomTrouve = True
                    Exit For
                End If
            Next cmb
            
            ' Si le nom n'est pas trouvé dans la liste, l'ajouter
            If nomTrouve = False Then
                ComboBox2.AddItem .Range("A" & lig).Value
                [B][COLOR=Red]ComboBox3.AddItem .Range("A" & lig).Value[/COLOR][/B]
              
            End If
        Next lig
    End With

et ainsi de suite...🙂

 

[matrix]

Re : Problème avec script

Merci, ça fonctionne.