ListBox avec noms des onglets se terminant par [Résolu]

Signaler
Messages postés
1061
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
12 octobre 2020
-
Messages postés
1061
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
12 octobre 2020
-
Bonjour le forum,
à cet instant, je n'apporte pas mon aide mais je viens solliciter la votre !
J'ai créé un fichier avec un ajout d'onglet via UsF

Ces onglets ont un numéro d'ID toujours différents et ces onglets se finissent toujours par -ST1 ou -ST2.

Un exemple : 1234-ST1 ou 2478-ST2

J'ai trouvé un bout de code qui permet d'afficher (ou non) la liste des onglets/ListBox suivant la recherche d'un mot-clé.

Cependant, il m'est impossible de définir le contenu de ces ListBox avec seulement une partie de texte des onglets.

Voici le code que j'utilise :

Private Sub Listbox_ICP_enter()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
If sh.Name <> "*ST1" Then
Me.ListBox_ICP.AddItem sh.Name
End If
Next sh
End Sub


J'ai mis un * devant ST1, m'imaginant que cela fonctionnerait, mais non !

J'ai fait des recherches mais infructueuses

Configuration: Windows / Chrome 85.0.4183.102


2 réponses

Messages postés
23558
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
12 octobre 2020
6 402
Bonjour,

If Not sh.Name Like "*ST1" Then 

ou avec Right(sh.Name,3)<>
eric

En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Messages postés
1061
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
12 octobre 2020
106
Merci eriiic, je ne connaissais absolument pas ce Like en VBA !