XL 2016 afficher plusieurs résultats dans un combobox

[submarine22]

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

 

[cp4]

Bonsoir,

If sh.Name = Me.ComboBox1.Value Then Exit Sub

Tu demandes à ton code de sortir de la procédure si le nom de la feuille correspond à ce qu'il a dans la combobox. Sans oublier que tu as formaté la combobox.
Un petit fichier aurait été le bienvenu.

 

[ChTi160]

Bonsoir le Fil,
Je vois que tu affiches la date du jour formatée dans le Combobox1.

ComboBox1.Value = Format(Date, "dd mmmm yyyy")

Que contient ce Combobox1 ?
Pourquoi ne pas utiliser la propriété Change de ce Combobox1?
Jean marie

 

[bsalv]

un essai sans fichier

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]

un essai sans fichier

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

If sh.Name Like "*" & madate & "*" Then s = s & "|" & sh.Name

au lieu de

If sh.Name Like "*" & mydate & "*" Then s = s & "|" & sh.Name

Bonne journée.

 

[submarine22]

Bonjour,
Juste corriger une petite faute

If sh.Name Like "*" & madate & "*" Then s = s & "|" & sh.Name

au lieu de

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