problème listbox(RESOLU)

[regnum]

bonsoir à tous

j'ai un petit soucie avec ma listbox.
voilà , donc je remplie ma listbox avec les noms des feuilles de mon classeur.Jusque là pas de problème mais je voudrais ne pas avoir dans ma listbox certaines feuilles.Dans mon exemple , je voudrais que les feuilles ok1 et ok2 soient dans la listbox mais pas la feuille non ok.

merci

 

[Compte Supprimé 979]

Re : problème listbox

Bonsoir regnum,

Une possibilité

Private Sub UserForm_Initialize()
  Dim a As Integer, sh As Worksheets
  Dim ListeNonOK As String
  ListeNonOK = "non ok"
  For a = 1 To Sheets.Count
    If InStr(1, ListeNonOK, Sheets(a).Name, vbTextCompare) = 0 Then
      ListBox1.AddItem Sheets(a).Name
    End If
  Next
End Sub

En revanche pose problème si le nom d'une feuille OK est contenu dans le nom d'une feuille Non OK
Exemple : "Non OK1" et "OK1"

A+

 

[regnum]

Re : problème listbox

bonsoir brunoM45

je vois qu'il y a encore du monde à "bouffer de code" à l'heure qu'il est ....lol

merci pour ta réponce,ça fonctionne impec pour 1 feuille nonok mais pour plusieurs feuilles

les feuilles de mon fichier ont bien des noms distinctes

merci

 

[Compte Supprimé 979]

Re : problème listbox

Re,

Donc le code sera OK

Au plaisir

 

[regnum]

Re : problème listbox

re brunoM45

juste une chose, quant on a plusieur feuilles nonok,comment faire?

merci

 

[Compte Supprimé 979]

Re : problème listbox

Re,

Les mettres dans la liste

ListeNonOK = "non ok,toto,tata,titi"

Dans le code, INSTR() est une fonction qui recherche un mot dans un ensemble de termes

A+

 

[regnum]

Re : problème listbox

Re,

merci ça fonctionne impec

je te remercie

A+