Suppression de lignes qui ont même valeurs sur 2 cellules

[Sophie11]

Bonjour, encore moi... 😛 😛
J'ai un tableau avec une serie de date sur la colonne C et une nouvelle serie de date dans la colonne J.
Je voudrais suprrimer toutes les lignes pour lesquelles les 2 date sont equivalente.
Par exemple les lignes 8, 9 etc... seront a effacer.
Si vous avez des idées? Je sais pas du tout quoi faire...
Par avance merci 🙂 🙂

 

[Gorfael]

Re : Suppression de lignes qui ont même valeurs sur 2 cellules

Salut Sophie11 et le forum
Pas envie de télécharger, alors, juste d'après ta description :

sub test()
dim X as long
for X=cells(rows.count, "C") to 2 step-1
' pour X = dernière non vide en C jusqu'à 2 en décrémentant
     If Int(cells(X, "C"))=Int(cells(X,"J")) then Rows(X).delete
     'si C=J alors supprimer la ligne. On ne s'occupe que de la partie entière
next x
end sub

Attention, pas testée. Code très simple (si on connaît 😀).
On par de la dernière, en remontant pour être sûr de supprimer toutes les lignes concernées : Dans l'autre sens, par exemple, Excel supprime la ligne 8, la 9 devient 8, mais comme il l'a déjà traitée, il traite la 9, et donc, si 2 lignes à supprimer se suivent, tu ne touche pas à la seconde.
A+

 

[pierrejean]

Re : Suppression de lignes qui ont même valeurs sur 2 cellules

bonjour Sophie

Vois si cela te convient

Edit salut Gorfael

 

[Sophie11]

Re : Suppression de lignes qui ont même valeurs sur 2 cellules

super! merci beaucoup Pierre-Jean, c'est ce exactement ce que je souhaitais!
Merci encore!! bonne journée 🙂 😛 😛