XL 2010 Else sans if

Lemon02 · 29 Mars 2021

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.

sylvanu · 29 Mars 2021

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 :

VB:

If mc > 6500 Then:

Les deux points n'ont rien à y faire :

VB:

If mc > 6500 Then

Pensez à indenter votre code c'est plus lisible.

mbmb · 29 Mars 2021

Bonjour,

retire les : des else ... et des then

sylvanu · 29 Mars 2021

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 :

VB:

If mc > 6500 Then:

Les deux points n'ont rien à y faire :

VB:

If mc > 6500 Then

Pensez à indenter votre code c'est plus lisible.

Lemon02 · 29 Mars 2021

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 · 29 Mars 2021

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

Comme ça :

VB:

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 · 29 Mars 2021

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

XL 2010 Else sans if

Lemon02

XLDnaute Nouveau

Pièces jointes

sylvanu

mbmb

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Lemon02

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Lemon02

XLDnaute Nouveau

Discussions similaires