Suppression de ligne en doucle VBA
Résolu
Juju
-
Juju -
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 !!
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 !!
A voir également:
- Suppression de ligne en doucle VBA
- Partage de photos en ligne - Guide
- Forcer suppression fichier - Guide
- Mètre en ligne - Guide
- Formulaire en ligne de meta - Guide
- Reconnaissance musique en ligne sans télécharger - Guide
1 réponse
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
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
Juju
merci a toi cela m'a bien aidé !!
