Discussion :

[kl1ft]

Bonjour,

j'ai une erreur 1004 sur ce bout de code... je ne vois pas mon erreur...

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ValidAdd_Click()
 
...
 
Dim Link As String
        Worksheets("Gestion des documents").Activate
        Link = "=LIEN_HYPERTEXTE(" & Me.TextLink.Value & Chr(34) & "I" & Lastline & ")"
        Worksheets("Gestion des documents").Range("I" & Lastline) = Link
 
...

Merci d'avance,

kl1ft

[Invité]

Salut Kl1ft,

Tu ne mets qu'un seul CHR(34) dans ton code est ce bien normal !?

Sinon sélectionne la ligne : Worksheets(...
et appuie sur F9 pour mettre un point d'arrêt
Ensuite exécute ton USF et fait F8 pouir avancer pas à pas

Tu verras comme ça ou se trouve l'erreur

A+

[kl1ft]

Ok,

merci Bruno pour l'astuce, je ne savais pas qu'on pouvait faire du pas à pas aussi précis, je vais tester ça demain au boulot et je te dis où ça bloque...



j'essaye de reconstruire (comme tu as pu le voir) un lien hypertexte en recollant plus ou moins bien (vu que ça fonctionne pas encore ) les bouts.

Bonne soirée

Code :

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

Link = "=LIEN_HYPERTEXTE(" & Me.TextLink.Value &";"& Chr(34) & "I" & Chr(34) & & Lastline & ")"

Ptet rajouter un Chr(34) ==> cf en rouge...

[Invité]

Re,

Pour moi c'est plus

Code :

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

Link = "=LIEN_HYPERTEXTE(""" & Me.TextLink.Value & """;""" & I & Lastline & """)"

As-tu vu ma soluce pour ta recherche multicritères
http://www.developpez.net/forums/d11...age-resultats/

A+

[kl1ft]

Bruno,

oui j'ai vu ta réponse pour la recherche multicritères.
Demain je te dis ce qu'il en est en tout cas merci pour ton investissement !

Pour le code ci dessus, je crois que tu as raison mais j'avais une erreur de syntaxe avec les """ dans la macro d'où l'utilisation des chr(34)... Peut être que je me suis emmêlé les pinceaux avec toutes ces guillemets...

Merci à toi et bonne soirée,

kl1ft

[kl1ft]

Code :

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

1
2
3
4
5
6
7
 
Dim Formulink As String
        Worksheets("Gestion des documents").Activate
        Formulink = "=LIEN_HYPERTEXTE(""" & Me.TextLink.Value & """;" & "I" & Lastline & ")"
 
        MsgBox Formulink 'affiche la formule - vérification de la syntaxe
        Worksheets("Gestion des documents").Range("i" & 332).Formula = Formulink

Bonjour,

j'ai toujours un problème avec ce bout de code... J'aimerais metre automatiquement (via macro) cette formule dans mon tableau excel.

Si quelqu'un a une idée je suis preneur... je coince.

MErci d'avance

kl1ft

[Invité]

Salut,

Et tu as toujours le même message d'erreur !?
As-tu essayé en mode débogage de voir ce qui ce passait ?

A+

[kl1ft]

Salut BrunoM45,

Oui j'ai toujours un message d'erreur.

Par contre (j'ai fais quelques tests) si je ne mets que :

Code :

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

1
2
3
4
5
 Dim Formulink As String
        Worksheets("Gestion des documents").Activate
        Formulink = "=LIEN_HYPERTEXTE" 
        MsgBox Formulink 'affiche la formule - vérification de la syntaxe
        Worksheets("Gestion des documents").Range("i" & 332).Formula = Formulink

ça passe comme sur des roulettes, la cellule I332 a bien comme valeur =LIEN_HYPERTEXTE
Est-ce que ma formule est trop longue ? trop lourde ? je ne voies pas où ça coince...

[kl1ft]

Bon j'abandonne cette idée... j'ai trouvé une autre méthode d'obtenir ce que je veux... plus simple et plus direct. Je ne cherche plus à la faire dans le macro mais directement dans la feuille Excel...

Merci pour vos contributions