activer / ouvrir une feuille

[mariobross]

bonsoir au forum .je cherche un code pour activer une feuille de calcul en selectionnant son nom dans une cellule .

ex: si dans a1 il y a feuille 2 la routine ouvre feuille 2 ;si il y a feuil3
elle ouvre feuil3 ect......
merci pour vos aide.

 

[Robert]

Bonsoir Mariobross, bonsoir le forum,

Je te propose cette solution qui fonctionne sur le double-clic. Ce code doit être adapté et placé dans le composant Worksheet (Feuil1(Feuil1) par exemple) de l'onglet approprié :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'au double clic dans la cellule
If Target.Address <> '$A$1' Then Exit Sub 'n'agit que dans la cellule A1 (à adapter)
On Error Resume Next 'évite le bug si la cellule est vide ou ne contient pas de nom d'onglet
Sheets(Target.Value).Activate 'active l'onglet mentionné dans la cellule
Cancel = True 'evite le menu contextuel lié au bouton droit de la souris
End Sub

Message édité par: Robert, à: 09/10/2005 19:50

 

[mariobross]

merci robert pour ton aide , mais en fait je me suis mal exprimé , je ne veux pas sélectionner le nom dans la cellule par un cliq dessus , je voudrai un morceau de code qui permette dans ma routine d'ouvrir la feuil1 si feuil1 est inscrit dans la cellule a1 de la feuille active ; et d'ouvrir la feuil2 si ...........
merci robert pour le travail plus fastidieux que tu as fourni .

 

[Robert]

Bonsoir Mariobross, bonsoir le forum,

Désolé je n'avais pas compris. Essaie comme ça alors :

Sub Macro1()
On Error Resume Next
Sheets(Sheets('Feuil1').Range('A1').Value).Activate
End Sub

 

[mariobross]

merci robert c'est ce que je voulais. cela dit je testerai ton code pour cliquer sur la cellule ; c'est amusant. merci.