Macro pour supprimer les phrases en double dans un fichier, Excel VBA

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.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Fonctions Excel

Macro VBA Utiles

Excel Pratique

Programmation VBA

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x