XL 2016 afficher plusieurs résultats dans un combobox

submarine22 · 18 Mai 2023

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 · 18 Mai 2023

Bonsoir,

submarine22 à dit:
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 · 18 Mai 2023

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

bsalv · 18 Mai 2023

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 · 19 Mai 2023

bsalv à dit:

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 · 22 Mai 2023

cp4 à dit:
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

XL 2016 afficher plusieurs résultats dans un combobox

submarine22

XLDnaute Junior

cp4

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

bsalv

XLDnaute Occasionnel

cp4

XLDnaute Barbatruc

submarine22

XLDnaute Junior

Discussions similaires