macro Excel 03 pour lien hypertexte Fermé

Question

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

WeaponEDGE · Answer

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é

Macro Excel 03 pour lien hypertexte

1 réponse

Discussions similaires

Newsletters