Supprimer ligne quand cellule vide et/ou quand valeur negative

[sim]

Re-bonjour a tous!

Bon la probleme de taille!! Enfin pour moi.....🙁

Situation:
1903 lignes
Colonnes de A:N

Colonne I, si cellule vide supprimer la ligne
Colone N, si valeur negative supprimer la ligne

Il se peut que les deux conditions soient reunies, ou juste une...

Le nombre de ligne sera amenee a changer.

Test effectue, juste sur la colone I, mais non concluant parce que ca fait litteralement buguer excel (obliger de forcer l'arret de excel par gestionnaire des taches):
(code pris sur XLD et modifie)

Dans le code de la feuille en question:

Sub supp()
Dim Cel_vide As Range
Dim ad_cel As Integer

For Each Cel_vide In Range("I:I"))
If Cel_vide.Value = "" Then
ad_cel = Cel_vide.Row
Rows(ad_cel).Delete
End If
Next Cel_vide
End Sub

Voila.......je suis completement paume pour le coup...😕

Quelqu'un a t il une solution, une idee.....???????

Merci d'avance...😱

 

[Robert]

Re : Supprimer ligne quand cellule vide et/ou quand valeur negative

Bonjour Sim, bonjour le forum,

Essaie comme ça :

Sub supp()
Dim dl As Integer 'déclare la variable dl
Dim x As Integer 'déclare la variable x

dl = Range("I65536").End(xlUp).Row 'définit la variable x (dernière ligne remplie (colonne à adapter))
For x = dl To 1 Step -1 'boucle inversée sur toutes les lignes x
    'si la cellule de la ligne x, colonne 9 ("I") est vide ou si la cellule de la ligne x
    'colonne 14 ("N") est négative, supprime la ligne
    If Cells(x, 9).Value = "" Or Cells(x, 14) < 0 Then Rows(x).Delete
Next x 'prochaine ligne de la boucle
End Sub

 

[sim]

Re : Supprimer ligne quand cellule vide et/ou quand valeur negative

Alors la je suis bluffer!!!!

Merci beaucoup!! Ca fonctionne parfaitement, meme si pour moi jeune profane, j'ai peur que ca supprime de mauvaises lignes....

Mais c'est impossible n'est ce pas?!!

Encore merci, c'est un sacre pas!!!!!

 

[sim]

Re : Supprimer ligne quand cellule vide et/ou quand valeur negative

Re,

Enfait si il y a un petit probleme, mais je suis sur que c'est juste un detail:

La macro a laisser les valeur negatives, peut etre vela vient du fait que les valeurs negative sont entre parenthese

ex: (18000) au lieu de -18000

Cela peut il venir de la?

Merci

 

[sim]

Re : Supprimer ligne quand cellule vide et/ou quand valeur negative

Re,

Une precision tout de meme,

Comme toujours je me suis fait avoir, la valeur negative est affichee (18000) dans la cellule
mais en realite dans la barre fx: -180000

Donc du coup je sais plus........

Sim

 

[mutzik]

Re : Supprimer ligne quand cellule vide et/ou quand valeur negative

Bonjour,

Robert ne semblant plus être là, envoie un bout de ton fichier avec des lignes significatives pour qu'on puisse tester

 

[sim]

Re : Supprimer ligne quand cellule vide et/ou quand valeur negative

Bonjour!!!

J'ai envie de dire tant mieux si il n'est plus la parce qu'il m'aurait chambre severrrrrrrr!!

Les valeurs negatives sont dans la colonne M et non la colone N

Je suis une grosse bille sur ce coup la!!!

Alors je vais essayer de changer son code et si j'y arrive pas je reviens vers vous

Et merci!!!!!

 

[sim]

Re : Supprimer ligne quand cellule vide et/ou quand valeur negative

Re,

LOL evidemment maintenant ca va vachement mieux!

J'ai juste remplacer 14 equivalent de la colone N par
13 equivalent de la colone M

Merci beaucoup pour avoir demander!