XL 2010 Liste Combobox Active X

TheProdigy · 23 Décembre 2023

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

Dranreb · 23 Décembre 2023

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 · 23 Décembre 2023

re
Bonjour
ou tout simplement au dropbuttonclick

VB:

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 · 23 Décembre 2023

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 · 23 Décembre 2023

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 · 23 Décembre 2023

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 · 23 Décembre 2023

Eric C à dit:
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 · 23 Décembre 2023

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 · 23 Décembre 2023

patricktoulon à dit:
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 · 24 Décembre 2023

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

XL 2010 Liste Combobox Active X

TheProdigy

XLDnaute Impliqué

Pièces jointes

Dranreb

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

TheProdigy

XLDnaute Impliqué

Pièces jointes

Eric C

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

TheProdigy

XLDnaute Impliqué

Pièces jointes

patricktoulon

XLDnaute Barbatruc

TheProdigy

XLDnaute Impliqué

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Discussions similaires