Appliquer une macro à plusieurs onglets sauf

kit_ou_DOUBLE Messages postés 4 Statut Membre -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention - 7 nov. 2016 à 07:04

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

Afficher la suite

1 réponse

Réponse 1 / 1
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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
1. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588
  
  If ws.Name <> "de" <bold><underline>AND</underline></bold> ws.Name <> "TITI" Then
  
  EDIT : Ajout des balises de code
  
  0
2. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588
  
  If ws.Name <> "de" AND ws.Name <> "TITI" Then
  
  0

Appliquer une macro à plusieurs onglets sauf

EDIT : Ajout des balises de code

1 réponse

EDIT : Ajout des balises de code

EDIT : Ajout des balises de code

Discussions similaires

Newsletters