activer / ouvrir une feuille

mariobross · 9 Octobre 2005

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 · 9 Octobre 2005

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 · 9 Octobre 2005

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 · 9 Octobre 2005

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 · 9 Octobre 2005

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

activer / ouvrir une feuille

mariobross

Guest

Robert

XLDnaute Barbatruc

mariobross

Guest

Robert

XLDnaute Barbatruc

mariobross

Guest

Discussions similaires