Automatisation VBA copier coller et doublons

Bonjour à tous,

J’ai un problème sur une manipulation que je souhaiterais automatiser pour gagner du temps et éviter des recherches V etc ( voir fichier ci-joint ).

1) Dans un premier temps :

• Copier les éléments récupérer dans ma base de donnée « Réel M-1 2019 » colonnes I2 / J2 / K2 / L2.
• Coller ces éléments dans l’onglet « Rubrique » à partir de la cellule (A 411)

2) Ensuite supprimer les doublons de la colonne A jusqu’à D, après avoir copier-coller

3) Récupérer en colonne G la rubrique SIG à partir de la colonne A, selon le service mentionné dans la colonne C « Libellé de section regroupement ».

Je remercie infiniment la ou les personnes qui pourront m’aider !!

Bonne journée.

Bonjour,

Un début de réponse.

Cdlt.

Public Sub Copydata()
Dim ws As Worksheet, ws2 As Worksheet, rng As Range, lRow As Long
    Set ws = Worksheets("R?el M-1 2019 ")
    Set ws2 = Worksheets("Rubriques")
    With ws
        lRow = .Cells(.Rows.Count, 9).End(xlUp).Row
        Set rng = .Cells(2, 9).Resize(lRow - 1, 4)
    End With
    With ws2
        lRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Cells(lRow, 1).Resize(rng.Rows.Count, rng.Columns.Count) = rng.Value
        .Cells(1).CurrentRegion.RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlYes
        .Cells(1).CurrentRegion.Borders.Weight = xlThin
    End With
End Sub

Merci infiniment Jean - Eric!! étant novice sur le sujet , pouvez-vous m'aider à finaliser votre réponse ?

je vous remercie par avance.

Crdlt,

Re,

Peux tu reformuler ?

pouvez-vous m'aider à finaliser votre réponse ?

je souhaiterais après avoir supprimer les doublons , recopier les rubriques SIG se trouvant en colonne A dans les colonnes G H I ect… en fonction de la direction ( cette info sur la direction se trouve en colonne C ).

Je te remercie Jean-Eric.

Cordialement,

Bonjour,

Une mise à jour à tester.

ALT F8, exécuter la procédure CopyData

Il y a donc du VBA (consolidation des données) et du Power Query (restitution des données).

Cdlt.

Bonsoir Jean - Eric,

Merci beaucoup pour ton aide, j'essaye ça demain sur mon fichier de travail en espérant que j'y arrive.

Cordialement,