MACRO Affichage onglet sous condition

Résolu/Fermé

pygos Messages postés 185 Date d'inscription vendredi 5 septembre 2008 Statut Membre Dernière intervention 3 mars 2021 - 22 avril 2010 à 14:55
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 - 23 avril 2010 à 21:20

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

A voir également:

MACRO Affichage onglet sous condition
Excel cellule couleur si condition texte - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Rouvrir onglet fermé - Guide

1 réponse

Réponse 1 / 1

Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
23 avril 2010 à 21:20

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 loin

Onglet_OUV:
Mot_de_passe = InputBox("Entrez le mot de passe")
If Mot_de_passe = "Password" Then
   ThisWorkbook.WorkSheets("OUV").Activate
End If

Discussions similaires

Copie automatique tableau Excel sans macro

adele

Excel : colorer une cellule sous condition d'une autre ?

Discussions similaires

Newsletters