XL 2010 Liste Combobox Active X

[TheProdigy]

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

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

 

[Dranreb]

Bonjour.
Il vaudrait mieux affecter ces listes à l'ouverture du classeur. Au clic c'est un peu tard.
Mais au GotFocus ça va déjà mieux.

 

[patricktoulon]

re
Bonjour
ou tout simplement au dropbuttonclick

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

Private Sub ComboBox2_DropButtonClick()
Me.ComboBox2.List = Array("01/01/2021", "01/01/2022", "01/01/2023")
End Sub

 

[TheProdigy]

Bonjour,

@Dranreb Merci mais sans code je ne comprendrais pas
@patricktoulon Merci ta solution fonction

Je voudrais vous demander comment avoir toujours la date 2 inférieur strictement à la date 1?

Merci

 

[Eric C]

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...

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

 

[patricktoulon]

re

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]

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
@patricktoulon Malheureusement ça fonctionne pas la date 2 devient vide
Merci

 

[patricktoulon]

re
ok comme ça alors

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]

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

 

[patricktoulon]

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