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