boucle en VBA avec activecell.formula et fonction hyperlink
Bonjour,
Mon niveau de débitant en VBa ne me permet pas de comprendre ce qui cloche dans ma boucle...j'ai dans une feuille "données" des données avec une centaine de colonne, et je cherche à mettre dans une feuille "liste variable" tous les noms de variables en ligne, avec un lien hyper texte qui renvoie sur la 1ere cellule de la colonne (donc le nom de la variable) dans la feuille données.
Voici mon code
Code:
1
2
3
4
5
6
7
8
9
10
|
Sub Macro1()
'
'
Range("D2").Select
For i = 2 To Range("A65536").End(xlUp).Row
j = i + 1
Range("E" & j).Formula = "=HYPERLINK(""[sejour controles 2013_mef.xls]'sejours controles 2013'!L1C& i &"",""lien"")"""
Next i
End Sub |
J'ai essayé plusieurs combinaison avec les guillemets, mais ça ne marche jamais...
Merci pour vos lumières!
EDIT : j'ai légèrement changé le code, mais ça ne marcha pas plus...
Edit2 : après quelque recherches sur le net, je pense que le code suivant est plus proche de mon but:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 21/10/2014 par XM
'
'
Range("f2").Select
Range("E1").Formula = "=ucase(A1)"
For i = 1 To Range("A65536").End(xlUp).Row
j = i + 1
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("E" & j), _
Address:="", _
SubAddress:="'sejours controles 2013'!A & i", _
TextToDisplay:="TRUCTRUC"
End With
Next i
End Sub |
Mais j'ai un problème dans l'instruction "subaddress" avec le paramètre i de la boucle...
