Afficher liste onglets si Stock

Résolu
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

  1. 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
    0
    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
      0
      1. Re
        Merci c'est excellent
        Cdlmnt

        surplus
        0