Je ne peux pas vous dire le nombre de fois que j’ai reçu des données brutes d’un programme ou d’une personne, et la première chose que je dois faire est de supprimer les doublons de la liste. Si vous vous trouvez dans la même situation, la macro suivante sera d’une grande aide:

Sub DelDups()

Dim rngSrc As Range     Dim NumRows As Integer     Dim ThisRow As Integer     Dim ThatRow As Integer     Dim ThisCol As Integer     Dim J As Integer, K As Integer

Application.ScreenUpdating = False     Set rngSrc = ActiveSheet.Range(ActiveWindow.Selection.Address)



NumRows = rngSrc.Rows.Count     ThisRow = rngSrc.Row     ThatRow = ThisRow + NumRows - 1     ThisCol = rngSrc.Column

'Start wiping out duplicates     For J = ThisRow To (ThatRow - 1)

If Cells(J, ThisCol) > "" Then             For K = (J + 1) To ThatRow                 If Cells(J, ThisCol) = Cells(K, ThisCol) Then                     Cells(K, ThisCol) = ""

End If             Next K         End If     Next J

'Remove cells that are empty     For J = ThatRow To ThisRow Step -1         If Cells(J, ThisCol) = "" Then             Cells(J, ThisCol).Delete xlShiftUp         End If     Next J     Application.ScreenUpdating = True End Sub

La macro fonctionne sur une sélection que vous faites avant de l’appeler. Ainsi, si vous devez supprimer les cellules en double de la plage C15: C59, sélectionnez simplement cette plage, puis exécutez la macro. Si vous sélectionnez plusieurs colonnes dans la plage (par exemple, C15: E59), seule la première colonne de la plage est affectée. Lorsque la macro est terminée, les cellules dupliquées sont supprimées, tout comme les cellules vides.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2109) s’applique à Microsoft Excel 97, 2000, 2002 et 2003.