XL 2010 Liste Combobox Active X

TheProdigy

XLDnaute Impliqué
Bonjour tout le monde,

Je suis arrivé à créer un premier combobox avec une liste mais Je n'arrive pas à créer un deuxième je ne vois pas où est le problème parfois le premier foctionne parfois non
VB:
Private Sub ComboBox1_Click()
Me.ComboBox1.List = Array("31/12/2021", "31/12/2022", "30/11/2023")
End Sub

Private Sub ComboBox2_Click()
Me.ComboBox2.List = Array("01/01/2021", "01/01/2022", "01/01/2023")
End Sub
Merci de voir le fichier
 

Pièces jointes

  • Creation Combobox.xlsm
    21.2 KB · Affichages: 7

Eric C

XLDnaute Barbatruc
Bonjour le forum
Bonjour TheProdigy, bonjour Dranreb & bonjour Patrick

@TheProdigy (qui veut dire le prodige... et qui est inscrit depuis 2006 avec presque 1000 posts...). Je ne comprends pas :
@Dranreb Merci mais sans code je ne comprendrais pas
Il te suffisait de reprendre ton code et de l'insérer dans Vbe...
Cbo Active X.gif


Bonne fêtes de fin d'année à toutes & à tous
Eric c
 

patricktoulon

XLDnaute Barbatruc
re
VB:
Private Sub ComboBox1_DropButtonClick()
    Me.ComboBox1.List = Array("31/12/2021", "31/12/2022", "30/11/2023")
End Sub

Private Sub ComboBox2_DropButtonClick()
    With ComboBox1
       .List = Array("31/12/2021", "31/12/2022", "30/11/2023") 'au cas ou elle serait vide
      ' on remplis la combo2 avec les date date de la combo1 mais au 1 janvier de la même année
       Me.ComboBox2.Clear
        For i = 0 To .ListCount - 1
            Me.ComboBox2.AddItem DateSerial(Year(CDate(.List(i))), 1, 1)
        Next
    End With
End Sub
 

TheProdigy

XLDnaute Impliqué
Bonjour le forum
Bonjour TheProdigy, bonjour Dranreb & bonjour Patrick

@TheProdigy (qui veut dire le prodige... et qui est inscrit depuis 2006 avec presque 1000 posts...). Je ne comprends pas :

Il te suffisait de reprendre ton code et de l'insérer dans Vbe...
Regarde la pièce jointe 1187065

Bonne fêtes de fin d'année à toutes & à tous
Eric c
@Eric C Merci beaucoup c'est clair the prodigy est un nom de groupe de musique que j'aime @Eric C c'est toi le prodige :p
@patricktoulon Malheureusement ça fonctionne pas la date 2 devient vide
Merci
 

Pièces jointes

  • Creation Combobox.xlsm
    23.9 KB · Affichages: 3
Dernière édition:

patricktoulon

XLDnaute Barbatruc
re
ok comme ça alors
VB:
Private Sub ComboBox1_DropButtonClick()
    Me.ComboBox1.List = Array("31/12/2021", "31/12/2022", "30/11/2023")
End Sub

Private Sub ComboBox2_DropButtonClick()
    With ComboBox1
        t = Array("31/12/2021", "31/12/2022", "30/11/2023")
         ' on remplis la combo2 avec les date date de la combo1 mais au 1 janvier de la même année
        For i = 0 To UBound(t): t(i) = DateSerial(Year(CDate(t(i))), 1, 1): Next
        ComboBox2.List = t
    End With
End Sub
 

TheProdigy

XLDnaute Impliqué
Private Sub ComboBox1_DropButtonClick() Me.ComboBox1.List = Array("31/12/2021", "31/12/2022", "30/11/2023") End Sub Private Sub ComboBox2_DropButtonClick() With ComboBox1 t = Array("31/12/2021", "31/12/2022", "30/11/2023") ' on remplis la combo2 avec les date date de la combo1 mais au 1 janvier de la même année For i = 0 To UBound(t): t(i) = DateSerial(Year(CDate(t(i))), 1, 1): Next ComboBox2.List = t End With End Sub
Merci mais la date 2 est inférieur à la date 1 donc ça ne marche pas

Merci
1703367868814.png
 

Pièces jointes

  • Creation Combobox.xlsm
    24.1 KB · Affichages: 2

patricktoulon

XLDnaute Barbatruc
re
Merci mais la date 2 est inférieur à la date 1 donc ça ne marche pas

holala !! toi tu a commencé à reveillonner en avance ,faut arrêter de fumer la moquette !!
je te cite
Je voudrais vous demander comment avoir toujours la date 2 inférieur strictement à la date 1?
je soupconne que tu ne sache pas exprimer ton besoin correctement ,si tant est que cela soit clair dans ta tête
 

Discussions similaires

Réponses
4
Affichages
578
Réponses
0
Affichages
221

Statistiques des forums

Discussions
313 263
Messages
2 096 653
Membres
106 699
dernier inscrit
clem1908