XL 2016 afficher plusieurs résultats dans un combobox

submarine22

XLDnaute Junior
Bonjour à tous!
quelqu'un pourrais-t-il m'aider?
je vous explique j'ai un combobox qui fais une recherche de feuille dans un classeur en fonction d' une date, jusque là pas de problème, le soucis est que j'ai plusieurs feuille dont le nom commence par la même date mais pour les différencier je rajoute un horaire. hors lors de ma recherche cela ne m'affiche dans le combobox que la première feuille trouvée, mais je voudrais voir l'ensemble des feuilles pour effectuer mon choix.
voici le code que j'ai car je ne peux mettre le dossier complet il est trop conséquent.

Private Sub CommandButton3_Click()
ComboBox1.Value = Format(Date, "dd mmmm yyyy")
Dim sh As Worksheet, madate As Date
madate = Format(Date, "dd mmmm yyyy")
For Each sh In ActiveWorkbook.Sheets
If sh.Name = Me.ComboBox1.Value Then Exit Sub
Next
MsgBox ("Il n'y a pas de formation prévue pour aujourd'hui, Bonne Journée!")
ComboBox1 = ""
End Sub

Merci par avance
Bon week-end à tous
 

ChTi160

XLDnaute Barbatruc
Bonsoir le Fil,
Je vois que tu affiches la date du jour formatée dans le Combobox1.
VB:
ComboBox1.Value = Format(Date, "dd mmmm yyyy")
Que contient ce Combobox1 ?
Pourquoi ne pas utiliser la propriété Change de ce Combobox1?
Jean marie
 
Dernière édition:

bsalv

XLDnaute Occasionnel
un essai sans fichier
Code:
Private Sub CommandButton3_Click()
     Dim sh As Worksheet, madate As Date
     madate = Format(Date, "dd mmmm yyyy")
     For Each sh In ActiveWorkbook.Sheets
          If sh.Name Like "*" & mydate & "*" Then s = s & "|" & sh.Name
     Next
     If Len(s) > 0 Then ComboBox1.List = Split(Mid(s, 2), "|")
End Sub
 

cp4

XLDnaute Barbatruc
un essai sans fichier
Code:
Private Sub CommandButton3_Click()
     Dim sh As Worksheet, madate As Date
     madate = Format(Date, "dd mmmm yyyy")
     For Each sh In ActiveWorkbook.Sheets
          If sh.Name Like "*" & mydate & "*" Then s = s & "|" & sh.Name
     Next
     If Len(s) > 0 Then ComboBox1.List = Split(Mid(s, 2), "|")
End Sub
Bonjour,
Juste corriger une petite faute
VB:
If sh.Name Like "*" & madate & "*" Then s = s & "|" & sh.Name
au lieu de
Code:
If sh.Name Like "*" & mydate & "*" Then s = s & "|" & sh.Name
Bonne journée.
 

submarine22

XLDnaute Junior
Bonjour,
Juste corriger une petite faute
VB:
If sh.Name Like "*" & madate & "*" Then s = s & "|" & sh.Name
au lieu de
Code:
If sh.Name Like "*" & mydate & "*" Then s = s & "|" & sh.Name
Bonne journée.
Merci à vous pour ces informations utiles mais cela ne fonctionne pas comme je le voudrais je vais essayer de faire autrement ou vous mettre un bout de mon fichier si cela n'est pas trop lourd
 

Discussions similaires