Bonjour,
J'ai insérer dans une feuille la macro suivante:
Private Sub Worksheet_Activate()
[A2:A200].ClearContents
For i = 2 To Sheets.Count
If Sheets(i).Visible = -1 Then
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 2, 1), Address:="", SubAddress:="'" & _
nf & "'" & "!A1", TextToDisplay:=nf
End If
Next
[A2:A200].Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
End Sub
Cette macro me permettant de récupérer le nom de tous les onglets visibles, de le copier dans la colonne A de ma feuille active et de créer un lien. Je voudrais compléter cette macro en récupérant également la valeur de la cellule Q1 des différents onglets et les mettre en colonne B.
En synthèse, une fonction indirect en VBA
Merci par avance pour votre aide
Romuald
J'ai insérer dans une feuille la macro suivante:
Private Sub Worksheet_Activate()
[A2:A200].ClearContents
For i = 2 To Sheets.Count
If Sheets(i).Visible = -1 Then
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 2, 1), Address:="", SubAddress:="'" & _
nf & "'" & "!A1", TextToDisplay:=nf
End If
Next
[A2:A200].Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
End Sub
Cette macro me permettant de récupérer le nom de tous les onglets visibles, de le copier dans la colonne A de ma feuille active et de créer un lien. Je voudrais compléter cette macro en récupérant également la valeur de la cellule Q1 des différents onglets et les mettre en colonne B.
En synthèse, une fonction indirect en VBA
Merci par avance pour votre aide
Romuald
Dernière modification par un modérateur: