Pb de macro ...

MAZETTE

XLDnaute Occasionnel

• 16 Novembre 2007

• #2

Re : Pb de macro ...

Salut Argon,

Ca marche bien chez moi ???

Mazette

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Novembre 2007

• #3

Re : Pb de macro ...

Bonjour Argon, Mazette

effectivement en procédant par une boucle "for each" si 2 cellules consécutives répondent aux critères, tu ne supprimes que la première, essaye comme ceci, une boucle en commencant par la dernière ligne :

Code:

Sub Macronok()
Dim i As Long
For i = Range("B65536").End(xlUp).Row To 2 Step -1
    If Cells(i, 2).Value = 0 Then Rows(i).Delete
Next i
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

A

argon1515

XLDnaute Junior

• 16 Novembre 2007

• #4

Re : Pb de macro ...

Merci Pierrot93 de te pencher sur ce probléme, mais comment expliques tu que la macrook colore bien tous les 0 méme 2 qui ce suivent ?
De plus je voulais un code qui fonctionne quelque soit le le nombre de colonne
qui contient un 0.
Sauf erreur de ma part tu testes uniquement la colonne B (Range("B65536").End(xlUp).Row To 2 Step -1).
A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Novembre 2007

• #5

Re : Pb de macro ...

Re

la macroOK ne supprime pas de lignes, l'autre si, par exemple si la cellule 3 répond au critère, elle est supprimée, la 4 devient la 3, et le code annalyse la 4 qui était la 5 avant suppression... donc la 4 d'origine pas traitée...

essaye comme ci dessous pour plusieurs colonnes, en supposant que toutes les colonnes aient le même nombre de lignes :

Code:

Sub Macronok()
Dim i As Long, c As Byte
For c = 1 To Range("IV1").End(xlToLeft).Column
For i = Range("A65536").End(xlUp).Row To 2 Step -1
    If Cells(i, c).Value = 0 Then Rows(i).Delete
Next i
Next c
End Sub

@+

 

Vote positif 0 Vote négatif

A

argon1515

XLDnaute Junior

• 16 Novembre 2007

• #6

Re : Pb de macro ...

Merci pierrot tu m'as expliqué le mystére ... ma culture VBA a un peu progressée aujourd'hui.

Bon week end
Argon1515

 

Vote positif 0 Vote négatif