Remplissage auto d'une Textbox d'après valeurs des combobox précédentes

Question

Le fichier ci-joint regroupe toutes les configurations possibles de tiroirs BLUM et RiexTrack grâce à des Combobox en cascades. J'aimerai l'améliorer en rajoutant la référence fabricant de ces tiroirs. Pour cela j'aimerai que la textbox9 se remplisse automatiquement avec les valeurs de la colonne "Référence" du tableau se trouvant dans la feuille "Donnees", au change de la combobox8 et d'après les résultats sélectionnés des Combobox précédente. Comme vous pourrez le voir dans le change de la Combobox8, j'ai tenté d'utiliser l'enregistreur de macro pour résoudre mon problème … Sans succès. Merci pour le coup de pouce ;)...

AFEH · Accepted Answer

Bonjour SOTIN et le forum Mettez cette ligne de code: Me.TextBox9.Value = ActiveSheet.ListObjects("Tab_Data").DataBodyRange(Ligne, 9) Cdt Papy Henri...

AFEH · Accepted Answer

Bonjour SOTIN
Il n'est pas utile de filtrer la base "Donnees". Remplacer le code de la ComboBox8 par ceci.

Private Sub ComboBox8_Change()
  'Alimentation textbox9 - Référence tiroir
    With Sheets("Donnees")    
        Me.TextBox9 = .ListObjects("Tab_Data").DataBodyRange(Ligne, 9)
    End With
End Sub

Cdt

Papy Henri

AFEH · Accepted Answer

Bonjour SOTIN
Autant pour moi, la solution que je vous ai donnée n'est pas bonne, car la variable Ligne concerne la feuille WS, donc rapatrie toujours la colonne référence de la ligne sélectionnée dans WS
J'ai revu et corrigé certaines lignes de code du UserForm1 pour arriver au bon résultat avec cette version en P.J.
Je n'ai pas regardé les autres UserForm
Cdt
Papy Henri