XL 2016 Liste déroulante intuitive

  • Initiateur de la discussion Initiateur de la discussion tbnt
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tbnt

XLDnaute Nouveau
Bonjour,

J'essaie de faire une liste déroulante intuitive pour la colonne "Problème rencontré" et la colonne "Qui".
Je suis parti du fichier de Mr Bois Gontier :

La première liste ("problème rencontré") fonctionne parfaitement... mais je n'arrive pas à faire fonctionner la 2nd liste (colonne "Qui").

Sauriez-vous m'orienter vers une solution svp ?
J'aimerais également comprendre mon erreur pour pouvoir me débrouiller par la suite !

Merci de votre aide.

Tom
 

Pièces jointes

Solution
Bonjour,

J'essaie de faire une liste déroulante intuitive pour la colonne "Problème rencontré" et la colonne "Qui".
Je suis parti du fichier de Mr Bois Gontier :

La première liste ("problème rencontré") fonctionne parfaitement... mais je n'arrive pas à faire fonctionner la 2nd liste (colonne "Qui").

Sauriez-vous m'orienter vers une solution svp ?
J'aimerais également comprendre mon erreur pour pouvoir me débrouiller par la suite !

Merci de votre aide.

Tom
bonjour
Tom lis les commentaires
VB:
Private Sub UserForm_Initialize() 'enlever le 2
  Set f = Sheets("BD")
 b = f.Range("D2:D" & f.[D65000].End(xlUp).Row).Value 'changer a en b...
Bonjour,

J'essaie de faire une liste déroulante intuitive pour la colonne "Problème rencontré" et la colonne "Qui".
Je suis parti du fichier de Mr Bois Gontier :

La première liste ("problème rencontré") fonctionne parfaitement... mais je n'arrive pas à faire fonctionner la 2nd liste (colonne "Qui").

Sauriez-vous m'orienter vers une solution svp ?
J'aimerais également comprendre mon erreur pour pouvoir me débrouiller par la suite !

Merci de votre aide.

Tom
bonjour
Tom lis les commentaires
VB:
Private Sub UserForm_Initialize() 'enlever le 2
  Set f = Sheets("BD")
 b = f.Range("D2:D" & f.[D65000].End(xlUp).Row).Value 'changer a en b
  Me.ComboBox1.List = b
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour