XL 2013 Fonction indirect en VBA

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

RH_FFF

XLDnaute Nouveau
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
 
Dernière modification par un modérateur:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
545
Réponses
4
Affichages
537
Retour