Je ne comprends pas cette erreur " Next sans for"Résolu

Question

Bonjour,
J'ai écrit ce petit code et il s'affiche l'erreur "next sans for". Je ne comprends pas pourquoi du fait qu'il y a un for et un next.

Sub SupprimerLigne()
  Worksheets("Stockretraite").Activate
     
  Dim y As Integer
  
     For y = 11 To 4214
         If Cells(y, 3).Value = 0 Then
         Rows(y, 1).Delete (shift)
     Next y
         
End Sub

Je remercie les ames charitables qui voudront bien m'éclairer

jrivet · Accepted Answer

Salut,
Ton IF n'est pas fermer.

Soit 

Sub SupprimerLigne()
 Worksheets("Stockretraite").Activate
   
 Dim y As Integer
 
    For y = 11 To 4214
        If Cells(y, 3).Value = 0 Then Rows(y, 1).Delete (shift)
    Next y
       
End Sub , ----
[code.aspx?ID=41455 By Renfield]
Soit

Sub SupprimerLigne()
 Worksheets("Stockretraite").Activate
   
 Dim y As Integer
 
    For y = 11 To 4214
           If Cells(y, 3).Value = 0 Then
               Rows(y, 1).Delete (shift)
           End If
    Next y
       
End Sub<hr />, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i€n
Pensez: Réponse acceptée

rimbaut · Answer

Merci pour ta réponse Jrivet, mais cela ne m'efface pas les lignes dont la colonne 3 est à zéro.
Je ne sais pas pourquoi !!!

PCPT · Answer

salut,

si tu supprimes une ligne, le nombre total change surement

essaye ta boucle for Max to Min step -1

ceci dit pour ton problème posé, pense à valider la réponse de jrivet ;)
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

rimbaut · Answer

Merci PCPT cà fonctionne trés bien

Je ne comprends pas cette erreur " Next sans for"

4 réponses

Votre réponse

Discussions similaires