Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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:
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:
Code:
Cells(i + 2, 2) = Sheets(nf).[Q1]
 
- 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
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…