XL 2010 copie automatique vba d'une feuille a l autre

dilou à dit:

Bonjour

je souhaite crée un code vba pour une copie automatique des onglets villes par exemple à la feuille importation et chaque fois que je rajoute une ligne dans un des onglets il se copie automatiquement dans l onglet importation a la suite du reste. je suis novice et sa a pas l aire simple.

merci a ceux qui pourrons m aider.

Cliquez pour agrandir...

Private Sub Worksheet_Activate()
    Dim Sh As Worksheet, Derlg&
    Application.ScreenUpdating = False
    Range("b2.e" & Rows.Count).Clear
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name <> ActiveSheet.Name Then
            Derlg = Sh.Cells.Find("*", , , , xlByRows, xlPrevious).Row
            If Derlg > 1 Then Sh.Range("b2:e" & Derlg).Copy Range("b" & Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1)
        End If
    Next
End Sub

Jacky67 à dit:

Bonjour
Une proposition en Pj
La mise à jour se fait en sélectionnant la feuille "Importation"

VB:

Private Sub Worksheet_Activate()
    Dim Sh As Worksheet, Derlg&
    Application.ScreenUpdating = False
    Range("b2.e" & Rows.Count).Clear
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name <> ActiveSheet.Name Then
            Derlg = Sh.Cells.Find("*", , , , xlByRows, xlPrevious).Row
            If Derlg > 1 Then Sh.Range("b2:e" & Derlg).Copy Range("b" & Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1)
        End If
    Next
End Sub

Cliquez pour agrandir...

dilou à dit:

merci mais le problème et qu il me prend en compte un autre onglet que je souhaite pas qu il me prenne celui de l onglet extraction cette ongle me permet de faire mais recherche .

Cliquez pour agrandir...

Jacky67 à dit:

Re...
Tester la V2

Cliquez pour agrandir...

dilou à dit:

merci elle est ou la v2 a tester

Cliquez pour agrandir...

sylvanu à dit:

Oui n'importe quel nom puisque les deux logiciels scrutent toutes les feuilles hormis Importation.

Cliquez pour agrandir...

dilou à dit:

merci mais le problème et qu il me prend en compte un autre onglet que je souhaite pas qu il me prenne celui de l onglet extraction cette ongle me permet de faire mais recherche .

Cliquez pour agrandir...

sylvanu à dit:

Ce n'était pas dans les specs de départ.
il suffit de rajouter la ligne :

VB:

    If Sh.Name = "Extraction" Then GoTo EndConsolidation ' car feuille Extraction n'est pas a traitée.

Si vous aviez une troisieme feuille à exclure, vous rajoutez une ligne.

Cliquez pour agrandir...