un if dans un for qui deconne...

un if dans un for qui deconne... - VB/VBA/VBS - Programmation

Marsh Posté le 23-08-2010 à 16:18:27    

Bonjour à tous,
voilà j'ai une macro toute con qui supprime des ligne ... mais ça me met une erreur sur le if, je ne comprend pas...
 

Code :
  1. Sub supprimerLigne()
  2.       With ActiveSheet
  3.             For i=0 To 20
  4.                  If .Cells(2,i)="DIVERS" Or .Cells(2,i) = "DIV PME" Then
  5.                        Rows(i & ":" & i).Delete Shift:=xlUp
  6.                        i=i-1
  7.                   End If
  8.              Next i
  9.        End With
  10. End Sub


 
voilà il me met une erreur sur le If...

Reply

Marsh Posté le 23-08-2010 à 16:18:27   

Reply

Marsh Posté le 23-08-2010 à 17:12:39    

bonjour,
For i = 0 to 20 :
De la colonne zéro à la colonne 20 ?
 
Nota : Quand on veut Deleter des lignes, il est préférable de procéder à l'envers :
For i = 20 to 1 step -1...
 
Le i = i-1 est superflu
 
Je te laisse deviner pourquoi !
 
A+


Message édité par galopin01 le 23-08-2010 à 17:14:14
Reply

Marsh Posté le 24-08-2010 à 10:52:09    

ok merci c'était bien ça

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed