Appliquer une macro à plusieurs onglets sauf

Fermé

kit_ou_DOUBLE Messages postés 4 Date d'inscription jeudi 9 juillet 2009 Statut Membre Dernière intervention 9 juillet 2009 - Modifié par jordane45 le 7/11/2016 à 02:42
yg_be Messages postés 23327 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 novembre 2024 - 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

A voir également:

Appliquer une macro sur plusieurs feuilles
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide
Fusionner plusieurs feuilles excel en une seule - Guide
Désinstaller une application sur pc - Guide
Comment faire un livret avec des feuilles a4 - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 23327 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 novembre 2024 Ambassadeur 1 551
Modifié par jordane45 le 7/11/2016 à 02:42

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

yg_be Messages postés 23327 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 novembre 2024 1 551
Modifié par jordane45 le 7/11/2016 à 02:42

If ws.Name <> "de" <bold><underline>AND</underline></bold> ws.Name <> "TITI" Then

EDIT : Ajout des balises de code

yg_be Messages postés 23327 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 novembre 2024 1 551
7 nov. 2016 à 07:04

If ws.Name <> "de" AND ws.Name <> "TITI" Then

Discussions similaires

Excel bouton vers une feuille

macro pour comparer 2 listes sous excel

[VBA/EXCEL] :Sauver uniquement une feuille ?

VBA Excel Copie feuille dans autre classeur

Renommer une feuille excel avec une cellule

[Excel] autoriser macro dans feuille protégée