Discussion :

[Kris41]

Bonjour à tous,

J'ai un petit problème de codage en vba de lien hypertexte et de liaison entre feuille. Dans un dossier j'ai une feuille RECAPITULATIF qui me créer au fur et à mesure des saisies d'autres feuilles.
Cela fonctionne très bien. Par contre, j'aimerais quand une nouvelle feuille se créée mettre un lien hypertexte, hors le code bloque sur la cellule de la feuille RECAPITULATIF.

VAR1 et VAR2 sont deux variable composant le nom de la nouvelle feuille.

Le code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
        'CREATION DU LIEN HYPERTEXTE
 
        CELLULECIBLE.Offset(-2, 7).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'" & VAR1 & " - " & VAR2 & "'!G6", TextToDisplay:="'12 - 12'!A1"

J'ai également un deuxième soucis, qui consiste à créer des liaisons entre certaines cellule de la nouvelle feuille vers la feuille RECAPITULATIF. Pour le moment j'ai fait cette formulation.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
        'INSERTIONS DE FORMULES DE CALCUL
 
        CELLULECIBLE.Offset(-2, 11).FormulaR1C1 = "='" & VAR1 & " - " & VAR2 & "'!" & "D17"

En attente de vous lire, je vous souhaite une bonne fin de journée.

Cordialement.

[Kris41]

Bonjour à tous,

J'ai réussi à résoudre le problème du lien hypertexte. Il m'a fallu déclaré une variable pour palier à ce problème.

Par contre j'ai le problème d'injecter dans les cellules de la feuille RECAPITULATIF les formule de calcul faisant référence à une cellule d'une autre feuille.

J'ai bien inscrit ma formule avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
CELLULECIBLE.Offset(-2, 11).FormulaR1C1 = "='" & VAR1 & " - " & VAR2 & "'!D17"

sauf que dans la cellule visée il me l'écrit ='28-28'!'D17'. Il ajoute les apostrophes autour du D17.

Pourriez-vous m'aidez, s'il vous plait ?

Dans l'attente de vous relire je vous souhaite une bonne journée.