Activer un onglet à partir valeur cellule

Résolu/Fermé
pygos Messages postés 185 Date d'inscription vendredi 5 septembre 2008 Statut Membre Dernière intervention 3 mars 2021 - Modifié par pygos le 14/04/2010 à 13:48
kocipia Messages postés 14 Date d'inscription jeudi 16 avril 2009 Statut Membre Dernière intervention 7 juin 2012 - 14 avril 2010 à 15:12
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

7 réponses

kocipia Messages postés 14 Date d'inscription jeudi 16 avril 2009 Statut Membre Dernière intervention 7 juin 2012
14 avril 2010 à 13:42
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
0
pygos Messages postés 185 Date d'inscription vendredi 5 septembre 2008 Statut Membre Dernière intervention 3 mars 2021
14 avril 2010 à 13:59
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
0
kocipia Messages postés 14 Date d'inscription jeudi 16 avril 2009 Statut Membre Dernière intervention 7 juin 2012
14 avril 2010 à 14:14
l'onglet existerai déjà ou il serait à créer ?
0
pygos Messages postés 185 Date d'inscription vendredi 5 septembre 2008 Statut Membre Dernière intervention 3 mars 2021
14 avril 2010 à 14:24
L'onglet est déja créé et à la lecture du login je voudrais
qu'il soit affiché ...........

Merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
kocipia Messages postés 14 Date d'inscription jeudi 16 avril 2009 Statut Membre Dernière intervention 7 juin 2012
14 avril 2010 à 14:51
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.
0
pygos Messages postés 185 Date d'inscription vendredi 5 septembre 2008 Statut Membre Dernière intervention 3 mars 2021
14 avril 2010 à 15:10
Merci ! C'est exactement ce que je recherche !


Cordialement,

Pygos
0
kocipia Messages postés 14 Date d'inscription jeudi 16 avril 2009 Statut Membre Dernière intervention 7 juin 2012
14 avril 2010 à 15:12
De rien ravi de t'avoir aidé.

A bientôt
0