Lancer une macro SI une case est égale à 0

Bonjour à tous,

Comment rédiger la macro suivante :

" Si la case A1 de cette feuille est égale à 0, cacher cette feuille (sinon ne pas la cacher) " ?

J'ai essayé (en suivant les conseils du tutoriel d'excel) d'utiliser IF THEN dans VB :

Range("A1").Select

If Number = 0 Then

ActiveWindow.SelectedSheets.Visible = False

End If

Lorsque je lance la macro, la feuille se cache même si la case A1 n'est pas égale à O, comme si cela n'avait servi à rien de mettre IF, etc...

Je vous remercie de votre aide.

Un Pépé peu doué en VBA.

Bonjour,

peut être que tu t'es trompé avec tes variables.

en gros avec ton code ca pourrait être :

If Range("A1") = 0 Then: ActiveSheet.Visible = False

cdt

Salut,

Quelque chose comme ça?

Cdt

koro

303pepefleury-vba.xlsm (24.81 Ko)

Génial, ça marche !

J'avais confondu ActiveWindows.SelectedSheets avec ActiveSheet et j'avais oublié les deux points après Then.

Merci infiniment.

Je vais aller me promener dans excel pratique pour voir si je peux, moi aussi, avec mes modestes connaissances, aider quelqu'un.

Rechercher des sujets similaires à "lancer macro case egale"