Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Macro sur plusieurs feuilles sauf 2

  • Initiateur de la discussion Initiateur de la discussion Tony44
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Tony44

XLDnaute Occasionnel
Bonjour,

je cherche un code pour appliquer une macro sur toutes les feuilles du classeur sauf 2.
une des feuilles s'appelle "b34" et l'autre s'appelle "TCD"

en fait, la macro que j'ai créé lance une autre macro appelée 'Avancement', mais je veux pas que cette macro s'applique au 2 feuilles nommées ci-dessus.

comment puis-je écrire mon code ?

pour l'instant j'ai fais ça :


Sub Nb_Feuille()

Dim Feuille As Worksheet

For Each Feuille In ThisWorkbook.Worksheets

With Feuille
Application.Run "'Signa_20171030_B34_mis en forme - S45.xlsm'!avancement"
End With

Next Feuille

End Sub
 
Bonjour Tony,

essaie ceci:
Code:
Sub Nb_Feuille()

Dim Feuille As Worksheet

For Each Feuille In ThisWorkbook.Worksheets
If Feuille.Name <> "b34" And Feuille.Name <> "TCD" Then
With Feuille
Application.Run "'Signa_20171030_B34_mis en forme - S45.xlsm'!avancement"
End With
End If
Next Feuille

End Sub
à+
Philippe
 


Bonjour Philippe,

malheureusement ça ne marche pas, la macro qui doit se lancer sur tous les onglets sauf le b34 et le TCD se lance qd meme dessus.
 
Re,

Petite erreur due à la précipitation,

Remplace "And" par "Or"

À+
Philippe
je comprend pas, ça bug.

je me permet de mettre le fichier en pièce jointe, je comprend pas pourquoi ça bug.
qd je suis sur l'onglet b34 et TCD, la macro ne marche pas et quand je me place que les autres, ça fonctionne bien.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
316
Réponses
4
Affichages
580
Réponses
5
Affichages
703
Réponses
9
Affichages
730
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…