[Résolu]Macro onglet visible sur critères

[Annette]

Bonsoir le forum,

Je recherche une solution par macro à ma problématique:
Par exemple, pour un classeur contenant 3 feuilles, je souhaite une macro qui m'affiche la feuille 1 et cache les deux autres (celle-ci je l'ai dans ma musette). La complication pour moi est la suivante:
Feuille 2 et 3 cachées (en fait toute les autres feuilles)
Lorsque 2 conditions sont réunies, je souhaite que la feuille 1 soit cachée et que la feuille 2 soit visible et ainsi de suite.
Est-ce possible et si oui quelqu'un pourrait-il me proposer une solution ?

Merci pour vos réponses

Cordialement

 

[Paf]

Re : Macro onglet visible sur critères

bonjour

les 2 conditions étant Cellules J14 et J16 = OK.
Comment sont mises à jour ces cellules ? manuellement ? par formule?

A+

 

[Staple1600]

Re : Macro onglet visible sur critères

Bonsoir à tous

Annette
Par exemple, pour un classeur contenant 3 feuilles, je souhaite une macro qui m'affiche la feuille 1 et cache les deux autres (celle-ci je l'ai dans ma musette)
Pourquoi dans la musette et pas dans le fichier joint ?

Ton fichier exemple ne contient aucune macro...

 

[Annette]

Re : Macro onglet visible sur critères

Bonsoir Paf,

Je n'ai pas précisé que les cellules sont mises à jour par formule.

Cordialement

 

[Si...]

Re : Macro onglet visible sur critères

salut

dans la page de code de la feuille (click bouton droit sur le nom de l'onglet puis Visualiser le code)

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Si As Boolean
  Si = [J14] = "OK" And [J16] = "OK" 'si = Vrai si les 2 sont OK
  Feuil2.Visible = Si: Feuil3.Visible = Si
End Sub

Remplace And par Or pour n'envisager qu'un des 2 cas.

 

[Annette]

Re : Macro onglet visible sur critères

Bonsoir Staple1600,

Cette macro est dans ma musette car je n'en ai pas besoin pour cette manipulation là ni pour ce fichier.

Cordialement

 

[Annette]

Re : Macro onglet visible sur critères

Bonsoir Si...,

Votre proposition est ce que je souhaite mais il faudrait que lorsque les conditions de la feuille 1 soient réunies, la feuille 2 apparaisse (chose qui se fait actuellement) et que la feuille 1 disparaisse à son tour.

Merci pour votre retour.

Cordialement

 

[Staple1600]

Re : Macro onglet visible sur critères

Re, Bonsoir Si...

Comme j'ai titillé mon VBE, je poste (en guise de piste à suivre ou pas)
(code à mettre dans ThisWorkBook)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Sh.Name
Case "Feuil1"
Sh.Next.Visible = 0: Sh.Next.Next.Visible = 0
Case "Feuil2"
Sh.Next.Visible = 0: Sh.Previous.Visible = 0
Case "Feuil3"
Sh.Previous.Visible = 0: Sh.Previous.Previous.Visible = 0
End Select
End Sub

NB: J'ai bien dit piste, pas solution

 

[Si...]

Re : Macro onglet visible sur critères

re

finir par

...Feuil3.Visible = Si: Feuil1.Visible = Not Si

Remarques

- par la suite faudra prévoir la visualition de cet onglet
- pour s’affranchir des majuscules/minuscules, écrire en haut de la page : Option Compare Text

 

[Annette]

Re : Macro onglet visible sur critères

Merci pour vos retours.
Je teste dès que possible et reviens si je coince .

Cordialement

 

[Staple1600]

Re : Macro onglet visible sur critères

Re

Annette
Tu parles de tester quel code?
Parce que le mien, je l'ai testé et il fonctionne
(cf mon précédent message)

Celui de Si... aussi

Je partage cette remarque de Si... également

Remarques
- par la suite faudra prévoir la visualition de cet onglet

 

[Annette]

Re : Macro onglet visible sur critères

Staple1600,

NB: J'ai bien dit piste, pas solution

D'où mes tests avec votre macro que je n'arrive bien évidemment pas à adapter.
Votre macro actuelle fonctionne sauf que les feuilles 2 et 3 sont masquées quoiqu'on entre dans n'importe quelle cellule de la feuille 1.
Une fois de plus, je précise que j'ai du mal à comprendre le langage VB (très jeune débutante) et c'est pour cela que je demande de l'aide.

Si ...,

Je ne souhaite pas faire réapparaitre les onglets masqués, en revanche pouvez-vous me dire si il est possible lors de l'ouverture de ne faire qu'apparaitre la feuille 1, et si oui, pourriez-vous me donner la marche à suivre.

Merci à vous deux et au forum.

Cordialement

 

[Staple1600]

Re : Macro onglet visible sur critères

Re

Annette
C'est normal puisque je n'ai pas inclu ce qui Si... a inclu

Si = [J14] = "OK" And [J16] = "OK" 'si = Vrai si les 2 sont OK

Donc il suffit de s'inspirer de Si.. pour compléter la macro précédente

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Range("J14") = "OK" And Sh.Range("J16") = "OK" Then
Select Case Sh.Name
Case "Feuil1"
Sh.Next.Visible = 0: Sh.Next.Next.Visible = 0
Case "Feuil2"
Sh.Next.Visible = 0: Sh.Previous.Visible = 0
Case "Feuil3"
Sh.Previous.Visible = 0: Sh.Previous.Previous.Visible = 0
End Select
End If
End Sub

Mais reste toujours à prendre en compte la remarque de Si...
Une fois masquée, comment on réaffiche les feuilles ?
(à part avec une macro de ce type dans un module standard)

Sub a()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Visible = True
Next
End Sub

 

[Annette]

Re : Macro onglet visible sur critères

Staple1600,

C'est ce que je tente de faire depuis un bon moment ...

Cordialement

 

[Staple1600]

Re : Macro onglet visible sur critères

Re

Annette
Et c'est ce que j'ai ajouté dans mon précédent message, non ?
Je parle du test sur J14 et J16

Sinon pour ne laisser que la feuille 1 visible, tester ce code
(à mettre dans ThisWorkBook)

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Index > 1 Then
ws.Visible = 0
End If
Next
End Sub