Dans l’exemple suivant, nous voulons nettoyer une liste. Après le nettoyage, seuls les éléments uniques devraient être disponibles, i. c’est-à-dire que toutes les doubles phrases doivent être supprimées. La seule exigence pour la macro est que la liste doit déjà être triée.

Toutes les lignes sauf l’en-tête doivent être supprimées.

Sub SupprimerLesEntreesDouble ()

Sheets ("Feuil3"). Activate

Range ("A1"). Select

Do Until IsEmpty (ActiveCell)

If ActiveCell.Offset (1, 0) .Value = ActiveCell.Value Then

ActiveCell.Offset (1, 0) .EntireRow.Delete

Else

ActiveCell.Offset (1, 0) .Select

End if

Loop

End Sub

Vous pouvez utiliser la fonction IsEmpty pour vérifier si le contenu d’une cellule est vide. Dans la boucle, vous comparez la phrase actuelle avec la suivante. S’ils sont identiques, supprimez la phrase suivante (le doublon) avec l’instruction ActiveCell .Offset (1, 0) .EntireRow.Delete. Sinon, déplacez simplement le pointeur de la souris d’une ligne vers le bas.