Afficher liste onglets si Stock

Résolu
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -  
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -
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. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    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
  2. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    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. surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
       
      Re
      Merci c'est excellent
      Cdlmnt

      surplus
      0