Macro création BDD depuis plusieurs onglets

[riton67]

Bonjour,

j'ai besoin d'un coup de pouce dans la création d'une base de données (pour chargement dans SAP).
J'ai X onglets (strictement identiques au niveau du format) que je souhaite regrouper dans 1 base de donnée.
Je recense plusieurs difficultés : d’une part j’ai des sous-totaux dans ces onglets, qui ne doivent pas figurer dans la BDD. D’autre part, et c’est selon moi là que se situe la principale difficulté, je serais amené à ajouter des lignes dans mes onglets qui devront figurer dans la BDD le cas échéant.
Avez-vous des idées de macro à créer pour contourner ces difficultés ?
Je post un exemple avec les X onglets et la BDD .
Un grand merci.

Riton

[dubois]

Bonjour à tous,

La feuille "BDD" est placée en 1er,
la macro l'efface à chaque fois et traite les onglets suivant

Code: Tout sélectionner

Sub RegroupeBase()
Dim Lg&, Sh%, i%
Dim f As Worksheet
    Application.ScreenUpdating = False
        Set f = Sheets("BDD")
        f.Range("a2:n" & f.[a65000].End(xlUp).Row + 1).ClearContents
   
    For Sh = 2 To Worksheets.Count
        With Sheets(Sh)
            Lg = .Range("a" & Rows.Count).End(xlUp).Row
            For i = 2 To Lg
                If IsNumeric(.Range("b" & i)) And .Range("b" & i) <> "" Then
                    .Range("a" & i).Resize(1, 14) _
                    .Copy Destination:=f.Range("a" & Rows.Count).End(xlUp)(2)
                End If
            Next i
        End With
    Next Sh
        Application.Goto f.Range("a2"), Scroll:=True
End Sub

édit: modifié code et fichier (oubli variable f)

Amicalement
Claude

[riton67]

Merci Claude.