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

[nemesia]

• 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 🙂

 

[phlaurent55]

Bonjoue nemesia,

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

à+
Philippe

 

[nemesia]

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

 

[nemesia]

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.

 

[nemesia]

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