Hervé
XLDnaute Barbatruc
Bonsoir tout le monde
je cherche a supprimer d'une plage tout les doublons.
je ne voulais pas passer par les traditionnels collection et tableau, j'ai essayé avec des range.
et ca coince
dans le code suivant, la ligne en commentaire provoque une erreur 13, et je ne trouve pas la bonne syntaxe.
End Sub
d'avance je vous en remercie.
salut
je cherche a supprimer d'une plage tout les doublons.
je ne voulais pas passer par les traditionnels collection et tableau, j'ai essayé avec des range.
et ca coince
dans le code suivant, la ligne en commentaire provoque une erreur 13, et je ne trouve pas la bonne syntaxe.
Sub Bouton1_QuandClic()
Dim plage As Range
Dim c As Range
Set plage = Range('a1').CurrentRegion
For Each c In plage
If Len(c) > 0 Then
If WorksheetFunction.CountIf(plage, c) > 1 Then
'plage = Replace(plage, c, '')'MARCHE PAS
End If
End If
Next c
Sheets('feuil2').Range('a1').Resize(plage.Rows.Count, plage.Columns.Count) = plage.Value
End Sub
End Sub
d'avance je vous en remercie.
salut