Combobox

[Chombi]

Bonjour à tous

lors du remplissage de combobox en cascade je souhaiterai que: si la liste ne comporte qu'un seul item il s'affiche directement dans le combobox. pour gagner une sélection

Merci pour votre aide

 

[Dranreb]

Bonsoir.
Un objet ComboBoxLiées fait ça automatiquement.

 

[Chombi]

Bonsoir Dranreb je suis touché qu'une nouvelle fois tu t’intéresses à mon problème
j'ai un peu de mal à m'y retrouver si joint un fichier déjà pompé ici dont je me suis inspiré pour ma propre application.
Quand on sélectionne " janvier" dans le combo1 une seule valeur est dispo dans le combo2, comment faire pour qu'elle s'affiche directement et que la procédure pour la combo3 se fasse quand même

Merci

 

[Dranreb]

Réécrivez tout en utilisant un objet ComboBoxLiées: c'est lui qui s'en occupera.

 

[Chombi]

Là j'atteins mes limites, ça devient très compliqué pour mon petit niveau
Merci pour votre reponse

 

[Dranreb]

Je ne trouve pourtant pas ce code très compliqué, or il suffit à gérer les listes et les choix :

Option Explicit
Private CL As ComboBoxLiées

Private Sub UserForm_Initialize()
Set CL = CBxL.Création.ComboBoxLiées
CL.Plage Feuil2.[F2:I2], True
CL.Add ComboBox1, 1, "mmmm"
CL.Add ComboBox2, 2, "dd"
CL.Add ComboBox3, 3
CL.Add ComboBox4, 4
CL.Actualiser
End Sub

Enfin sous réserve qu'on mette en F2, à propager sur 13 lignes :

=DATE(ANNEE(G2);MOIS(G2);1)

Ce qui peut se faire automatiquement en ajoutant juste avant CL.Actualiser :

CL.PlgTablo.Columns(1).FormulaR1C1 = "=DATE(YEAR(RC[1]),MONTH(RC[1]),1)"

À moins que ce ne soit pas gênant que dans la liste les noms de mois soient en ordre alphabétique…

 

[Chombi]

Bonjour Dranreb
Merci, en effet vu comme cela pas si compliqué !!