Macro pour ajouter une linge

Bonjour à tous,

Novice en VBA je souhaite votre aide pour résoudre mon problème avec ma macro.

J'ai une feuille "Géneral" sur laquelle j' ajoute des informations de façon régulière. Je souhaite que ces ajouts se fasse aussi si la feuille Listing sans que j'ai besoin de le faire manuellement, y compris si je fais des modifications d'informations.

Malheureusement je cale déjà sur l'ajout !

Alors la mise à jour me paraît encore plus complexe. Si l'un ou l'une d'entre vous peut me donner des conseils et des idées de correction à apporter a mon code.

Merci par avance.

La belle journée

Claire

Sub copier()

Dim G As Worksheet ' déclare la variable G onglet Géneral

Dim L As Worksheet ' déclare la variable L onglet Listing

Dim Cel As Range, C As Range

Dim LigneAjout As Long

Application.ScreenUpdating = False

Set G = Sheets("Géneral")

Set L = Sheets("Listing")

For Each Cel In G.Range("A5:A" & G.Range("A" & Rows.Count).End(xlUp).Row)

Set C = L.Columns(1).Find(Cel, , xlValues, xlWhole)

LigneAjout = L.Range("A" & Rows.Count).End(xlUp).Row + 1

If Not C Is Nothing Then

Cel.Resize(, 16).Copy

L.Range("A" & C.Row).PasteSpecial (xlPasteValues)

Else

Cel.Resize(, 16).Copy

L.Range("A" & LigneAjout).PasteSpecial (xlPasteValues)

LigneAjout = LigneAjout + 1

End If

Next Cel

Application.CutCopyMode = False

Set C = Nothing: Set G = Nothing: Set L = Nothing

End Sub

Bonjour

Donc, le but est de décrypter votre code, afin de créer un classeur EXCEL pour résoudre le problème

1) Mettre un classeur exemple (sans confidentialité) en PJ pour travailler dessus (sinon )

2) Il existe une balise CODE (en VERT) pour coller le ou les Module(s)

Si le classeur est fourni avec le ou les Module(s), c'est déjà le N° 2 à ôter

Et les réponses seront rapides pour la solution

Merci M12

Voici le fichier

Re,

A première vue, il y a un gros soucis par le fait de mettre sur une seule feuille une BDD et des pages servant à une Entête et des Devis

Une BDD (Base de données doit être sur une seule feuille (ou onglet)

le reste sur d'autre feuille

même si le problème pourrait être résolu, c'est déjà un principe qui conduira à d'autres problèmes par la suite

Donc, il faut que la BDD soit sur une seule feuillev pour la travailler proprement dans le futur

Merci je vais déjà voir a gérer ce souci et avoir un fichier plus propre pour pouvoir y joindre ma macro.

Bonjour,

Un code doit être indenté pour être lisible ! Et sur le forum mis sous balises Code...

Ceci dit, qu'est-ce qui ne marche pas dans ton code ?

Sub copier()
    Dim G As Worksheet, L As Worksheet, Cel As Range, C As Range, LigneAjout&
    Application.ScreenUpdating = False
    Set G = Sheets("Géneral")
    Set L = Sheets("Listing")
    For Each Cel In G.Range("A5:A" & G.Range("A" & Rows.Count).End(xlUp).Row)
        Set C = L.Columns(1).Find(Cel, , xlValues, xlWhole)
        If Not C Is Nothing Then
            LigneAjout = C.Row
        Else
            LigneAjout = L.Range("A" & Rows.Count).End(xlUp).Row + 1
        End If
        Cel.Resize(, 16).Copy
        L.Range("A" & LigneAjout).PasteSpecial xlPasteValues
    Next Cel
    Application.CutCopyMode = False
End Sub

On peut aussi éviter le copier-coller :

...
        Set C = L.Columns(1).Find(Cel, , xlValues, xlWhole)
        If Not C Is Nothing Then
            LigneAjout = C.Row
        Else
            LigneAjout = L.Range("A" & Rows.Count).End(xlUp).Row + 1
        End If
        L.Range("A" & LigneAjout).Resize(, 16).Value = Cel.Resize(, 16).Value
    Next Cel
End Sub

Cordialement.

Effectivement la macro se lance maintenant mais le souci c'est qu'elle ne prend pas en considération les linges vide...

Re, Salut M12 !

Lignes vides ?

Suis-je bigleux ? M12 réagit à l'examen d'un fichier, que je ne vois pas !

Bonjour MFerrand

Il y a du avoir du "stylo de correction" sur le post, je ne vois plus le fichier

Bonsoir,

je l 'ai retirer pour corriger certaines choses le revoilà, avec toujours le souci qu'il ne prend pas en compte les ligne vide