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

application d'un macro sur plusieur feuille d'un classeur

  • Initiateur de la discussion Initiateur de la discussion nemesia
  • Date de début Date de début
  • Mots-clés Mots-clés
    résolu

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 !

N

nemesia

Guest
  • Bonjour a tous,
Grace a votre forum j'ai beaucoup appris mais je ne comprend pas pourquoi mon code ne veut pas marcher correctement j'essaye d'appliquer ceci sur toute les feuilles de mon classeur sa lance le program et me fait une erreur 1004 sur sh.select ce qui est assez désagréable sachant qu'elle s'applique déjà sur la moitié de mes feuilles.



merci du coup de main si il y a possibilité j'espère avoir été clair 🙂
 
Bonjoue nemesia,

y aurait-il des feuilles masquées dans ton fichier ?

à+
Philippe


Merci beaucoup je ne savais pas que sa pouvait avoir des conséquences sa a l'air de marcher. Je demande on sais jamais j'ai fait en sorte comme tu a du le voir de mettre des 1 ou des 0 dans des cellules Est-ce que tu pense qu'il y a un moyen de récupérer c valeur et de faire si je clique sur un bouton en sorte d'afficher sur la page ou j'ai actionner le bouton telle page a 1 dans tel cellule la pour l'exemple ma cellule est colonne b ligne 56 et dans ma boite de message me dire le nom des pages ? je me demande si c faisable merci de ton temps précieux 😉
Alexis
 
j'ai oublier de préciser mais j'ai n nombre de page je sais pas si c un détails important je le précise quand même.
 
j'ai oublier de préciser mais j'ai n nombre de page je sais pas si c un détails important je le précise quand même.
j'ai fait sa ca lair de marcher
Sub test()
Application.ScreenUpdating = True
For Each sh In Worksheets

sh.Select
If Cells(56, 2).Value = 1 Then
MsgBox (sh.Name & " a 6 mois de non production")
End If
Next sh
End Sub
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
Réponses
1
Affichages
2 K
Chalafraiz
C
S
Réponses
4
Affichages
10 K
S
L
Réponses
1
Affichages
2 K
Lison Lisette
L
B
Réponses
2
Affichages
1 K
babylonzoo
B
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…