Aide code VBA fonction si

Bonjour,

j'ai un problème avec mon code, lorsque que je compile l'ordinateur me met End if sans bloc if pour la ligne surligné^^

J'ai essayé de supprimer/déplacer les 2 end if sans succès, quelqu'un aurait-il une idée svp ?

j = 0
   If Cells(Ligne.Row + 1, 4) > PVmax Then Cells(Ligne.Row + 1, 5) = 0 _
    Else: For k = 1 To nbrentreprise
            If Range("DebZon_Entreprises").Offset(k, 4) >= Cells(k + 1, 4) Then j = j + 1
            End If
            Next k
    End If

Bonjour,

Il suffit de revenir à un respect plus strict de la syntaxe et à une indentation rigoureuse...

j = 0
If Cells(Ligne.Row + 1, 4) > PVmax Then
   Cells(Ligne.Row + 1, 5) = 0
Else
   For k = 1 To nbrentreprise
      If Range("DebZon_Entreprises").Offset(k, 4) >= Cells(k + 1, 4) Then
         j = j + 1
      End If
   Next k
End If

Conseil :

Eviter les noms de variables (et les noms de range...) à rallonge qui réduisent la compréhension du code. (7 caractères devraient suffire dans 99 % des cas)

A+

Le code fonctionne parfaitement

Merci =)