Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Liste Combobox Active X

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

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

Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
@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
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Merci mais la date 2 est inférieur à la date 1 donc ça ne marche pas

Merci
 

Pièces jointes

Vote positif 0 Vote négatif
re
Merci mais la date 2 est inférieur à la date 1 donc ça ne marche pas
Cliquez pour agrandir...

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?
Cliquez pour agrandir...
je soupconne que tu ne sache pas exprimer ton besoin correctement ,si tant est que cela soit clair dans ta tête
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
855
Dranreb
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
898
Messan
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
E
  • Résolu(e)
XL 2019 effacer combobox
Réponses
4
Affichages
751
ChTi160
R
  • Question Question
Microsoft 365 ListBox / ListView et combobox avec choix de colonnes
2
Réponses
20
Affichages
4 K
RaVenSs
R
E
  • Résolu(e)
XL 2019 ComboBox afficher 2 colonnes
Réponses
6
Affichages
2 K
exe76
E
I
  • Résolu(e)
Microsoft 365 Remplir Combobox pas les 12 mois
Réponses
3
Affichages
538
soan
S
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
345
Latias
L
  • Question Question
XL 2019 ComboBox dans des cellules différenciées avec la même liste
2
Réponses
16
Affichages
2 K
hemardjean
L
  • Question Question
Microsoft 365 Réinitialiser concombox et probleme modification bd
Réponses
2
Affichages
619
Dudu2
P
  • Question Question
XL 2016 VBA Masquer/afficher lignes via Liste (validation des données)
Réponses
3
Affichages
578
sylvanu
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
  • Résolu(e)
XL 2016 VBA - Comment lister les items d'une ComboBox Active X chargée par .AddItem
Réponses
10
Affichages
2 K
patricktoulon
  • Question Question
Microsoft 365 problème navigation et selection dans Combobox-Liste de choix
Réponses
4
Affichages
2 K
chostra
L
  • Question Question
Microsoft 365 Userform : Combobox triée/sans doublons avec saisie intuitive/recherche multimots
Réponses
8
Affichages
3 K
AtTheOne
  • Question Question
XL 2010 Problème pour charger un ComboBox au moyen d'une boucle
2
Réponses
19
Affichages
2 K
patricktoulon
G
  • Résolu(e)
XL 2016 Find avec Combobox et Texbox - RESOLU
Réponses
3
Affichages
823
Grall
G
  • Résolu(e)
XL 2016 Autre curiosité ComboBox
2
Réponses
20
Affichages
2 K
patricktoulon
  • Résolu(e)
XL 2019 VBA remplir une combobox sous condition
Réponses
1
Affichages
968
bof
B
T
  • Résolu(e)
Microsoft 365 Conditionner l'accès à une page d'un multipage
2
Réponses
26
Affichages
3 K
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…