Discussion :

[henrynv]

Bonjour à tous,

Je suis débutant en VBA et j'ai un problème qui devrait vous paraître très simple. Je souhaiterais masquer des onglets mais y faire appel en fonction de la réponse d'un utilisateur.

Mon premier onglet Accueil pose une question à l'utilisateur:
En quel mois êtes vous nés?

L'utilisateur choisit alors sa réponse dans une liste (issue de Données Validation).

Je voudrais que cela permette l'ouverture de l'onglet "NOM MOIS" (exemple: ouverture uniquement de l'onglet Février s'il est né en février) qui correspond à sa réponse. Je veux que les autres onglets restent masqués.

Lorsque je décide de masquer un onglet avec le "clic droit", je ne peux pas y faire appel par la suite. Il faut qu'il soit en position "Afficher". Il semblerait que je puisse obtenir un meilleur résultat avec VBA.

Bien cordialement,

Nicolas

N'hésitez à demander des infos complémentaires.

[Bear the french]

Bonsoir henrynv,

Une tentative à adapter, il faut que la variable x recueille la réponse à ta validation de données :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub afficheongletx()
'---------------------------------------------------------------------------------------
' Macro qui affiche le "mois de mai" qui était un onglet masqué
'---------------------------------------------------------------------------------------
 
Dim Fe As Worksheet
Dim x As String
 
' cela peut être issue d'une validation de données
x = "mai"
 
    ' on parcours tout le classeur
    For Each Fe In ThisWorkbook.Worksheets
 
        ' quand le nom du mois est trouvé, on rend l'onglet visible
        If Fe.Name = x Then
            Sheets(x).Visible = True
        End If
 
    Next Fe
 
End Sub

Bertrand

[henrynv]

Merci beaucoup Bertrand, ta macro fonctionne parfaitement bien!

je voudrais juste rajouter un élément: faire en sorte qu'on ne puisse pas ouvrir plus d'un onglet (en dehors de l'onglet Accueil) à la fois. En d'autres termes, si l'utilisateur ouvre l'onglet Mai mais souhaite finalement l'onglet Février, je voudrais qu'Excel ferme automatiquement l'onglet Mai

As-tu un idée?

Bonne journée à toi,

Nicolas

[Bear the french]

Bonsoir henrynv,

Il suffit de modifier le premier code : si la feuille est "mai" alors afficher sinon si la feuille est "Accueil" alors afficher sinon dans tous les autres cas masquer.

Tu imbriques des si et des sinons (il y a d'autres méthodes quand les conditions sont plus nombreuses)

Voilà :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub afficheongletx()
'---------------------------------------------------------------------------------------
' Macro qui affiche le "mois de mai" qui était un onglet masqué, qui masque les autres onglets sauf Accueil
'---------------------------------------------------------------------------------------
 
Dim Fe As Worksheet
Dim x, y As String
 
 
' cela peut être issue d'une validation de données
x = "mai"
y = "Accueil"
 
    For Each Fe In ThisWorkbook.Worksheets
 
        If Fe.Name = x Then
            Sheets(x).Visible = True
        Else
            If Fe.Name = y Then
                Sheets(y).Visible = True
            Else
                Fe.Visible = False
            End If
        End If
 
    Next Fe
 
End Sub

Bertrand