Supprimer Doublons

[pierrof]

Bonjour le Forum

Voila j'aimerai à l'aide d'un bouton copier un tableau d'une feuille (A) sur une autre feuille (B) et supprimer les lignes en doublons (nom).

Je joint un fichier exemple pour plus de clarté.


Merci de votre aide

 

[pierrof]

Re : Supprimer Doublons

J'ai essayer ce code
Worksheets("B").Activate
MaCellule = ("B6")
Range(MaCellule).Select
ActiveCell.CurrentRegion.Sort Key1:=Range(MaCellule), Order1:=xlAscending, Header:=xlYes
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select

While ActiveCell <> ""
If ActiveCell = donnee1 Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
Else
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Wend

Mais ça ne fonctionne pas erreur d'exécution sur Range(MaCellule).Select

 

[flyonets44]

Re : Supprimer Doublons

Bonsoir
Dim macellule as range
set ma cellule =range("b6")
Cordialement
flyonets

 

[pierrof]

Re : Supprimer Doublons

Bonsoir flyonets44

Je viens d'essayer, mais j'ai le même message d'erreur exécution MaCellule = ("A2")