Comboboxs liés sans userform

[Fab2018]

Bonjour,

Après quelques jours de recherches sur différents forums et étant novice en VBA, je m'adresse à vous pour le cas ci-dessous :

Je souhaiterais le plus simplement possible pouvoir afficher une liste de clients, en fonction d'une sélection du directeur régional associé OU de l'attaché clientèle associé.
J'ai tenté via des listes déroulantes, mais la taille de police n'est pas modifiable, je suis donc parti sur des ComboBoxs.
Idéalement, je ne voudrais pas passer par un userform pour que ça reste fluide et que les 3 ComboBoxs soient intégrées dans la feuille Excel finale.

Je vous joins un classeur Excel pour exemple. N'étant pas sûr que ce soit la bonne méthode, je n'ai pas rempli les sources de ComboBoxs pour que ce soit une base de départ "propre".

Merci pour votre aide!

 

[Dranreb]

Bonjour.
Quel manque de fluidité reprocheriez vous à un UserForm ?
Sous quel condition devra s'exécuter de toute façon la macro qui rendra vos ComboBox opérationnelles ?
(Avec un UserForm, au moins, on sait que c'est à son initialisation)
Cela dit, ça peut se faire.

 

[Fab2018]

Bonjour,
Merci pour la réponse et le fichier!
Sans userform, ça me semblait plus fluide visuellement puisque ça ne passe pas par l'ouverture d'une "fenêtre".
Mais si l'userform reste ouvert dès l'ouverture du classeur, et qu'il permet un code basique en VBA, ça me va également. Je pense que je serai incapable de modifier ou maintenir le code tel qu'il est dans le fichier.
Merci pour votre aide.

 

[Dranreb]

Il n'y a pas grand chose dans la programmation applicative. Elle pourrait aisément se mettre dans un UserForm.
Les modules de service ne sont de toute façon pas à retoucher.

Option Explicit
Private WithEvents CL As ComboBoxLiées
Private Sub UserForm_Initialize()
   Set CL = New ComboBoxLiées
   CL.Plage Feuil14.Cells(2, "A")
   CL.Add ComboBox1, "A"
   CL.Add ComboBox2, "B"
   CL.Add ComboBox3, "C"
   CL.Actualiser
   End Sub
Private Sub CBnEffacer_Click()
   CL.Nettoyer
   End Sub

 

[BOISGONTIER]

Bonjour,

cf pj

jb

 

[Fab2018]

Merci JB! C'est parfait, le code est simple et efficace.
Sans vouloir abuser de ton temps, est-ce qu'il serait possible de permettre une 3ème option dans la combobox3, qui serait de sélectionner directement le client dans une liste déroulante? (si les 2 autres sont vides).
Merci beaucoup!

 

[BOISGONTIER]

cf pj

jb

 

[Fab2018]

Merci beaucoup! C'est parfait.
Bonne soirée.

 

[BOISGONTIER]

Bonjour,

Version formulaire

jb

 

[Dranreb]

Bounjour

Ma version formulaire, avec un code à maintenir beaucoup plus court.