XL 2013 macro pour création auto de lien hypertexte

Bnj

XLDnaute Occasionnel
Bonjour,

Après quelques recherches infructueuses (rien ne correspond à ce que je cherche à faire), je vous sollicite :
Je possède un tableau avec :
en colonne A : référence client
en colonne B : Nom du client se remplissant automatiquement avec rechercheV

Je souhaiterais que lorsque je saisie une référence client, cette référence devienne un lien hypertexte vers :
C:/xxxx/yyyyy/"numéro de client" "nom du client"

Est-ce possible ? et si oui, auriez-vous l'amabilité de m'aider et/ou de m'expliquer car les macros, je n'y comprends rien...;)

En vous remerciant infiniment
 

sousou

XLDnaute Barbatruc
Bonjour
Voici un code qui devrais t'aider à installer dans le code de la feuille et à adapter.
sur changement dans la feuille, si c'est la colonne 1 alors installation du lien
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:= _
"c:/xxxx/yyyy/" & Target & Target.Offset(0, 1), TextToDisplay:=Target.Value
Application.EnableEvents = True
End If
End Sub
 

Bnj

XLDnaute Occasionnel
Bonjour sousou

un grand MERCI pour ton aide et le temps que tu accordes à mon souci.
J'ai appliqué ta macro mais celle-ci ne fonctionne pas :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then 'si changement dans la colonne 1 de la feuille
Application.EnableEvents = False
ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:= _
"c:/xxxx/yyyy/" & Target & Target.Offset(0, 1), TextToDisplay:=Target.Value 'transformer ce qui est saisi en lien hypertexte en ajoutant le contenu de la colonne 2 (séparer par un espace soit numérodeclient nomclient donc c:/xxxx/yyyy/00000 dupont
Application.EnableEvents = True
End If
End Sub

j'ai tenté de comprendre le déroulement de la macro en ajoutant en vert les annotations

Merci
 

sousou

XLDnaute Barbatruc
Re
test ce fichier
1/ autoriser les macros
2/Une modification car cà ne fonctionnait pas avec des nombres (ajout de cstr())
3/ En cas erreur: EnableEvents= false, il faut donc le repositionner à true pour que l'évènement soit de nouveaux pris en charge
Sub evènements()
 

Pièces jointes

  • Liens.xlsm
    15.6 KB · Affichages: 35

Bnj

XLDnaute Occasionnel
cela marche et je te remercie une nouvelle fois. Cependant, en cas d'erreur de saisie, je supprime la ligne et cela me créé une erreur de macro et si je supprime le contenu de la cellule numeroclient (colonneA) cela me laisse le chemin du lien hypertexte générique
 

sousou

XLDnaute Barbatruc
Voici un nouvel essai avec quelques tests supplémentaires sur la cellule référence
( sil le lien existe et que la cellule est vide.... alors suppression du lien)....ect
Il faudra aussi peut_être ajouter d'autre test sur la cellule de la colonne b
A améliorer suivant tes besoins
 

Pièces jointes

  • Liens.xlsm
    15.9 KB · Affichages: 39

Bnj

XLDnaute Occasionnel
ne sois pas désolé !
c'est super sympa de "faire ma macro sur mesure"
Afin d'éviter au maximum cette solution de faicilité par la suite, aurais-tu l'extrême amabilité de m'expliquer le déroulement de ta macro (car je n'y comprends rien :))
 

Bnj

XLDnaute Occasionnel
ne sois pas désolé !
C'est quand même moi qui t'exploite ;)
Merci de réaliser ma macro, mais pourrais-tu m'expliquer le déroulement de celle-ci car je n'y comprends et j'aimerais beaucoup ne pas avoir à prendre la solution de facilité "excel-download" à chaque fois ! lol
 

Discussions similaires

Réponses
7
Affichages
561

Statistiques des forums

Discussions
312 947
Messages
2 093 835
Membres
105 848
dernier inscrit
toooom