récupérer toutes les cellule G27 du classeur

[champomy11]

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

 

[Papou-net]

Re : récupérer toutes les cellule G27 du classeur

Bonjour Champomy11,

Quelque chose comme ceci devrait répondre au besoin exprimé:

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(0,1) = F.Range("G27")
    ActiveCell.Offset(0,2) = F.Range("J29")
ActiveCell.Offset(0,2) = F.Range("G30")
ActiveCell.Offset(0,3) = F.Range("J30")
ActiveCell.Offset(1, 0).Select
  Next i
  Application.ScreenUpdating = True
End Sub

Cordialement.