Activer un onglet à partir valeur cellule
Résolu
pygos
Messages postés
202
Statut
Membre
-
kocipia Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
kocipia Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
A l'ouverture d'un fichier excel avec x onglets, je lis le login d'une carte
d'accès, puis je copie ce login dans une cellule B2.
Comment puis ouvrir uniquement l'onglet correspondant à la valeur de la
cellule B2.
Macro correspondante svp ....
Exemple :
Login = TOTO - (copié dans la cellule B2, à l'ouverture)
Ouverture onglet TOTO uniquement .
Merci d'avance,
Pygos
A l'ouverture d'un fichier excel avec x onglets, je lis le login d'une carte
d'accès, puis je copie ce login dans une cellule B2.
Comment puis ouvrir uniquement l'onglet correspondant à la valeur de la
cellule B2.
Macro correspondante svp ....
Exemple :
Login = TOTO - (copié dans la cellule B2, à l'ouverture)
Ouverture onglet TOTO uniquement .
Merci d'avance,
Pygos
7 réponses
-
Bonjour,
Dis moi si ça te va :
Sub Macro1()
If Cells(2, 2).Value = "TOTO" Then
Sheets("TOTO").Select
GoTo fin
End If
If Cells(2, 2).Value = "TATA" Then
Sheets("TATA").Select
GoTo fin
End If
fin:
End Sub
Sheets("TOTO").Select ==> Remplace TOTO par le nom de ton onglet.
A bientôt -
Tout d'abord Merci pour cette solution .
Je souhaite que dans la macro le nom de
l'onglet à ouvrir soit identifié automatiquement
par la valeur indiqué dans la cellule B2.
Ce qui m'éviterait de d'écrire tous les noms
dans la macro, sachant que les personnes
travaillant sur ce fichier sont gérés dans une table (onglet).
Merci d'avance -
l'onglet existerai déjà ou il serait à créer ?
-
L'onglet est déja créé et à la lecture du login je voudrais
qu'il soit affiché ...........
Merci -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Sub Macro1()
nomonglet = Cells(2, 2)
If Cells(2, 2).Value = "" Or Cells(2, 2) Is Nothing Then
MsgBox ("Merci d'inscrire un login en cellule B2.")
GoTo fin
End If
Sheets("" & nomonglet).Select
fin:
End Sub
Dis moi si c'est ce que tu recherches. -
Merci ! C'est exactement ce que je recherche !
Cordialement,
Pygos -
De rien ravi de t'avoir aidé.
A bientôt
