Macro afin de Masquer un onglet suivant une condition

Question

Bonjour à tous,

Je suis un novice, dans l'établissement des MACRO, et je suis confronté à un problème que je n'arrive pas à résoudre,

Sur le Classeur Excel que j'utilise, j'ai de nombreux onglet, ( "RECAP A" - "RECAP B" - "RECAP C " etc...),ces "RECAP", récupèrent des informations sur un autre onglet.

Sur Chacun de ces onglet "RECAP", la cellule ( colonne AP ; Ligne 1 ), effectue une somme,
Je souhaiterais donc, masquer les onglets, qui on la cellule "AP1"= 0, et si elle est supérieur à 0 l'onglet reste affiché.

Merci d'avance pour vos réponse. 
A Bientot
:)

Polux31 · Answer

Bonjour;

Peut être avec ça:

Dim sh
Dim ws As WorkSheet

For Each sh In ThisWorkbook.WorkSheets
     Set ws = sh
     If ws.Range("AP1").Value <> 0 Then
          ws.Visible = False
     Else
          ws.Visible = True
     End If
     set ws = Nothing
Next sh

Bipbip094 · Answer

Bonjour,

Merci Beaucoup, pour votre réponse,

Lorsque j'associe cette macro à un bouton, il y a un message d'erreur qui apparait,

" Erreur de Compilation 
  Instruction incorrect à l'extérieur d'une procédure"

Et me Surligne la ligne suivante de la Macro:" For Each sh In ThisWorkbook.WorkSheets".

Merci D'avance pour vos Réponse,
A bientôt,

Polux31 · Answer

Bonjour,

Ça fonctionne chez moi, je ne comprends pas.

Bipbip094 · Answer

Re Bonjour,

En Effet elle fonctionne parfaitement,( elle ne fonctionnait pas dû à une mauvaise manip de ma part)

Je vous remercie beaucoup, pour votre aide,

a très bientôt,
:)

Macro afin de Masquer un onglet suivant une condition

4 réponses

Discussions similaires

Newsletters