macros supprimant des lignes en fonction de 3 conditions.

Pierrot93

XLDnaute Barbatruc

• 3 Mars 2009

• #2

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

Bonjour Nina

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

Code:

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
@+

 

Vote positif 0 Vote négatif

N

ninanani

XLDnaute Occasionnel

• 3 Mars 2009

• #3

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Mars 2009

• #4

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" :

Code:

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

@+

 

Vote positif 0 Vote négatif

N

ninanani

XLDnaute Occasionnel

• 3 Mars 2009

• #5

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Mars 2009

• #6

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...

@+

 

Vote positif 0 Vote négatif

N

ninanani

XLDnaute Occasionnel

• 3 Mars 2009

• #7

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!

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Mars 2009

• #8

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

Cliquez pour agrandir...

lol🙂

bonne journée
@+

 

Vote positif 0 Vote négatif