A voir également:
- Formule recherchev qui copie une adresse courriel
- Darkino nouvelle adresse - Guide
- Rechercher ou entrer l'adresse - Guide
- Formule excel - Guide
- Adresse mac - Guide
- Créer une adresse hotmail - Guide
1 réponse
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 394
Modifié par Vaucluse le 26/08/2015 à 17:41
Modifié par Vaucluse le 26/08/2015 à 17:41
Bonjour
essayez ceci (sans garantie)
clic droit sur le nom de l'onglet / Visualiser le code et coller ce libellé:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1")) Is Nothing Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"mailto:" & ActiveCell.Value
End If
End Sub
le lien devrait se mettre à jour avec un clic droit sur la cellule qui le contient (placer l'adresse à la place de A1 entre guillemets)
a refaire bien sur à chaque changement d'adresse.
Il serait bon, pour éviter des erreurs d'envoi car le lien reste en place quelque soit l'affichage de la cellule tant que vous ne faites pas de clic droit,, de placer un, complément qui désactive le lien lorsque vous modifiez la référence de recherche, et donc rajouter un second code en dessous du premier dans l'onglet:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
Range("A1").Select
Selection.Hyperlinks.Delete
End If
End Sub
ce second libellé supprime le lien en A1 lorsque la valeur de B1 change
A1 et donc la case où se trouve l'adresse et B1 celle où vous entrez la référence suivante
A rectifier selon vos besoins
crdlmnt
Errare humanum est, perseverare diabolicum
essayez ceci (sans garantie)
clic droit sur le nom de l'onglet / Visualiser le code et coller ce libellé:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1")) Is Nothing Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"mailto:" & ActiveCell.Value
End If
End Sub
le lien devrait se mettre à jour avec un clic droit sur la cellule qui le contient (placer l'adresse à la place de A1 entre guillemets)
a refaire bien sur à chaque changement d'adresse.
Il serait bon, pour éviter des erreurs d'envoi car le lien reste en place quelque soit l'affichage de la cellule tant que vous ne faites pas de clic droit,, de placer un, complément qui désactive le lien lorsque vous modifiez la référence de recherche, et donc rajouter un second code en dessous du premier dans l'onglet:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
Range("A1").Select
Selection.Hyperlinks.Delete
End If
End Sub
ce second libellé supprime le lien en A1 lorsque la valeur de B1 change
A1 et donc la case où se trouve l'adresse et B1 celle où vous entrez la référence suivante
A rectifier selon vos besoins
crdlmnt
Errare humanum est, perseverare diabolicum
26 août 2015 à 18:39
merci beaucoup!