[RESOLU] Zone de liste [tout et Year(date)]

[cathodique]

Bonjour,

Je voudrais faire afficher dans une zone de liste, le mot 'tout" et les années des dates se trouvant sur la feuille 'bd'. Et pouvoir afficher mon choix dans la fenêtre de la zone de liste.

J'arrive à afficher les années, mais je bute pour ajouter 'tout' dans la zone de liste et afficher mon choix dans cette dernière.

Option Explicit

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim F As Worksheet, d As Object, dl As Long, Tb, i As Long
Set d = CreateObject("Scripting.Dictionary")
Set F = Worksheets("bd")
dl = F.Range("A" & Rows.Count).End(xlUp).Row
Tb = F.Range("A2:A" & dl).Value2
For i = LBound(Tb) To UBound(Tb)
        If Not d.exists(Year(Tb(i, 1))) Then d(Year(Tb(i, 1))) = ""
  Next i
Me.ComboBox1.List = d.Keys
End Sub

En vous remerciant.

 

[pierrejean]

Bonjour cathodique

A tester:

 

[ChTi160]

Bonjour Cath
Bonjour le Fil ,Le Forum
Oups pierrejean , on s'est croisé lol
Sensiblement la même chose Lol
Une approche :

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim F As Worksheet, d As Object, dl As Long, Tb, i As Long
Set d = CreateObject("Scripting.Dictionary")
Set F = Worksheets("bd")
dl = F.Range("A" & Rows.Count).End(xlUp).Row
Tb = F.Range("A2:A" & dl).Value2
       d("TOUT") = "" 'ajouter
For i = LBound(Tb) To UBound(Tb)
        If Not d.exists(Year(Tb(i, 1))) Then d(Year(Tb(i, 1))) = ""
  Next i
Me.ComboBox1.List = d.Keys
End Sub

Bonne fin de Journée
Amicalement
jean marie

 

[cathodique]

Bonjour cathodique

A tester:

Pierrejean bonjour,
ça a planté sur cette ligne
Sheets("txt").Select 'bug ici n'appartient pas à la selection
car il n'y a pas de feuille 'txt'. En neutralisant cette ligne et réactivant la feuille 'consultation' le code fonctionne bien.
Sinon, j'avoue ne jamais avoir rencontrer cette syntaxe: d("Tout") = ""
Merci de me l'expliquer.

Bien à toi 1000 mercis

 

[cathodique]

Bonjour Cath
Bonjour le Fil ,Le Forum
Oups pierrejean , on s'est croisé lol
Sensiblement la même chose Lol
Une approche :

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim F As Worksheet, d As Object, dl As Long, Tb, i As Long
Set d = CreateObject("Scripting.Dictionary")
Set F = Worksheets("bd")
dl = F.Range("A" & Rows.Count).End(xlUp).Row
Tb = F.Range("A2:A" & dl).Value2
       d("TOUT") = "" 'ajouter
For i = LBound(Tb) To UBound(Tb)
        If Not d.exists(Year(Tb(i, 1))) Then d(Year(Tb(i, 1))) = ""
  Next i
Me.ComboBox1.List = d.Keys
End Sub

Bonne fin de Journée
Amicalement
jean marie

Merci beaucoup Jean marie,
En effet, sensiblement identique au code de Pierrejean, a une différence la sélection ne se met pas dans la zone de liste (du moins juste la première fois ensuite impossible de la changer).

Même demande pour cette ligne : d("TOUT") = "" , une explication stp pour dormir moins bête aujourd'hui.

Encore merci, très gentil de ta part.

 

[pierrejean]

Re
version correcte du fichier
d("Tout")=""
définit dans le dictionnaire la clé Tout associée a l'item ""

 

[cathodique]

Re
version correcte du fichier
d("Tout")=""
définit dans le dictionnaire la clé Tout associée a l'item ""

Merci beaucoup Pierrejean, C'est parfait.
Je t'avoue que j'ai encore beaucoup de lacunes concernant les dictionnaires et les tableaux VBA.
Je commence à maîtriser à mon rythme.
Tous mes remerciements.