Macro Excel 03 pour lien hypertexte
jblefooteux
Messages postés
11
Statut
Membre
-
WeaponEDGE -
WeaponEDGE -
Bonjour,
Je souhaite créer une macro qui permettrait d'avoir un lien hypertexte (vers une feuille) variable en fonction de la valeur d'une cellule.
Exemple pour illustrer ma pensée:
Si le mot "Cigarette" s'affiche dans la cellule B9, alors en cliquant sur mon lien hypertexte, celui-cie m'envoie à la feuille nommée "Paquet". En revanche, si cette fois le mot "Cigare" s'affiche dans la cellule B9, alors en cliquant sur ce même lien hypertexte, celui-ci m'envoie à la feuille nommée "Cave".
J'espère que mon exemple est clair. Si vous avez une idée, je suis preneur.
Par avance merci :)
Bonne journée
Je souhaite créer une macro qui permettrait d'avoir un lien hypertexte (vers une feuille) variable en fonction de la valeur d'une cellule.
Exemple pour illustrer ma pensée:
Si le mot "Cigarette" s'affiche dans la cellule B9, alors en cliquant sur mon lien hypertexte, celui-cie m'envoie à la feuille nommée "Paquet". En revanche, si cette fois le mot "Cigare" s'affiche dans la cellule B9, alors en cliquant sur ce même lien hypertexte, celui-ci m'envoie à la feuille nommée "Cave".
J'espère que mon exemple est clair. Si vous avez une idée, je suis preneur.
Par avance merci :)
Bonne journée
1 réponse
-
Bonjour,
Pour ton Exemple :
- Ouvre un nouveau fichier
- Renomme la Feuille1 "Sheet1"
- Renomme la Feuille2 "PAQUET"
- Renomme la Feuille3 "CAVE"
Ouvre le module VBA en faisant Alt + F11.
Tu devrais voir une fenêtre avec un répertoire intitulé = "Microsoft Excel object"
Dans ce répertoire double click sur la Feuille "Sheet1"
Une page Blanche doit apparaitre.
Copy Le code (qui commence à SUB et se termine à END SUB) ci-dessous à l'intérieur de la page.
Sub Worksheet_SelectionChange(ByVal Target As Range)
Trouve = 0
Select Case Sheets("Sheet1").Cells(1, 1)
Case "Cigarette"
Var_Name = "Cigarette"
Var_Adresse = "PAQUET!A1"
Case "Cigare"
Var_Name = "Cigare"
Var_Adresse = "CAVE!A1"
Case Else
Trouve = 1
End Select
If Trouve = 0 Then
Cells(1, 1).Select
Selection.Hyperlinks.Delete
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
Var_Adresse, TextToDisplay:=Var_Name
End If
End Sub
Ferme la fenêtre VBA et Sauvegarde le fichier
Maintenant quand tu vas sur la Feuille "Sheet1" et que tu tapes
Cigare ou Cigarette dans A1, un lien se créé.
Si tu cliques dessus il te renvoie vers l'onglet Désiré
