next sans for?

[benl]

Salut a tous,

Voila le soucis, j'écris le code suivant


Private Sub Validerbutton_Click()


While Label5.Caption = ""

For i = 1 To 5


If Label6.Caption = "" Then
If Sheets("feuil1").Cells(36, i + 11) = 1 Then Label6.Caption = Sheets("feuil1").Cells(1, i + 2) Else Label6.Caption = ""

Next i

If Label6.Caption = "" Then Label5.Caption = "Aucun dégraissant trouvé" Else Label5.Caption = "dégraissant choisit:"

Wend


End Sub

et j'ai droit un un message d’erreur next sans for.

et je dois dire que je suis séché...

merci d'avance

 

[Misange]

Re : next sans for?

Bonjour
en fait ce n'est pas un next sans for qu'il y a c'est un if sans end if qui manque et même 3 en fait ! ce qui plante excel

Private Sub Validerbutton_Click()
   While Label5.Caption = ""
   
        For i = 1 To 5
           If Label6.Caption = "" Then
              If Sheets("feuil1").Cells(36, i + 11) = 1 Then 
           Label6.Caption =  Sheets("feuil1").Cells(1, i + 2) 
       Else      
            Label6.Caption = ""
       END IF
   END IF
        Next i
        
        If Label6.Caption = "" Then 
   Label5.Caption = "Aucun dégraissant trouvé" 
Else Label5.Caption = "dégraissant choisit:"
END IF
        
   Wend
  

End Sub

Indenter le code permet de mieux voir ces problèmes

 

[benl]

Re : next sans for?

ok merci bcp, en effet, ça marche 😉