Appliquer une macro à plusieurs onglets sauf

kit_ou_DOUBLE Messages postés 4 Statut Membre -  
yg_be Messages postés 24281 Statut Contributeur -
Bonjour,

je veux appliquer la marco à plusieurs onglets de mon fichier sauf quelques uns!!!

j'ai essayé avec :

/*****************************************/ 
For Each WS In Worksheets
If WS.Name <> "de" Or WS.Name <> "TITI" Then

Macro 

elseif
next

/**********************************************/

mais je pense que quand il y'a " each ws " on ne peut pas exclure des onglets ..
sinon j'ai 150 onglets auquels je voudrais appliquer la macro sauf 3.

avez vous une idée de comment faire

EDIT : Ajout des balises de code

Merci pour votre aide

1 réponse

Réponse 1 / 1
yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584
 
Je pense que tu es bien parti : 
Sub allws()
Dim ws As Worksheet

For Each ws In Worksheets
If ws.Name <> "de" Or ws.Name <> "TITI" Then

'fais tout ce que tu veux

End If
Next
End Sub

EDIT : Ajout des balises de code

1
yg_be Messages postés 24281 Statut Contributeur 1 584
  
If ws.Name <> "de" <bold><underline>AND</underline></bold> ws.Name <> "TITI" Then

EDIT : Ajout des balises de code

0
yg_be Messages postés 24281 Statut Contributeur 1 584
  
If ws.Name <> "de" AND ws.Name <> "TITI" Then
0

Discussions similaires

Excel bouton vers une feuille
hkahil -
Kjop -

18 réponses
macro pour comparer 2 listes sous excel
coco -
lermite222 -

23 réponses
[VBA/EXCEL] :Sauver uniquement une feuille ?
Pemex -
Pemex -

2 réponses
VBA Excel Copie feuille dans autre classeur
Infest -
VBA75 -

8 réponses
Renommer une feuille excel avec une cellule
rgtahiti -
Vaucluse -

12 réponses
[Excel] autoriser macro dans feuille protégée
herve3168 -
LN -

13 réponses