demande mettre 1 et l'onglet apparaît Résolu/Fermé

Question

Bonjour, 

Dans un fichier j'ai plusieurs onglets 

Suite à la demande de mon responsable j'ai cacher tous les onglets SF02 avec la macro :

Sub Cache_Onglets()
For x = 1 To Sheets.Count
If Left(Sheets(x).Name, 4) = "SF02" Then
Sheets(x).Activate
If Range("E12").Value = 0 And Range("E12").Value <> "" Then
'Cache Onglet
Sheets(x).Visible = False
End If
End If
Next x
End Sub

Donc quand je fait Ctrl Maj A les onglets se caches pour l'instant pas de soucis. par contre maintenant il veut que quand je met dans mon 1er onglet un 1 dans une cellule qui correspond à un onglet SF02 l'onglet apparaisse. et je ne sais pas comment m'y prendre car mes suggestions ne fonctionne pas.

pouvez-vous m'aider.

motep2 · Answer

un bouton suivant serait pas mieux?

et dedans tu fais un test

Claudine · Answer

Je ne comprend se que vous voulez dire. Avec un bouton suivant

michel_m · Answer

Bonjour

..."quand je met dans mon 1er onglet un 1 dans une cellule "....

"quand je met dans mon 1er onglet un 1".... " 1 quoi" ?

Mike-31 · Answer

Salut,

le premier code permet de masquer toutes les feuilles à l'exception de la feuille nommée Feuil1
le deuxième code affiche la feuille correspondant au numéro saisie cellule B2 feuil1.
Le déclenchement des macros pour tester les codes doit être fait à partir de boutons mais en B2 par exemple il peut être créé une liste de validation contenant la liste des noms d'onglet pour afficher de la feuille concernée, tout comme pour le premier code masquer les feuilles à partir de raccourci clavier comme  Ctrl Maj A

Sub Masquer_Onglet()
    Dim Ongl As Object
    For Each Ongl In ThisWorkbook.Sheets
    If Ongl.Name <> "Feuil1" Then Ongl.Visible = False
    Next Ongl
 End Sub


 Sub Afficher_Onglet()
    Worksheets([A2].Value).Visible = True
 End Sub

Claudine · Answer

merci cela fonctionne

Mike-31 · Answer

Salut,

Discussion en doublon avec celle ci 
bizarre que toutes les propositions ont été remerciées par des votes négatifs alors que le sujet à été mis en statut résolu drôle façon de remercier les intervenants qui donnent sans compter

Demande mettre 1 et l'onglet apparaît

6 réponses

Discussions similaires