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 

4 réponses

Répondre au sujet
via55 9057 Messages postés mercredi 16 janvier 2013Date d'inscription 21 février 2018 Dernière intervention - 12 nov. 2017 à 22:27
0
Utile
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
Utile
bonsoir
voici le lien de mon fichier
http://www.cjoint.com/doc/17_11/GKmvRHZb8ZK_Gestion.xls
Commenter la réponse de surplus
via55 9057 Messages postés mercredi 16 janvier 2013Date d'inscription 21 février 2018 Dernière intervention - 12 nov. 2017 à 22:57
0
Utile
1
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