Selction de feuille d'un classeur avec 2 exclusions

Bonjour,

Mes recherches sur le forum n'ayant rien donné je vous pose mon problème :

Je veux déplacer plusieurs feuilles simultanément d'un classeur à l'autre mais dans ce classeur je souhaite exclure 2 feuilles de cette selection. Je connais leur nom mais pas leur position.

j'essaye :

Sheets.Select

For i = 1 To Sheets.Count

If Sheets(i).Name = "MENU" Or Sheets(i).Name = "MODE OP" Then Sheets(i).Select False

Next

mais ça ne fonctionne pas...

Bonjour

Essaie ainsi :

For i = 1 To Sheets.Count
If Sheets(i).Name <> "MENU" And Sheets(i).Name <> "MODE OP" Then Sheets(i).Select 
Next

Bye !

gmb a écrit :

Bonjour

Essaie ainsi :

For i = 1 To Sheets.Count
If Sheets(i).Name <> "MENU" And Sheets(i).Name <> "MODE OP" Then Sheets(i).Select 
Next

Bye !

Merci ça fonctionne pour sélectionner feuille par feuille.

J'ai oublié de préciser que je voudrais sélectionner toutes les feuilles en même temps

Bonjour

Ben14260 a écrit :

je voudrais sélectionner toutes les feuilles en même temps

Sub ess()
    Dim liste
    Dim i&
    ReDim liste(1 To Worksheets.Count - 2)
    For i = 1 To Worksheets.Count
        If Sheets(i).Name <> "Menu" And Sheets(i).Name <> "MODE OP" Then
            liste(i) = Sheets(i).Name
        End If
    Next i
    Sheets(liste).Select
End Subb

Bye !