C
champomy11
Guest
Bonjour a tous,
j'avais trouvé une macro qui me sert beaucoup .
Elle me permet de faire un sommaire a partir de la case C3 de toutes les feuilles d'un même classeur, en récupérant directement le nom de la feuille et créer un lien directe.
j'aimerai en plus de cette fonction que en face de chaque lien s'affiche dans la D,E,F,G faire afficher les contenue des cellules G27, J29,G30,J30
Voici la macro.
Sub lienRecap()
'sélection de la feuille Récap
Application.ScreenUpdating = False
Sheets("RECAP").Select
Range("c3").Select
For Each i In ActiveWorkbook.Sheets
F = i.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & F & "'" & "!A1", TextToDisplay:=F
ActiveCell.Offset(1, 0).Select
Next i
Application.ScreenUpdating = True
End Sub
Une idée de ce que je dois ajouter?
Je comprend a peu prés les macro et je les adapte a mon usage.
Je suis incapable de la créer de A a Z
Merci
j'avais trouvé une macro qui me sert beaucoup .
Elle me permet de faire un sommaire a partir de la case C3 de toutes les feuilles d'un même classeur, en récupérant directement le nom de la feuille et créer un lien directe.
j'aimerai en plus de cette fonction que en face de chaque lien s'affiche dans la D,E,F,G faire afficher les contenue des cellules G27, J29,G30,J30
Voici la macro.
Sub lienRecap()
'sélection de la feuille Récap
Application.ScreenUpdating = False
Sheets("RECAP").Select
Range("c3").Select
For Each i In ActiveWorkbook.Sheets
F = i.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & F & "'" & "!A1", TextToDisplay:=F
ActiveCell.Offset(1, 0).Select
Next i
Application.ScreenUpdating = True
End Sub
Une idée de ce que je dois ajouter?
Je comprend a peu prés les macro et je les adapte a mon usage.
Je suis incapable de la créer de A a Z
Merci