Récupérer données et supprimer doublons MACRO

Bonjour à tous,

Je suis actuellement à la recherche d'un Macro simple pour récupérer les données que j'ai dans un Onglet "OI General" Colonne R, qui supprime les doublons et qui me retranscrit la liste finale dans un onglet "MRFST", colonne A.

Cela est-il possible et simple ?

Merci d'avance pour vos réponses.

FloBru

Bonjour toutes et tous

à tester normalement la macro trie et supprime les doublons

ci-joint

crdlt,

André

Re,

Merci beaucoup @Andre13, cette réponse est super utile. Juste est-il possible de faire la même chose en supprimant tous les vides?

Car en effet certaines lignes de ma colonne R sont vides et je voudrais éviter de les retrouver dans la seconde page.

Merci encore et merci d'avance .

FloBru

Re,

à tester nouvelle version

• timing durée en temps de l’exécution de la macro affiche un message box
• colonne teste de "R2:R200" des 2 'onglets du classeur

crdlt,

André

Re,

Encore merci pour cette réponse, je sais pas si le problème vient de mon Excel, mais quand j'applique la macro, il y a aussi un décalage sur les lignes de la colonne R source.

Est-il aussi possible d'enlever les lignes vide de l'extrait?

Merci beaucoup.

FloBru

Bonjour toutes et tous,

@FloBru

Combien de lignes, ? car, la macro s’arrête à 200 lignes (on peut l'augmenter)

le décalage est du à l'entête que j'avais mis c'est réglé cela démarrera à la première ligne sur la prochaine version.test010

j'vais voir ce que je peux faire

tiens moi au courant pour le nombre de lignes approximatifs

EDIT: merci à Jean-Eric post ci-dessous

crdlt,

André

Bonjour André,

Aujourd'hui mon tableau fait 1400 lignes mais j'ai bien vu dans ta macro qu'on pouvait le changer simplement.

Pour information ce nombre de ligne change tous les jours

Merci d'avance,

FloBru

Bonjour,

Bonjour André,

Sur base de ton fichier, une approche différente.

Cdlt.

Public Sub Copy_Data()
Dim N As Long, rng As Range
Dim t As Single
    t = Timer
    N = ActiveSheet.Cells(Rows.Count, 18).End(xlUp).Row
    On Error Resume Next
    Set rng = ActiveSheet.Cells(18).Resize(N).SpecialCells(xlCellTypeConstants)
    On Error GoTo 0
    If Not rng Is Nothing Then
        rng.Copy Destination:=Worksheets("MRFST").Cells(1)
        Worksheets("MRFST").Cells(1).CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes
    End If
    MsgBox Format(Timer - t, "0.00") & " seconde(s)", vbInformation, "Durée"
End Sub

Re,

coucou et un grand merci à Jean Eric ^^

crdlt,

André

Re,

Merci André et Jean-Eric, en effet la fusion de vos deux réponse est super bien!

Merci beaucoup pour votre temps et toutes vos réponses

FloBru