Suppression de lignes

[c0rentin59]

Bonjour à tous,

Je possède une feuille et dans celle ci, x lignes et x colonnes.
Ce que je veux c'est supprimer toutes les lignes dont les valeurs dans la colonne L sont identiques.

J'ai commencé par une boucle pour:

For lig = 1 To 300
If Range("L" & lig).Value = Range("L" & lig + 1).Value Then
............. pas d'idée

Si les lignes 8 et 9 possèdent les mêmes éléments (chiffre, lettre ou espace)
respectivement dans la colonne L: Alors les 2 lignes se suppriment.

Idem pour les 300 lignes.

Voilà je bloque et je passe beaucoup de temps (pr pas grd chose...)

Si qq a une idée... je suis preneur.

D'avance Merci!

 

[phlaurent55]

Re : Suppression de lignes

Bonjour Corentin,

For lig = 1 To 300

personnellement, je ferais:
For lig = 300 to 2 Step -1
If Range("L" & lig).Value = Range("L" & lig - 1).Value Then
...............

à+
Philippe

 

[JCGL]

Re : Suppression de lignes

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub Sup_en_L()
    Dim i As Long

    Application.ScreenUpdating = 0

    For i = Range("L65536").End(xlUp).Row To 1 Step -1
        If Application.CountIf(Range(Cells(i, 12), "L1"), Cells(i, 12)) > 1 Then
            Rows(i).Delete
        End If
    Next i
End Sub

A+ à tous

Édition : Salut Philippe
Édition : Salut Bruno

 

[Compte Supprimé 979]

Re : Suppression de lignes

Bonjour le fil,

Je confirme ce que dis phlaurent55,
il faut aller de la dernière ligne à la première lors de suppression

A+

Edit : oups, salut JC

 

[c0rentin59]

Re : Suppression de lignes

Ce n'est pas la réponse à mon PB.
Cette première partie du code fonctionne très bien comme je l'ai inscrit.
Ma question consiste à trouver le code qui supprimes les lignes comme je l'ai expliqué dans mon message précédent.
Merci tout de même et bonne soirée.

 

[c0rentin59]

Re : Suppression de lignes

C'est pour moi j'ai mal lu.
J'essai tout de suite ton code.

Merci à toi.

 

[Compte Supprimé 979]

Re : Suppression de lignes

Re,

Ce n'est peut-être pas la réponse à ton pb M'sieur
Mais tu fais autrement tu vas te casser la gueule M'sieur

Comme tu sais tout, tu devrais trouver tout seul ... pffft

Prends un tranxen ça ira mieux ...

 

[phlaurent55]

Re : Suppression de lignes

Re,

Ce n'est pas la réponse à mon PB.

il y a pourtant un problème car
lorsqu'on supprime une/des lignes dans une boucle VBA, il faut TOUJOURS partir de la dernière ligne vers la première

à+
Philippe

Edit: Bonsoir Jean-Claude ........... tu est fatigué ......... il manque Application.ScreenUpdating = True

Edit: Salut Bruno

 

[JCGL]

Re : Suppression de lignes

Bonjour à tous,

Philippe : Il n'est pas nécessaire dans ce cas
A++

Corentin : nous sommes trois à te suggérer de commencer par le bas et de remonter : il doit y avoir une raison...

A+ à tous

 

[c0rentin59]

Re : Suppression de lignes

Vous avez surement raison j'ai donc modifier mon code.
("il faut aller de la dernière ligne à la première lors de suppression")

Par contre les lignes supprimées ne sont pas les bonnes.
Je verrai cela demain je n'ai pas le courage ce soir.
Merci à vous et allez Quevilly!!!

PS pour Bruno: "Comme tu sais tout, tu devrais trouver tout seul ... pffft "> jamais dis ça
"Prends un tranxen ça ira mieux" ... > tinkiete j'ai mon pet

 

[JCGL]

Re : Suppression de lignes

Bonjour à tous,

Un fichier exemple en attachement

A+ à tous