Activer un onglet à partir valeur cellule

Résolu
pygos Messages postés 185 Date d'inscription   Statut Membre Dernière intervention   -  
kocipia Messages postés 14 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 voir également:

7 réponses

kocipia Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention  
 
l'onglet existerai déjà ou il serait à créer ?
0
pygos Messages postés 185 Date d'inscription   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention  
 
Merci ! C'est exactement ce que je recherche !


Cordialement,

Pygos
0
kocipia Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 
De rien ravi de t'avoir aidé.

A bientôt
0