Remplir combo2 avec combo1 sur plage variable.

Primatexcel

XLDnaute Junior
Bonjour le forum,

voila ma question, (qui a été déjà posé) mais dans mon cas j'ai un petit soucis.
En regardant différentes discussions et leurs propositions je ne suis pas parvenu a les adapter a mon besoin.

Je voudrais que lorsque l'on sélectionne une ligne du combobox1, le combobox2 se remplisse des données contenues dans la colonne précédente.
je suis parvenu a récupérer la première ligne pour le combo2 mais pas a le remplir de toutes les dates que contient la colonne.

le combobox1 permet de cibler la plage des recherches.

espérant avoir été clair je vous joint un petit exemple.

merci.
 

Pièces jointes

  • Combo by combo.xlsm
    23.2 KB · Affichages: 27

Papou-net

XLDnaute Barbatruc
Re : Remplir combo2 avec combo1 sur plage variable.

Bonsoir Primatexcel,

Voici une copie de ton fichier modifié.

Mais je n'ai pas dû bien comprendre ce qui doit être listé dans ComboBox2, car toutes les dates sont identiques pour une mêmeligne de ComboBox1.

Toutefois, ça ne doit pas être un problème pour adapter ces données, il suffit de redéfinir la variable x.

Cordialement.
 

Pièces jointes

  • Combo by combo-1.xlsm
    26.6 KB · Affichages: 26

Primatexcel

XLDnaute Junior
Re : Remplir combo2 avec combo1 sur plage variable.

Bonsoir Papou-net

merci de ta réponse. Tu as bien compris ce que j'attendais maintenant penses tu qu'il est possible de n'afficher dans le combobox2 que un exemplaire de chaque date.

merci
 

Papou-net

XLDnaute Barbatruc
Re : Remplir combo2 avec combo1 sur plage variable.

Bonsoir Papou-net

merci de ta réponse. Tu as bien compris ce que j'attendais maintenant penses tu qu'il est possible de n'afficher dans le combobox2 que un exemplaire de chaque date.

merci

Bien sûr que c'est possible!

Voici comment modifier le code:

Code:
Sub Dates()

x = ComboBox1.ListIndex + (3 * ComboBox1.ListIndex) + 1
d = 5

With UserForm1.ComboBox2
  .Clear
  While IsDate(Cells(d, x))
    If CDate(Cells(d, x)) > CDate(Cells(d - 1, x)) Then .AddItem Cells(d, x)
    d = d + 1
  Wend
End With
End Sub
Cordialement.
 

Discussions similaires

Statistiques des forums

Discussions
312 501
Messages
2 089 014
Membres
104 005
dernier inscrit
Maxence