Microsoft 365 compiler onglets excel avec VBA

[Boubie]

Bonjour,

Je souhaite compiler des onglets dans une base unique.

J'ai essayé des bouts de modules mais sans succès. quelqu'un peut il m'aider, svp?

Je souhaiterai avoir un onglet BASE qui consolide les informations de l'onglet Société A , onglet Société B + onglet Société C:

Chacun des onglets ont le même nombre de colonne :

Société

N° Fournisseurs

N° commande

Date comptable

Exercice

Période comptable

CA

Impossible de joindre mon fichier test avec quelques données, message "trop volumineux" alors qu'il est ultra petit!! ....C'est peut être un bug ?

Pouvez-vous m'aider malgré tout avec un exemple.

Par avance, merci de votre aide.

 

[Phil69970]

Bonjour @Boubie

Impossible de joindre mon fichier test avec quelques données, message "trop volumineux" alors qu'il est ultra petit!!

Le site limite la taille des fichiers à 1 Mo
Si ton fichier "tout petit" fait plus de 1 Mo c'est normal que tu ne puisse pas le mettre.

En dernier ressort tu peut toujours le mettre sur un site tiers et mettre le lien ici.

Et bien expliquer ce que tu veux faire:
Je copie ceci dans tel et tel condition et si j'ai cela alors on fait comme ça ......

Bonne lecture

 

[sylvanu]

Bonjour Boubie, Phil,

message "trop volumineux"

Il suffit de faire un fichier test très simple.
Un essai en PJ avec :

Sub Worksheet_Activate()
Application.ScreenUpdating = False
Range("A2:G10000").ClearContents
For Each F In Worksheets
    If F.Name <> "Base" Then
        With Sheets(F.Name)
            DL = .[A10000].End(xlUp).Row
            tablo = .Range("A2:G" & DL)
        End With
        DL = 1 + [A10000].End(xlUp).Row
        Cells(DL, "A").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
    End If
Next F
End Sub

La reconstruction de la base se fait automatiquement lorsqu'on sélectionne la feuille Base.
Evidemment à adapter à votre vrai fichier.

 

[Boubie]

Bonjour Boubie, Phil,

Il suffit de faire un fichier test très simple.
Un essai en PJ avec :

Sub Worksheet_Activate()
Application.ScreenUpdating = False
Range("A2:G10000").ClearContents
For Each F In Worksheets
    If F.Name <> "Base" Then
        With Sheets(F.Name)
            DL = .[A10000].End(xlUp).Row
            tablo = .Range("A2:G" & DL)
        End With
        DL = 1 + [A10000].End(xlUp).Row
        Cells(DL, "A").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
    End If
Next F
End Sub

La reconstruction de la base se fait automatiquement lorsqu'on sélectionne la feuille Base.
Evidemment à adapter à votre vrai fichier.

 

[Boubie]

Merci beaucoup Sylvanu
Je viens de tester et cela fonctionne super.
Mais seulement si mon fichier comporte BASE et les onglets à compiler.
Comment faire fonctionner la macro avec la présence d'autres onglets qui ne servent pas dnas la compil?
Merci à toi

 

[sylvanu]

Bonsoir,
Pas de fichier, guère d'explications, pas de contexte, alors guère le choix.

Evidemment à adapter à votre vrai fichier.

Au pif,

If F.Name <> "Base" and F.Name <> "Autre onglet 1" and F.Name <> "Autre onglet 2" Then

ou dans l'autre sens :

If F.Name = "Société A" or F.Name = "Société B" or F.Name = "Société C" Then

 

[Boubie]

Merci Sylvanu,
Mes explications étaient peu clair (désolée) mais oui c'est vient cela.
Encore merci pour ton aide précieuse.