Macro Copie de données d'une colonne avec 1 critère vers un onglet

[Lili189]

Bonjour,

Je solllicite votre aide pour mon fichier Excel.

Il est composé d'une seule colonne.

Je voudrais que toutes les cellules commençant par A.XXXX.XXXXX (X remplace des chiffres) se copie les une après les autres (sans doublons) dans l'onglet "Extrac" à partir de la cellule C2 sous le mot "liste".

Pouvez vous m'aider à faire cela ?

Merci d'avance.

Bonne journée à tous.

 

[sousou]

Re : Macro Copie de données d'une colonne avec 1 critère vers un onglet

Bonjour
Tu peux essayer ce code.
As-tu un rapport avec marie189, parce que vos fichiers semble sortir de la même machine...

Sub deb()
Set dest = Sheets("Extrac")
dest.Columns(3).Clear
dest.Range("c1") = "Liste"
For Each i In Sheets("données").Columns(1).Rows
If Left(i, 2) = "A." Then
dest.Range("c2") = i
dest.Rows(2).Insert
End If
Next
With dest.Sort
.SetRange Columns(3).Rows
.Header = xlYes
.Apply
End With
Call doublon(dest.UsedRange.Columns(1).Rows)
With dest.Sort
.SetRange Columns(3).Rows
.Header = xlYes
.Apply
End With
End Sub

Sub doublon(zone)
n = 1
ref = zone(n)
While n < zone.Count
If zone(n + 1) = ref Then zone(n + 1).Clear Else ref = zone(n + 1)
n = n + 1

Wend
End Sub