Discussion :

[Bouncer]

Bonjour,

Je me permets de solliciter votre aide étant totalement novice en la matière.

Alors voilà j'ai déjà un code qui fonctionne pour deux listes déroulantes si mes données était classiquement sous cette forme:



J'ai dans mon UserForm une liste déroulante Enseigne et une autre dépendante de cette dernière correspondant aux villes.
Code utilisé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Colonne As Integer
Dim i As Integer, j As Integer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub cbxEnseigne_Change()
i = 11
fmsaisie.CbxVille.Clear
Sheets("Tableau").Range("K2:Z2").Interior.ColorIndex = Clear
Do While Cells(2, i).Value <> ""
      If Cells(2, i).Value = CbxEnseigne.Value Then
          Cells(2, i).Select
          ActiveCell.Interior.ColorIndex = 32
          Colonne = ActiveCell.Column
        End If
    i = i + 1
    Loop
    j = 3
    Do While Cells(j, Colonne).Value <> ""
        fmsaisie.CbxVille.AddItem Cells(j, Colonne)
        j = j + 1
    Loop
    CbxVille.ListIndex = 0
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Colonne = 11
    Sheets("Tableau").Range("K2:Z2").Interior.ColorIndex = Clear
    Do While Cells(2, Colonne).Value <> ""
        fmsaisie.CbxEnseigne.AddItem Cells(2, Colonne).Value
        Colonne = Colonne + 1
    Loop
End Sub

J'aimerai cependant alimentées ces listes déroulantes sur des données orientées différemment:



Cela va t-il crée des redondances car les enseignes, bien que les mêmes, sont répétées dans le deuxième cas? Si oui, peut-on corriger cette redondance grâce à une macro?

L'optique étant plus tard d'ouvrir mon UserForm, choisir l'enseigne puis la ville et grâce à une zone de texte, insérer automatiquement un commentaire dans la colonne (L) et cellule située à droite de la ville qui aura été sélectionné. Je n'ai pas encore trouvé le code pour y parvenir mais si je créé déjà des listes déroulantes dépendantes fonctionnelles dans mon cas je serai déjà satisfait.

Merci d'avance de votre attention et de votre aide et espère avoir été le plus clair possible.

Cordialement,