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
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
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.