Discussion :

[EnguerrandLR]

Bonjour à tous,

J'ai cherché sur le forum mais je n'ai pas trouvé de réponse pouvant répondre à mon problème.
En effet, étant novice en la matière, je ne sais pas totalement modifier un code VBA en fonction de tout mes critères.

J'aimerai pouvoir afficher sans appuyer sur un bouton :

- "Suivi Circulation 1" lorsque la cellule M34 de la feuille "Fiche 2020" > 100 000
- "Suivi Circulation 2" lorsque la cellule M34 de la feuille "Fiche 2020" < 100 000 et >600 000
- "Suivi Circulation 3" lorsque la cellule M34 de la feuille "Fiche 2020" < 600 000

Merci beaucoup,

EnguerrandLR

[Thautheme]

Bonjour EnguerranLR, bonjour le forum,

Tu es sur de tes conditions !?... Elle sont étranges. J'aurais plutôt écris :
1. M34<=100000 / de 0 à 100000
2. 100000>M34<600000 / compris entre 100001 et 599999
3. M34>=600000 / supérieur ou égale à 600000

[Menhir]

J'aimerai pouvoir afficher sans appuyer sur un bouton :
- "Suivi Circulation 1" lorsque la cellule M34 de la feuille "Fiche 2020" > 100 000
- "Suivi Circulation 2" lorsque la cellule M34 de la feuille "Fiche 2020" < 100 000 et >600 000
- "Suivi Circulation 3" lorsque la cellule M34 de la feuille "Fiche 2020" < 600 000

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Select Case Range("M34")
Case Is < 100000
   MsgBox("Suivi Circulation 1")
Case Is < 600000
   MsgBox("Suivi Circulation 2")
Case Else
   MsgBox("Suivi Circulation 3")
End Select

2. 100000>M34<600000

Cette condition aussi est... étrange.

[EnguerrandLR]

Bonjour à tous,

Tout d'abord je vous remercie pour votre aide et oui effectivement mes conditions n'étaient pas complètes, c'est bien <= à chaque fois dont 100 000<=M34<=600 000.

Menhir, lorsque j'insère ton code et que j'effectue des tests, aucune feuilles masquées ne s'affichent...

Comme je vous l'ai dit je suis novice, débutant voir même bambin dans les Macros et VBA

Merci beaucoup,

EnguerrandLR

[Menhir]

Menhir, lorsque j'insère ton code et que j'effectue des tests, aucune feuilles masquées ne s'affichent...

Où as-tu précisé que ces désignations étaient des nom d'onglets masqués à rendre visible ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Select Case Range("M34")
Case Is < 100000
   Sheets("Suivi Circulation 1").Visible = True
Case Is < 600000
   Sheets("Suivi Circulation 2").Visible = True
Case Else
   Sheets("Suivi Circulation 3").Visible = True
End Select

[EnguerrandLR]

Impeccable, merci beaucoup !