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

[dilou]

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.

 

[Jacky67]

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.

Bonjour
Une proposition en Pj
La mise à jour se fait en sélectionnant la feuille "Importation"
**Avec les noms des éventuelless banques en V2

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

 

[sylvanu]

Bonjour Dilou, jacky
Une proposition ....
J'ai opté plutôt pour une consolidation lorsqu'on sélectionne la feuille "Importation" et je la reconstruit entierement.
De cette façon les lignes ajoutées sont prises en compte mais aussi les lignes modifiées et les commentaires rajoutés.
J'ai rajouté une colonne Ville. essentiellment pour les tests, mais vous puvez la conserver.

 

[sylvanu]

Jacky, je pense qu'on a eu la même idée

 

[dilou]

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

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

 

[dilou]

merci de votre aider je regarde sa tout a l heure encore une question je peut rajouter d autre onglet autre que des noms de ville

 

[sylvanu]

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

 

[dilou]

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 .

 

[Jacky67]

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 .

Re...
Tester la V2

**Rappel de la demande
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.

 

[dilou]

Re...
Tester la V2

merci elle est ou la v2 a tester

 

[dilou]

merci elle est ou la v2 a tester

dsl je viens de la voir

 

[dilou]

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

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 .

 

[sylvanu]

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

    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.

 

[Jacky67]

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 .

RE...
Sauf erreur la v2 ne prend pas en compte la feuille "Extraction"
Ma proposition fait en plus de tenir compte de cette feuille ce qui est demandé.
Soit
Re-rappel de la demande
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.
Si ce n'est pas le cas, je cède la main!

 

[dilou]

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

    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.

Merci sa fonctionne encore une chose pourquoi quand j écrie dans l onglet importation sur la ligne 2 et que je change d onglet sa efface l écrit