VBA Problème lienhypertexte à LIENs variable?
Résolu
Placebo_33
Messages postés
16
Statut
Membre
-
Placebo_33 Messages postés 16 Statut Membre -
Placebo_33 Messages postés 16 Statut Membre -
Bonjour;
Je rame depuis des jours, mon problème est :
dans mon classeur j’ai l65 feuilles et une macro qui exécute un calcule avec un lien qui active une feuille que j’ai appelé CUMULE, une foi arrivé à la feuille CUMULE c’est la galère ! Comment crée un lien Hypertexte capable d’exécuter le retour à la dernière Feuille utilisée avec la même macro (si en clic dessus bien sûr)?
A savoir, dans ma macro j'ai écri ce qui suit,
'Je copie l’onglé de la feuille(x) ACTIVE dans la variable Var_NomOngle
................. Dim Var_NomOngle As String
................. Var_NomOngle = ActiveSheet.Name
'J’active ma feuille "CUMULE"
.................Worksheets("CUMULE").Activate
'Je copie la variable Var_NomOngle dans la cellule "A2" de la feuille CUMULE
.................Range("A2").Select
.................Range("A2") = Var_NomOngle
'Je crée mon Lien hypertexte,
................ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
................SubAddress:="'Var_NomOngle!A2", TextToDisplay:="Retour"
Après exécution de la macro dans l’une des 165 feuilles(x) je clic sur la cellule "A2" de la feuille CUMULE et là une fenêtre d’Excel s’affiche : … Référence non valide.
Après l’échec de mes recherches et plusieurs essais ratés je rame encore.
Toutes aide sera la bienvenue.
J’espère s’il y a ici un savant dans ce domaine qu’il nous éclairera
Quelque soi la valeur de (x) Merci.
A+
Win XP PK2
Office 200x
Je rame depuis des jours, mon problème est :
dans mon classeur j’ai l65 feuilles et une macro qui exécute un calcule avec un lien qui active une feuille que j’ai appelé CUMULE, une foi arrivé à la feuille CUMULE c’est la galère ! Comment crée un lien Hypertexte capable d’exécuter le retour à la dernière Feuille utilisée avec la même macro (si en clic dessus bien sûr)?
A savoir, dans ma macro j'ai écri ce qui suit,
'Je copie l’onglé de la feuille(x) ACTIVE dans la variable Var_NomOngle
................. Dim Var_NomOngle As String
................. Var_NomOngle = ActiveSheet.Name
'J’active ma feuille "CUMULE"
.................Worksheets("CUMULE").Activate
'Je copie la variable Var_NomOngle dans la cellule "A2" de la feuille CUMULE
.................Range("A2").Select
.................Range("A2") = Var_NomOngle
'Je crée mon Lien hypertexte,
................ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
................SubAddress:="'Var_NomOngle!A2", TextToDisplay:="Retour"
Après exécution de la macro dans l’une des 165 feuilles(x) je clic sur la cellule "A2" de la feuille CUMULE et là une fenêtre d’Excel s’affiche : … Référence non valide.
Après l’échec de mes recherches et plusieurs essais ratés je rame encore.
Toutes aide sera la bienvenue.
J’espère s’il y a ici un savant dans ce domaine qu’il nous éclairera
Quelque soi la valeur de (x) Merci.
A+
Win XP PK2
Office 200x
A voir également:
- VBA Problème lienhypertexte à LIENs variable?
- Vérificateur de liens - Guide
- Vba range avec variable ✓ - Forum VB / VBA
- Incompatibilité de type vba ✓ - Forum Programmation
- Telecharger liens direct - Accueil - Outils
- Ou trouver les liens copiés sur android - Guide
3 réponses
Bonjour,
ici il y une erreur !
................ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
................SubAddress:="'Var_NomOngle!A2", TextToDisplay:="Retour"
devrait se lire :
............... ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
............... SubAddress:=Var_NomOngle & "!A2", TextToDisplay:="Retour"
Michel
ici il y une erreur !
................ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
................SubAddress:="'Var_NomOngle!A2", TextToDisplay:="Retour"
devrait se lire :
............... ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
............... SubAddress:=Var_NomOngle & "!A2", TextToDisplay:="Retour"
Michel
re :
ou
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="'" & Var_NomOngle & "'!A2", TextToDisplay:="Retour"
avec des espaces pour être sur de bien voir !
les deux fonctionne chez-moi !
Michel
ou
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="'" & Var_NomOngle & "'!A2", TextToDisplay:="Retour"
avec des espaces pour être sur de bien voir !
SubAddress:= " ' " & Var_NomOngle & " ' !A2 ", TextToDisplay:="Retour"
les deux fonctionne chez-moi !
Michel
youpiiiiiiii!!!
Un grand merci pour VOUS Michel, ça marche très bien.
A savoir :
Tous mes essais ne peuvent aboutir au bon résultat escompté même écris aussi juste que toi. Mes craintes au début étaient comment écrire correctement le nom des feuilles ? Pour éviter toutes brouilles dans l’avenir avec Excel et d’autres PRG que je me projette a étudié en autodidacte, VBScripte ou Delphy (mais hélas ! Plein dedans)
Enfin j’ai nommé mes feuilles « NF,521.1.01, NF,521.1.02, ... CD,535.1.15» q’Excel accepte sans préavis et VBE confirme en le compilant sans Problème, l’erreur Référence non valide c’est après «Nickel»...,
C’est la vilaine VIRGULE qui en cause, même les caractères ( -, +, Alt 255) Beug!. Les Points entre les caracteres sont tolérés pour le moment
Solution :
Je renomme mes feuilles sans brouille au format «NF521101» A dieu l’effet visuel. Jusqu a nouvel ordre
Mes remerciement encore c’est très sympa.
A+
Un grand merci pour VOUS Michel, ça marche très bien.
A savoir :
Tous mes essais ne peuvent aboutir au bon résultat escompté même écris aussi juste que toi. Mes craintes au début étaient comment écrire correctement le nom des feuilles ? Pour éviter toutes brouilles dans l’avenir avec Excel et d’autres PRG que je me projette a étudié en autodidacte, VBScripte ou Delphy (mais hélas ! Plein dedans)
Enfin j’ai nommé mes feuilles « NF,521.1.01, NF,521.1.02, ... CD,535.1.15» q’Excel accepte sans préavis et VBE confirme en le compilant sans Problème, l’erreur Référence non valide c’est après «Nickel»...,
C’est la vilaine VIRGULE qui en cause, même les caractères ( -, +, Alt 255) Beug!. Les Points entre les caracteres sont tolérés pour le moment
Solution :
Je renomme mes feuilles sans brouille au format «NF521101» A dieu l’effet visuel. Jusqu a nouvel ordre
Mes remerciement encore c’est très sympa.
A+