Remplir une cellule après activation d'un lien hypertexte

Bonjour,

Voilà, j'ai une petite application ou je rempli un tableau tel que :

A1 : nom

a2 : prénom

a3 : e-mail

a4 : envoi e-mail (qui est un lien hypertexte qui me renvoi sur une feuille e-mail...)

Ma demande est :

Je souhaiterait mettre en a5 : "mail envoyé" une fois que le lien en a4 a été activé

Est-ce possible ?

Merci à celui qui pourra me répondre

Joss

Bonsoir,

en supposant que la feuille où se trouve la colonne A de votre exemple soit la première du classeur :

il faut dans VBA, dans ThisWorkBook coller ce qui suit :

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    Sheets(1).Range("A5").Value = "mail envoyé"
End Sub

En fait cette Private Sub se déclenche une fois le lien activé. Donc vous arrivez sur la feuille d'email comme indiquer dans votre post, puis la sub est lancée, alors elle va écrire dans la feuille 1 en cellule A5 "Email envoyé"

Ceci dit cela indique seulement que vous avez activé la feuille email, mais si vous avez un code d'envoie de cet email, alors il vaudrait mieux intégrer Sheets(1).Range("A5").Value = "mail envoyé" en fin de cette procédure...

En tout cas là je ne répond qu'à la question...

Le problème que cela va créer, c'est que pour tout type le lien hypertexte, cette instruction sera lancée...

donc il faut rajouter autre chose...

@ bientôt

LouReeD