Microsoft 365 compiler onglets excel avec VBA

Boubie à dit:

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

Cliquez pour agrandir...

Boubie à dit:

message "trop volumineux"

Cliquez pour agrandir...

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

sylvanu à dit:

Bonjour Boubie, Phil,

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

Code:

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.

Cliquez pour agrandir...

sylvanu à dit:

Evidemment à adapter à votre vrai fichier.

Cliquez pour agrandir...

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

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