Menu

Afficher liste onglets si Stock [Résolu]

surplus 639 Messages postés mardi 17 août 2010Date d'inscription 12 novembre 2017 Dernière intervention - 12 nov. 2017 à 22:19 - Dernière réponse : surplus 639 Messages postés mardi 17 août 2010Date d'inscription 12 novembre 2017 Dernière intervention
- 12 nov. 2017 à 23:12
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
Afficher la suite 

Votre réponse

4 réponses

via55 9342 Messages postés mercredi 16 janvier 2013Date d'inscription 24 juin 2018 Dernière intervention - 12 nov. 2017 à 22:27
0
Merci
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
Commenter la réponse de via55
surplus 639 Messages postés mardi 17 août 2010Date d'inscription 12 novembre 2017 Dernière intervention - 12 nov. 2017 à 22:45
0
Merci
bonsoir
voici le lien de mon fichier
http://www.cjoint.com/doc/17_11/GKmvRHZb8ZK_Gestion.xls
Commenter la réponse de surplus
via55 9342 Messages postés mercredi 16 janvier 2013Date d'inscription 24 juin 2018 Dernière intervention - 12 nov. 2017 à 22:57
0
Merci
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
surplus 639 Messages postés mardi 17 août 2010Date d'inscription 12 novembre 2017 Dernière intervention - 12 nov. 2017 à 23:12
Re
Merci c'est excellent
Cdlmnt

surplus
Commenter la réponse de via55