[VB Excel 97] Refedit dans userform

[edoir]

Bonjour
Je cherche a mettre un lien hypertexte automatiquement avec une macro.
Mais j'ai un probleme
J'utilise une boite refedit pour que l'utilisateur puisse choisir la plage de cellule sur la quel le lien sera accessible.
Mais cela ne marche pas quand l'on change de feuille par rapport a la feuille ou est le bouton pour lancer la macro.

[cpp]Private Sub CommandButton1_Click()
Dim ht As String
Dim a(2) As String
Dim I As Integer
a(0) = "cm"
a(1) = "ct"
I = ComboBox1.ListIndex
ht = RefEdit1.Value

FileCopy quelfichier, "i:\toto\courbe moteur\" + ressource + a(I) + ".pdf"
Range(ht).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"i:\toto\courbe moteur\" + ressource + a(I) + ".pdf"
Unload UFajcourbe
Unload UFfichier
End Sub[/cpp]

A+ Edoir

 

[zeb]

La propriété Value de l'objet RefVIew te renvoie une chaine ressemblant à ça : Feuille!$Colonne1$Ligne1:$Colonne2$Ligne2
Range ne peut pas accepter une adresse de ce type. C'est à toi de faire le découpage autour du point d'exclamation. Tu devrais obtenir :
[fixed]Sheet("Feuille").Range("Colonne1$Ligne1:$Colonne2$Ligne2")...[/fixed]

En passant, arrêter avec vos Select/Selection/ActiveTruc. C'est comme ça qu'on a ces problèmes. Ecris donc :

s = RefLink.Value
p = InStr(s, "!")
if p = 0 then Msgbox "?" : Exit Sub
f = Left(s, p - 1)
a = Mid(s, p + 1)
Sheets("Truc").Hyperlinks.Add Anchor:=Sheets(f).Range(a), Address:= ...

 

[edoir]

Ok Merci bien zeb je pensais que VB gerait automatiquement ...

 

[zeb]

je pensais que

Toujours lire l'aide

 

[edoir]

Reste un dernier probleme
f prend la valeur 'feuil1' au lieu de "feuil1" que dois je faire?

 

[zeb]

gné ? :heink:

 

[edoir]

ba rien g trouver la reponse
[cpp]
s = RefLink.Value
p = InStr(s, "!" )
if p = 0 then Msgbox "?" : Exit Sub
f = Left(s, p - 2)
f2 = Mid(f, 2)
a = Mid(s, p + 1)
Sheets("Truc" ).Hyperlinks.Add Anchor:=Sheets(f2).Range(a), Address:= ...
[/cpp]