sylvain_66
Messages postés19Date d'inscriptionmardi 26 mai 2020StatutMembreDernière intervention28 juillet 2020
-
Modifié le 26 mai 2020 à 14:18
sylvain_66
Messages postés19Date d'inscriptionmardi 26 mai 2020StatutMembreDernière intervention28 juillet 2020
-
28 juil. 2020 à 19:43
Bonjour
je souhaite créer une macro où lorsque l'on choisit une cellule avec lien hypertexte, ce lien s'active,
il y a déjà eu demande de faite, la 1ére réponse ne fonctionnait pas car, lien renvoyant à un classeur ou un onglet (ne fonctionne qu'avec un lien URL)
Sub Macro1()
With Selection.Hyperlinks(1)
.Follow NewWindow:=False, AddHistory:=True
If .SubAddress <> "" Then
Sheets(Split(.SubAddress, "!")(0)).Select
Range(Split(.SubAddress, "!")(1)).Select
End If
End With
End Sub
mais là, je n'arrive pas à comprendre ?
à quoi correspond :
sylvain_66
Messages postés19Date d'inscriptionmardi 26 mai 2020StatutMembreDernière intervention28 juillet 2020 8 juil. 2020 à 15:59
Le_pivert
désolé mais cela ne fonctionne toujours pas,
c'est comme je t'ai dit la 1ére macro :
elle ne permet pas de sélectionner le lien hypertexte et de l'ouvrir ?
peux tu regarder stp
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 8 juil. 2020 à 16:19
sylvain_66
Messages postés19Date d'inscriptionmardi 26 mai 2020StatutMembreDernière intervention28 juillet 2020 9 juil. 2020 à 16:41
hello Le_Pivert
désolé, je vient de tester mais cela ne fonctionne toujours pas ?
as tu vérifié de ton côté, stp, si cela fonctionnait ?
par rapport à ta question sur la macro :
position = 1 'ça sert à quoi si c'est toujours 1 !!!!!!!!!!!!
voici la réponse, sur la précédente macro, j'ai prévu de positionner le collage sur la dernière position avec une cellule renseignée, voir ci-dessous :
position = spesyndia.Range("A65536").End(xlUp).Row + 6
sur ta macro, cela n'apparait plus ?
merci encore pour ton aide
mais j'en ai besoin encore ^^
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 9 juil. 2020 à 17:33
Une autre approche:en cliquant sur le lien hypertexte le copier coller se fait automatiquement.
A adapter car je n'ai pas tout compris, vu que tu supprimes les images à chaque fois!
je te renvoie le fichier,
j'ai sélectionné une cellule dans l'onglet synoptic diagram,
j'ai écris un texte dans cette cellule et si tu lances la macro,
ce même texte est collé dans l'onglet specific synoptic diagram
Si tu lance la macro en laissant la cellule selectionnée, la macro ne sélectionne pas les liens hypertextes comme souhaité ?
peux tu tester ainsi, sans changer la cellule sélectionné
les images en fait, je les supprimes au début de la macro, pour est sur qu'il n'en reste pas dans l'onglet "Specific Synoptic diagram", pour avoir un onglet clean
en fait dans l'onglet "Synoptic diagram", il y a tous les synoptics (schéma spécifique) repérés de "A" à "AH"
et l'objectif est pour un projet précis, de sélectionner les synoptics dont nous avons besoin pour ce projet, et de les coller dans l'onglet "Specific Synoptic diagram",
Pour cela aussi, que le lien hypertexte est une sélection car, cela sélectionne les différents objets
j'espère que tu comprendras mieux et, que tu pourras m'aider de nouveau
merci d'avance
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 20 juil. 2020 à 16:21
a mettre dans le module de la feuille: Synoptic diagram
Private Sub Worksheet_Activate()
On Error Resume Next
Range("A1").Select
End Sub
8 juil. 2020 à 16:19
https://www.cjoint.com/c/JGiosOmHROQ
@+