Suppression de ligne en doucle VBA

[Résolu/Fermé]
Signaler
-
 Juju -
Bonjour,

Petit souci... comme d'hab... je fais appel à votre aide de spécialiste...malgré mes petits essais et recherches je ne trouve pas...
Quelqu'un peut me dire comment on fait pour (en VBA) lancer une recherche verticale dans une colonne et lorsque 2 cellule qui se suivent ont la même valeur alors il supprime la première ligne ?

En vous remerciant par avance !!

1 réponse

Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 654
Bonjour,
Voici une macro qui :
1- trie les données (important si vous souhaitez supprimer les doublons même s'ils se retrouvent plus bas dans le tableau). Ici le Range trié est A1:C22 mais vous pouvez compléter par ce que vous voulez.
2- Tant que Ax est non vide compare Ax et A(x+1) si = alors supprime toute la ligne x

SAUVEGARDEZ AVANT VOTRE TABLEAU car une macro n'est pas "annulable"...

Sub supprdoublons()
Dim i As Integer
Range("A1:C22").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
i = 1
While Range("A" & i) <> ""
i = i + 1
If Range("A" & i) = Range("A" & (i + 1)) Then
Range("A" & i).EntireRow.Delete
End If
Wend
End Sub
merci a toi cela m'a bien aidé !!