J
JPHI
Guest
Bonjour
J'utilise la macro ci-dessous pour supprimer des doublons :
Sub Doublons()
MaCellule = "A2"
Range(MaCellule).Select
ActiveCell.CurrentRegion.Sort Key1:=Range(MaCellule), Order1:=xlAscending, Header:=xlYes
donnee1 = ActiveCell
While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
If ActiveCell = donnee1 Then
ActiveCell.Offset(-1, 0).Select
ActiveCell.EntireRow.Delete
donnee1 = ActiveCell
Else
donnee1 = ActiveCell
Elle marche si je la lance depuis un bouton mais elle ne marche pas quand je la met dans ma macro sub auto_open via "Call Doublons"
Quelqu'un peut t'il m'aider SVP?
Merci
J'utilise la macro ci-dessous pour supprimer des doublons :
Sub Doublons()
MaCellule = "A2"
Range(MaCellule).Select
ActiveCell.CurrentRegion.Sort Key1:=Range(MaCellule), Order1:=xlAscending, Header:=xlYes
donnee1 = ActiveCell
While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
If ActiveCell = donnee1 Then
ActiveCell.Offset(-1, 0).Select
ActiveCell.EntireRow.Delete
donnee1 = ActiveCell
Else
donnee1 = ActiveCell
Elle marche si je la lance depuis un bouton mais elle ne marche pas quand je la met dans ma macro sub auto_open via "Call Doublons"
Quelqu'un peut t'il m'aider SVP?
Merci