Hyperlinks vba excel 2010 SYNTAXE

Question

Bonjour,

Après avoir cherché des sujets concernant la syntaxe des hyperlinks VBA dans excel je reviens vers vous bredouille ^^.


J'ai une cellule sur ma feuille 2 et je veux faire le lien vers une autre cellule de la feuille 1.

Sachant que la ligne de la cellule de la feuille 1 est variable. La colonne quant à elle, est fixe et correspond à la H.
Voici le code que j'ai:

For A = 6 To Z 'feuille 2

    For B = 3 To Y 'feuill1
    
    
    If Worksheets("Feuil2").Cells(A, 1).Value = Right(Worksheets("Feuil1").Cells(B, 8).Value, 6) Then
    
        D = Worksheets("Feuil1").Cells(B, 8).Value
        
         Worksheets("Feuil2").Activate
         ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("Feuil2").Cells(A, 5), Address:="", SubAddress:="'Feuil1'" & "!H" & D
        
        Range(Cells(6, 5), Cells(Z, 6)).Select
            Selection.Font.ColorIndex = 0
            Selection.HorizontalAlignment = xlCenter
        'Sheets("SoldeCaisse").Select
    Else
    End If
    Next B
    
Next A

Le code s'exécute bien. Mais quand je clique sur les liens l'erreur qui s'affiche: formule incomplète. insérez un opérande après chaque opérateur........ etc.


Est ce que quelqu'un aurait une idée de la bonne écriture du lien? Je sais les faire quans les adresses de cellules sont fixes, mais en variable, je suis un peu perdue.

Merci à tous.

ucfoutu · Answer

Bonjour,
Je te rappelle simplement que le paramètre Address est obligatoire 
Le tien est vide !

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

C'est un peu comme si tu postais une enveloppe sans aucune adresse y figurant, pour envoyer une lettre à une copine. L'enveloppe serait certes postée, mais je vois mal comment le facteur pourrait la distribuer ===>> il écrirait alors dessus "adresse absente" (l'équivalent de ton "formule incomplète") 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

melinette35 · Answer

For A = 6 To Z 'feuille 2

    For B = 3 To Y 'feuill1
    
    
    If Worksheets("Feuil2").Cells(A, 1).Value = Right(Worksheets("Feuil1").Cells(B, 8).Value, 6) Then
    
        D = Worksheets("Feuil1").Cells(B, 8).Value
        
         Worksheets("Feuil2").Activate
         ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("Feuil2").Cells(A, 5), Address:="'Feuil1'" & "!H" & D, SubAddress:=""
        
        Range(Cells(6, 5), Cells(Z, 6)).Select
            Selection.Font.ColorIndex = 0
            Selection.HorizontalAlignment = xlCenter
    Else
    End If
    Next B
    
Next A
Erreur quand je clique sur le lien: impossible d'ouvrir le fichier :(

melinette35 · Answer

Je vois ce que tu veux dire, moi je pensais que c'était bon vu que le code vba s'exécutait bien.

ucfoutu · Answer

Attends, là !
J'avais mal compris ton truc.
Tu ne "postes" pas une lettre, là (l'analogie) ! Tu ne bouges même pas de chez toi ! Tu te contentes de te balader dans ta maison ?
1) C'est alors très différent et aucun "facteur" n'a à intervenir ===>>
exemple pour un lien vers la cellule B4 de la feuille Feuil1 (lien sur feuil2)
Dim X As Long
X = 4
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("Feuil2").Cells(2, 5), Address:="", SubAddress:= _
        "Feuil1!B" & X, TextToDisplay:="Feuil1!B" & X
2) Pourquoi fais cela ? Quel est l'intérêt ? 

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

melinette35 · Answer

Tu me demandes pourquoi, mais moi j'en sais rien pourquoi je fais ça, j'y comprends pas grand chose à tout ça, je prends de bout de code je modifie et je test, et ça marche pas. 

Je test ça de suite.

melinette35 · Answer

Rien dne marche, je comprends pas grand chose moi!

ucfoutu · Answer

Attends ! Je vais le tester moi-même ...


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Ben ../.
Voilà qui est fait !
Marche sans aucune faille ! 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

melinette35 · Answer

ca marche sans faille puisque ta cellule de la feuille 1 est fixe dans ton code.

Moi ma cellule est variable, et j'arrive pas à trouver la bonne syntaxe.

ucfoutu · Answer

Que me racontes-tu ?
X (utilisé dans mon code) est bel et bien une variable (de ligne), par exemple !
Montre-moi ce que tu as écrit (où est déterminée la variable et comment est ajouté le lien).

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Hyperlinks vba excel 2010 SYNTAXE

11 réponses

Votre réponse

Discussions similaires