MACRO Affichage onglet sous condition
Résolu
pygos
Messages postés
202
Statut
Membre
-
Gord21 Messages postés 928 Statut Membre -
Gord21 Messages postés 928 Statut Membre -
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
1 réponse
-
Bonsoir,
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 loinOnglet_OUV: Mot_de_passe = InputBox("Entrez le mot de passe") If Mot_de_passe = "Password" Then ThisWorkbook.WorkSheets("OUV").Activate End If
