Vba suppression lignes si 2 conditions

[Kouik Kouik jr]

c'est surement tout con ( je le sais déja)

je désire supprimer toutes les lignes pour lesquelles la valeur A1 =A2 ou A3 ou A4... ainsi que la valeur D1 = D2 ou D3 ou D4....

J'essaie avec le code suivant que j'ai modifié, mais comme d'hab ...pas de résultat.........quelqu'un serait il un peu plus doué ?

Merci d'avance

Sub erase()

'supprimer lignes Finales saisie a la même minute


For i = Range("a65536").End(xlUp).Row To 2 Step -1
If Cells(i, 3) = "Final" And Cells(i, 4) = Cells(i + i, 4) Then
Rows(i).Delete
End If
Next i

End Sub

 

[soenda]

Re : Vba suppression lignes si 2 conditions

Bonjour le fil, kouic kouic jr

Erase est une instruction VB ...

Tu peux essayer par exemple :

Sub [B]Efface[/B]()

A plus

 

[Kouik Kouik jr]

Re : Vba suppression lignes si 2 conditions

cela ne marche toujours pas même si je renome Sub efface()


🙁

 

[Kouik Kouik jr]

Re : Vba suppression lignes si 2 conditions

C'est tout bon j'ai réussi !

Voici ce que j'utilise comme code

Merci pour votre aide !

Sub erasenotnav()

With Worksheets("Feuil5")

'supprimer lignes Finales saisie a la même minute

For i = Range("a65536").End(xlUp).Row To 2 Step -1
If Cells(i, 1) = Cells(i + 1, 1) And Cells(i, 4) = Cells(i + 1, 4) Then
Rows(i).Delete
End If
Next i


End With




End Sub

 

[soenda]

Re : Vba suppression lignes si 2 conditions

Re,

Ceci ne marche pas

...
If Cells(i, 3) = [COLOR=red]"Final"[/COLOR] And Cells(i, 4) = Cells(i + i, 4) Then ...

Mais ceci fonctionne

...
If Cells(i, 1) = [COLOR=red]Cells(i + 1, 1[/COLOR]) And Cells(i, 4) = Cells(i + 1, 4) Then ...

Je ne veux pas ressortir la blague de la boule de cristal,
mais ce serait sympa d'enoyer un fichier dans ce cas de figure.
On se sentirait moins ... perdu.

Ceci dit, "Sub erase()" est coloré chez moi. 😉

A plus