XL 2013 macro pour création auto de lien hypertexte

[Bnj]

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]

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]

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]

Bonjour
Il semble que tu es ais bien compris, mais peux-tu me dire ce qui ce passe, ou envoyer ton fichier?

 

[Bnj]

bonjour

ben il ne se passe rien. je n'ai pas de création de lien hypertexte lorsque je saisie un numéro de client en colonne A .

 

[Bnj]

mon classeur accepte les macros et est en format XLSM . j'ai collé le code dans VB dans la feuille contenant mon tableau

 

[sousou]

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()

 

[Bnj]

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]

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

 

[Bnj]

merci j'ai fait un test

cela fonctionne , le lien ne reste pas
cependant, si j'écris un numéro et je le supprime pour en remettre un nouveau le lien ne se créé plus ni sur les lignes du dessous

 

[sousou]

ok désolé..
Met le end if avant Application.EnableEvents = True
End If
Application.EnableEvents = True

 

[Bnj]

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]

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

 

[sousou]

J'espère que les explications annotées dans la macro te serviront pour tes futures applis

 

[Bnj]

tu es trop fort !!

MERCI INFINIMENT