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
J'ai essayé plusieurs combinaison avec les guillemets, mais ça ne marche jamais...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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:
Mais j'ai un problème dans l'instruction "subaddress" avec le paramètre i de la boucle...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager