XL 2010 Else sans if

[Lemon02]

Bonjour,

Effectivement c'est une erreur bête que je me suis toujours habitué à résoudre seul mais pour ce code je ne comprends pas vraiment pas d'où vient l'erreur.

Je vous donne ci joint un notebook avec le code.

Si quelqu'un arrive à résoudre mon problème je lui en serait reconnaissant et cela me permettrait de continuer de travailler mon projet.

PS : le début de mon code contient des éléments qu'il ai possible d'exclure j'en ai conscience je le ferais lorsque le contenu de mon programme sera finit.

Merci d'avance.

 

[mbmb]

Bonjour,

retire les : des else ... et des then

 

[sylvanu]

Bonjour Lemon,
Quelle drôle d'idée d'exporter du VBA dans du txt pour que nous exportions du txt dans XL. 😢
L'erreur vient de :

If mc > 6500 Then:

Les deux points n'ont rien à y faire :

If mc > 6500 Then

Pensez à indenter votre code c'est plus lisible.

 

[Lemon02]

Désoler c'est la première fois que je viens sur le forum et je pensais que j'avais bien fait😅

Je viens d'essayer et effectivement ca marche, merci beaucoup. Etant débutant et tapant du texte toute la journée j'ai fais une erreur bête. Je n'arrivais vraiment pas à résoudre le problème et je désespérais.

En tout en cas encore merci et bon après-midi

 

[sylvanu]

Oups! Bienvenu sur XLD, je n'avais pas vu.
Sinon vous pouvez livrer du code en utilisant les balises </> :

Comme ça :

If Range("B1") - (Range("H4") * 2) < 1250 Then
    Range("D7") = 0
    Range("D8") = 1
    Range("D10") = 0
    Range("D11") = 1
    Range("B8") = (Range("B1") - Range("H1") * 2 - Range("B7") * Range("D7"))
    Range("B8") = Application.WorksheetFunction.RoundUp(Range("B8"), 0)
Else
    Do Until lb < (entraxe_standard + (Range("H4") - Range("H1")))
        lb = lb - entraxe_standard
        Range("D7") = Range("D7") + 1
    Loop
    Range("D7") = Range("D7") - 1
    Range("D8") = Range("D8") + 2
    Range("B8") = (Range("B1") - Range("H1") * 2 - Range("B7") * Range("D7")) / 2
    Range("B8") = Application.WorksheetFunction.RoundUp(Range("B8"), 0)
End If

 

[Lemon02]

D'accord je ferai comme ça les prochaines fois merci🙂