Encore un problème avec les combobox

Bonsoir,

Me revoilà avec un soucis avec les combobox....

J'aimerai comprendre comment alimenter deux combobox (voir plus) grace à un tableau à la lecture "croisée".

la combobox 1 correspond aux cellules non vides de la ligne 1

par contre mon problème est dans le remplissage de la combobox2. J'ai bien tenter quelques trucs mais rien n'y fait.

Je pense ne pas avoir defini la variable de la colonne correctement, je ne sais meme pas d'ailleurs comment le faire.

Bref pourrais je avoir un peu d'aide s'il vous plaît

Je vous joint mon petit fichier, ce sera plus parlant.

Bonsoir

Remplace la procédure correspondante par celle-ci

Private Sub ComboBox1_Change()
Dim Ligne As Long, Colonne As Integer, F1 As Worksheet

  Me.ComboBox2.Clear
  If Me.ComboBox1.ListIndex = -1 Then Exit Sub
  Colonne = Me.ComboBox1.ListIndex + 2
  Set F1 = Sheets("Feuil1")
  For Ligne = 2 To F1.Cells(Rows.Count, Colonne).End(xlUp).Row
    If F1.Cells(Ligne, Colonne) <> "" Then
      Me.ComboBox2.AddItem F1.Range("A" & Ligne)
    End If
  Next Ligne
End Sub

Bonsoir,

Pour rectifier au mini ta procédure :

  For Each c In Range(f.[a2], f.[a65000].End(xlUp))
    If c.Offset(, ComboBox1.ListIndex + 1) = 1 Then mondico.Item(c.Value) = c.Value
  Next c

Mais je pense que tu devrais prendre la procédure proposée par Banzai [Salut !]

Cordialement.