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

cathodique · 8 Février 2018

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.

VB:

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 · 8 Février 2018

Bonjour cathodique

A tester:

ChTi160 · 8 Février 2018

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

VB:

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 · 8 Février 2018

pierrejean à dit:
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 · 8 Février 2018

ChTi160 à dit:

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

VB:

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 · 8 Février 2018

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

cathodique · 8 Février 2018

pierrejean à dit:
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.

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

cathodique

XLDnaute Barbatruc

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Pièces jointes

cathodique

XLDnaute Barbatruc

Discussions similaires