Création d'une feuille Récapitulative

[alias_2003]

Bonjour à tous,
Nouvelle demande.... Voilà j'ai créé un fichier de gestion de stock (en pj, il s'agit d'une version très allégée), avec une feuille par produit. Maintenant j'aimerais savoir s'il est possible de créer une feuille récapitulative de tous ces produits contenant uniquement certaines informations. Est-il possible qu'elle se mette à jour automatiquement dès qu'une nouvelle feuille "produit" est créée ?? Je sais que j'en demande beaucoup (trop ?)
Il faudrait en plus que certaines feuilles soient ignorées (utilisateur et température).
Merci de votre aide,
Bonne fin de journée,
Bien amicalement

 

[Fred0o]

Re : Création d'une feuille Récapitulative

Bonjour alias_2003,

Voici le code à mettre en Feuille "Récap". Pour celà, sur le nom d'onglet, tu fais "Click-droit", puis "Visualiser le code". Ensuite, tu colles le code fourni.

A chaque fois que tu sélectionneras la feuille "Récap", celle-ci se mettra à jour avec les données des onglets.

Private Sub Worksheet_Activate()
    Dim sh As Worksheet, l As Integer, lp As Integer
    Range("A2:H65536").ClearContents
    For Each sh In ActiveWorkbook.Sheets
        If Not (sh.Name = "Récap" Or sh.Name = "Utilisateur" Or sh.Name = "Température") Then
            l = Range("A65536").End(xlUp).Row + 1
            lp = sh.Range("A65536").End(xlUp).Row
            Sheets("Récap").Range("A" & l) = sh.Range("A4")
            Sheets("Récap").Range("B" & l) = sh.Range("B4")
            Sheets("Récap").Range("C" & l) = sh.Range("C4")
            Sheets("Récap").Range("D" & l) = sh.Range("B9")
            Sheets("Récap").Range("E" & l) = sh.Range("C" & lp)
            Sheets("Récap").Range("F" & l) = sh.Range("D" & lp)
            Sheets("Récap").Range("G" & l) = sh.Range("E" & lp)
            Sheets("Récap").Range("H" & l) = sh.Range("F" & lp)
        End If
    Next
End Sub

A+

 

[alias_2003]

Re : Création d'une feuille Récapitulative

Bonjour Fred0o,
Merci beaucoup de ta réponse ! Mon problème est résolu grâce à toi !
Merci encore,
Bonne soirée,
Bien amicalement