Demande mettre 1 et l'onglet apparaît
Résolu
Claudine
-
Mike-31 Messages postés 18407 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18407 Date d'inscription Statut Contributeur Dernière intervention -
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.
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.
A voir également:
- Demande mettre 1 et l'onglet apparaît
- Rouvrir onglet fermé chrome - Guide
- Clé usb n'apparait pas - Guide
- Facebook rencontre n'apparait pas ✓ - Forum Facebook
- Problème Facebook rencontre - Forum Facebook
- Identification facebook n'apparait pas sur mon mur - Forum Facebook
6 réponses
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
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
Bonjour
..."quand je met dans mon 1er onglet un 1 dans une cellule "....
"quand je met dans mon 1er onglet un 1".... " 1 quoi" ?
..."quand je met dans mon 1er onglet un 1 dans une cellule "....
"quand je met dans mon 1er onglet un 1".... " 1 quoi" ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
