XL 2013 Fonction indirect en VBA

[RH_FFF]

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

 

[Modeste]

Re : Fonction indirect en VBA

Bonsoir Romuald,

Pas sûr d'avoir compris (un petit fichier aurait utilement illustré le propos ) ... mais il me semble que j'essaierais, juste avant le End If:

Cells(i + 2, 2) = Sheets(nf).[Q1]

 

[RH_FFF]

Re : Fonction indirect en VBA

Bonsoir Modeste,

Votre code était bon, il fallait juste le modifier un peu en mettant:
Cells(i - 1, 2) = Sheets(nf).[Q1]

Un grand merci
Bonne soirée
Romuald