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