macros supprimant des lignes en fonction de 3 conditions.

[ninanani]

Bonjour.

Malgres mes nombreux postes precedant, votre aide precieuse et vos explications, j'ai certe fais de nombreux progres en macro et langage VBA, seulement j'ai toujours un peu du mal lorsque je dois completement creer une macro.

J'aiemarsi une macro qui effacerait toutes les lignes ou il y ecrit 0 en collone H et G, et "ok" en I. Pourque la ligne soit supprimer, il faut que ces trois conditions soient remplis.

Lorsque je dis supprimer la ligne, c'est par seulement les informations presentes sur celle ci, c'est carement supprimer la ligne.

J'espere avoir ete claire, et que vous pourrez m'aider.
Merci d'avance.

 

[Pierrot93]

Re : macros supprimant des lignes en fonction de 3 conditions.

Bonjour Nina

peut être comme ceci, si j'ai bien compris :

Option Explicit
Sub test()
Dim i As Integer
For i = Range("G65536").End(xlUp).Row To 1 Step -1
    If Range("G" & i).Value = 0 And Range("H" & i).Value = 0 And _
        Range("I" & i).Value = "ok" Then Rows(i).Delete
Next i
End Sub

attention, sensible à la casse.

bonne journée
@+

 

[ninanani]

Re : macros supprimant des lignes en fonction de 3 conditions.

Re Pierrot,
Je pense que tu as bien cerne ce que je souhaite.
Ou fois-je inserer dans cette macro mon nom de feuille?

J'ai essaye d'appliquer cette macro sur la feuille souhaite, mais lorsque je l'active rien ne se passe.

Merci bcp pour ton aide.

 

[Pierrot93]

Re : macros supprimant des lignes en fonction de 3 conditions.

Re

tu peux la placer dans un module standard ou bien dans le module de la feuille concernée... Attention s'exécute sur la feuille active, si cela n'est pas le cas tu dois faire préceder tous les "range" du nom de la feuille ou passer par un bloc "with" :

Option Explicit
Sub test()
Dim i As Integer
With Sheets("NomDeFeuille")
For i = .Range("G65536").End(xlUp).Row To 1 Step -1
    If .Range("G" & i).Value = 0 And .Range("H" & i).Value = 0 And _
        .Range("I" & i).Value = "ok" Then .Rows(i).Delete
Next i
End With
End Sub

@+

 

[ninanani]

Re : macros supprimant des lignes en fonction de 3 conditions.

Re,
Encore merci pour ta reponse.
Malheureusement, en completant le nom de feuille, et en mofifiant la collone (en fonction de mon fichier). Cela ne marche pas. Lorsque je lance ma macro, rien ne se passe.

Je ne vois pas pourquoi.

 

[Pierrot93]

Re : macros supprimant des lignes en fonction de 3 conditions.

Re

chez moi cela fonctionne(Excel2003), mais sans voir le fichier, difficile de t'en dire plus. Les valeurs testées sont bien des 0 (zéro) et "ok"(en minuscule)... A noter que la dernière ligne de la plage à testé doit correspondre avec la dernière cellule de la colonne G...

@+

 

[ninanani]

Re : macros supprimant des lignes en fonction de 3 conditions.

Re Pierrot.

Finalement c'est bon, cela fonctionne. Je n'avais pas fais attention, mais les OK etaient en majuscule.

Merci bcp de ton aide!

 

[Pierrot93]

Re : macros supprimant des lignes en fonction de 3 conditions.

Re

aarf, t'avais pourtant prévenu dans le premier post

attention, sensible à la casse

lol🙂

bonne journée
@+