Eliminer de façon automatique des lignes dans tableau sous condition VBA

tototiti2008

XLDnaute Barbatruc

• 22 Mai 2012

• #2

Re : Eliminer de façon automatique des lignes dans tableau sous condition VBA

Bonjour marcopm,

sinon, on peut le faire en formule
Bien trier la liste sur la colonne A
en K2

Code:

=SI(A2<>A1;A2;"")

à recopier vers le bas

Puis copier/collage spécial - valeurs de la colonne K sur la colonne A

 

Vote positif 0 Vote négatif

M

marcopm

XLDnaute Nouveau

• 22 Mai 2012

• #3

Re : Eliminer de façon automatique des lignes dans tableau sous condition VBA

Désolé mais je ne comprend pas.
De plis, le tableau est déjà trié. La variable dans la colonne A est la seule qui doit être comparée avec la ligne suivante pour la suppression ou non de la ligne.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 22 Mai 2012

• #4

Re : Eliminer de façon automatique des lignes dans tableau sous condition VBA

Re,

la remarque

Bien trier la liste sur la colonne A

Cliquez pour agrandir...

était juste là pour préciser que si ce n'est pas trié, ma solution ne fonctionne pas
Sinon qu'est-ce que tu n'as pas compris ?
Veux-tu absolument du VBA ?

 

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 22 Mai 2012

• #5

Re : Eliminer de façon automatique des lignes dans tableau sous condition VBA

En fait, tout dépend ce que tu veux, si c'est une action ponctuelle ou occasionnelle, je peux te proposer de mettre dans chaque cellule de la colonne K la formule, exemple K2=A2=A1. De filtrer la colonne K sur les valeurs VRAI et de supprimer les lignes concernées. Et quand tu enlèves ton filtre, ta sélection est faite.

Edit: Salut tototiti2008, je suis pas sûr que ta solution fonctionne pour ne récupérer que les lignes non répétées.

 

Vote positif 0 Vote négatif

M

marcopm

XLDnaute Nouveau

• 22 Mai 2012

• #6

Re : Eliminer de façon automatique des lignes dans tableau sous condition VBA

Ton code, tu le mets où ?

 

Vote positif 0 Vote négatif

M

marcopm

XLDnaute Nouveau

• 22 Mai 2012

• #7

Re : Eliminer de façon automatique des lignes dans tableau sous condition VBA

En fait le VBA permettrait d'automatiser et ne pas avoir à faire du copier/coller sur tous les classeurs (car j'en ai beaucoup)

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 22 Mai 2012

• #8

Re : Eliminer de façon automatique des lignes dans tableau sous condition VBA

Re,
Bonjour Florian,

Salut tototiti2008, je suis pas sûr que ta solution fonctionne pour ne récupérer que les lignes non répétées.

Cliquez pour agrandir...

Peux-tu m'expliquer dans quel cas pour que je me couche moins bête ?

La macro là devrait s'appliquer sur la feuille active

Code:

Sub NettoieColonneA()
Dim i As Long
    For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Range("A" & i).Value = Range("A" & i - 1).Value Then Range("A" & i).ClearContents
    Next i
End Sub

 

Vote positif 0 Vote négatif

M

marcopm

XLDnaute Nouveau

• 22 Mai 2012

• #9

Re : Eliminer de façon automatique des lignes dans tableau sous condition VBA

Ca fonctionne mais en fait je veux supprimer toute la ligne et pas seulement enlever la variable de la colonne A.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 22 Mai 2012

• #10

Re : Eliminer de façon automatique des lignes dans tableau sous condition VBA

Re,

Merci, je me coucherais moins bête 😉

Code:

Sub SupprColonneADouble()
Dim i As Long
    For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Range("A" & i).Value = Range("A" & i - 1).Value Then Range("A" & i).entirerow.delete
    Next i
End Sub

Edit : Merci Florian pour la précision, je n'avais pas compris qu'il s'agissait de suppression de lignes 🙂

 

Dernière édition: 22 Mai 2012

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 22 Mai 2012

• #11

Re : Eliminer de façon automatique des lignes dans tableau sous condition VBA

Tototiti2008, ce que tu indiques là ne te permets pas de supprimer les lignes identiques:

Puis copier/collage spécial - valeurs de la colonne K sur la colonne A

Cliquez pour agrandir...

Je pense que la demande est celle-là, tu peux confirmer marcopm?

 

Vote positif 0 Vote négatif

M

marcopm

XLDnaute Nouveau

• 22 Mai 2012

• #12

Re : Eliminer de façon automatique des lignes dans tableau sous condition VBA

Le code vba est nickel merci beaucoup !

 

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 22 Mai 2012

• #13

Re : Eliminer de façon automatique des lignes dans tableau sous condition VBA

Il n'y a pas de quoi tototiti2008, ça peut arriver, depuis tu as trouver le bon code 😉

 

Vote positif 0 Vote négatif