XL 2013 macro pour création auto de lien hypertexte

sousou

XLDnaute Barbatruc

• 20 Février 2017

• #2

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

 

Vote positif 0 Vote négatif

B

Bnj

XLDnaute Occasionnel

• 21 Février 2017

• #3

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 21 Février 2017

• #4

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

 

Vote positif 0 Vote négatif

B

Bnj

XLDnaute Occasionnel

• 21 Février 2017

• #5

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 .

 

Vote positif 0 Vote négatif

B

Bnj

XLDnaute Occasionnel

• 21 Février 2017

• #6

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 21 Février 2017

• #7

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

Vote positif 0 Vote négatif

B

Bnj

XLDnaute Occasionnel

• 21 Février 2017

• #8

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 21 Février 2017

• #9

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

Vote positif 0 Vote négatif

B

Bnj

XLDnaute Occasionnel

• 21 Février 2017

• #10

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 21 Février 2017

• #11

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

 

Vote positif 0 Vote négatif

B

Bnj

XLDnaute Occasionnel

• 21 Février 2017

• #12

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 )

 

Vote positif 0 Vote négatif

B

Bnj

XLDnaute Occasionnel

• 21 Février 2017

• #13

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 21 Février 2017

• #14

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

 

Pièces jointes

• Liens.xlsm

  16.8 KB · Affichages: 43

Dernière édition: 21 Février 2017

Vote positif 0 Vote négatif

B

Bnj

XLDnaute Occasionnel

• 21 Février 2017

• #15

tu es trop fort !!

MERCI INFINIMENT

 

Vote positif 0 Vote négatif