Afficher liste onglets si Stock

[Résolu/Fermé]
Signaler
Messages postés
673
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
11 juin 2021
-
Messages postés
673
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
11 juin 2021
-
Bonjour,

je voudrais afficher une liste des feuilles de mon classeur en colonne A dont la valeur en case "A2" de chaque feuille serait ="Stock" et case "B2" afficher valeur de la case "G16" de chaque feuille
par macro je pense a l'ouverture de la feuille nommée "Stock"
merci de votre aide
Slts               A bientôt 
Surplus

3 réponses

Messages postés
13114
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
14 octobre 2021
2 263
Bonsoir

Poste un exemple de ton fichier sur mon-partage.fr, fais créer un lien que tu copies et reviens coller ici, qu'on puisse avoir une base de travail pour t'aider

Cdlmnt
Via
Messages postés
673
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
11 juin 2021
4
bonsoir
voici le lien de mon fichier
https://www.cjoint.com/doc/17_11/GKmvRHZb8ZK_Gestion.xls
Messages postés
13114
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
14 octobre 2021
2 263
Re,

Voilà la macro à mettre dans le worsheet de la feuille Stock :
Private Sub Worksheet_Activate()
x = 1
For n = 1 To Sheets.Count
If Sheets(n).Range("A2") = "Stock" Then
x = x + 1
Range("A" & x) = Sheets(n).Name
Range("B" & x) = Sheets(n).Range("G16")
End If
Next
End Sub

Cdlmnt
Via
Messages postés
673
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
11 juin 2021
4
Re
Merci c'est excellent
Cdlmnt

surplus