Userform après clic sur hyperlink

Bonjour à toutes et à tous,

J'ai mis des hyperlink pour chaque cellule non vide dans les colonnes A et B.

L'adresse de ces hyperlink est vide et j'ai fait une macro dans la feuille contenant ces hyperlink afin de déclencher l'apparition d'un userform après le clic sur le hyperlink :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

ajout_charges_app.Show

End sub

==> Sauf que je souhaiterai que, si le clic sur hyperlink est fait dans la colonne A, que cela fasse apparaître le userform "ajout_charges_app" et que si le clic sur hyperlink est fait dans la colonne B que cela fasse apparaître le userform "ajout_charges_imm".

Savez-vous comment faire svp?

Merci d'avance

Salut,

Essaie ce code :

Option Explicit

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

    If Target.Column = 1 Then
        ajout_charges_app.Show
    ElseIf Target.Column = 2 Then
        ajout_charges_imm.Show
    End If

End Sub

Si ça ne fonctionne pas, joint ton fichier ou un fichier exemple.

Amicales salutations.

Bonjour Yvouille !

Et bien c'est parfait, ça marche!

Merci !!

Amicales salutations

On aurait aussi pu écrire :

Option Explicit

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

    If Target.Column = 1 Then ajout_charges_app.Show
    If Target.Column = 2 Then ajout_charges_imm.Show

End Sub