MACRO Affichage onglet sous condition
Résolu
pygos
Messages postés
185
Date d'inscription
Statut
Membre
Dernière intervention
-
Gord21 Messages postés 918 Date d'inscription Statut Membre Dernière intervention -
Gord21 Messages postés 918 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Dans une cellule D1 , à l'ouverture du fichier une macro lit le login de la carte agent,
puis l'indique dans la cellule D1 en format texte.
Exemple : Cellule D1 = "10200"
J'ai une macro, qui ouvre l'onglet correspondant au login.
Pour l'exemple, l'agent "10200", ouvre le fichier, à la lecture du login,
si un onglet "10200" est créé, celui-ci s'affiche.
Enfin ma question est :
Si un agent ouvre le fichier mais qu'aucun onglet à son login n'existe, je souhaite que l'agent doivent indiquer un mot de passe et à la bone réponse il voit l'onglet "OUV"
s'afficher .
Merci d'avance,
PYGOS
Dans une cellule D1 , à l'ouverture du fichier une macro lit le login de la carte agent,
puis l'indique dans la cellule D1 en format texte.
Exemple : Cellule D1 = "10200"
J'ai une macro, qui ouvre l'onglet correspondant au login.
Pour l'exemple, l'agent "10200", ouvre le fichier, à la lecture du login,
si un onglet "10200" est créé, celui-ci s'affiche.
Enfin ma question est :
Si un agent ouvre le fichier mais qu'aucun onglet à son login n'existe, je souhaite que l'agent doivent indiquer un mot de passe et à la bone réponse il voit l'onglet "OUV"
s'afficher .
Merci d'avance,
PYGOS
A voir également:
- MACRO Affichage onglet sous condition
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Excel cellule couleur si condition texte - Guide
- Rouvrir onglet fermé chrome - Guide
- Affichage double ecran - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
1 réponse
Bonsoir,
Tu pourrais avoir quelque chose de ce type.
Dans ton code, tu insères :
puis plus loin
Tu pourrais avoir quelque chose de ce type.
Dans ton code, tu insères :
On Error Goto Onglet_OUV
ThisWorkbook.WorkSheets("10200").Activate
On Error Goto 0
puis plus loin
Onglet_OUV:
Mot_de_passe = InputBox("Entrez le mot de passe")
If Mot_de_passe = "Password" Then
ThisWorkbook.WorkSheets("OUV").Activate
End If