afficher liste onglets si Stock Résolu

Question

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

via55 · Answer

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

surplus · Answer

bonsoir
voici le lien de mon fichier
 https://www.cjoint.com/doc/17_11/GKmvRHZb8ZK_Gestion.xls

via55 · Answer

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

Afficher liste onglets si Stock

3 réponses

Votre réponse