liste les onglet

[GHISLAIN]

bonjour a tous

je viens de trouver un code qui me plait bien puisque qu il fait presque ce que je souhaite

il liste les onglets de mon classeur sauf la feuille liste

Dim sht As Worksheet
For Each sht In Worksheets
If sht.Name <> "LISTE" Then
ListBox1.AddItem sht.Name
End If
Next sht

je souhaiterais completer ce code pour que plusieurs feuilles n apparaissent dans la liste
j ai testé celui ci mais sans grand succes

For Each sht In Worksheets
If sht.Name <> "LISTE" or "LISTE2" OR "Feuil6" Then
ListBox1.AddItem sht.Name
End If
Next sht

merci de votre aide a tous

amicalement

ghislain

 

[Grand Chaman Excel]

Re : liste les onglet

Bonjour Ghislain,

Essaie ceci :

For Each sht In Worksheets
If sht.Name <> "LISTE" or sht.name <> "LISTE2" OR sht.name <> "Feuil6" Then
ListBox1.AddItem sht.Name
End If
Next sht

(non testé)

 

[GHISLAIN]

Re : liste les onglet

bonjour Grand Chaman Excel

je viens de le tester il ne fonctionne pas , toute les feuilles reste affichées

je cherche encore lol

merci

 

[Grand Chaman Excel]

Re : liste les onglet

Re-bonjour,

Oups... En effet, il faut remplacer les OR par des AND :

For Each sht In Worksheets
If sht.Name <> "LISTE" AND sht.name <> "LISTE2" AND sht.name <> "Feuil6" Then
ListBox1.AddItem sht.Name
End If
Next sht

Cordialement

 

[GHISLAIN]

Re : liste les onglet

Grand Chaman excel un grand merci , ça fonctionne

bonne soiree

amicalement

ghislain