Erreur : ElseIf sans If

Bonsoir,

J'ai réalisé le code suivant, tout me parait correcte mais lorsque je l'execute je reçois un message me disant qu'il y a un ElseIf sans If.

Sub Ellipse2_Cliquer()
    Dim rep As Integer

    'Configuration de l'inputbox'
    rep = InputBox("Montant ?", "Nouvelle entrée")

 If rep < 0 Then Columns(5).Select
 Cells(Rows.Count, 5).End(xlUp).Select
    ActiveCell.Offset(1, 0).Activate
    ActiveCell.Value = rep
 ElseIf rep > 0 Then Columns(6).Select
 Cells(Rows.Count, 4).End(xlUp).Select
    ActiveCell.Offset(1, 0).Activate
    ActiveCell.Value = rep
 End If

End Sub

Savez-vous pourquoi je reçois ce message d'erreur ?

Merci de votre aide !

Bonsoir,

si vous faites le "Then" sur la même ligne que le IF, le EndIf est "sous-entendu", donc ceci :
If LouReeD="Fort" Then MsgBox("Trop fort !")

est égale à :
If LouReeD="Fort" Then
MsgBox("Trop fort !")
Endif

Maintenant regardez une nouvelle fois votre code et vous verrez qu'il manque bien un If donc "ElseIf sans If !"

Vous n'avez qu'à ajouter deux retour chariot et tout entrera dans l'ordre...

@ bientôt

LouReeD

Bonjour,

dit autrement tu as deux types de If
If sur 1 ligne si le Then est suivi de qq chose :
If test Then résultat1 Else résultat2 (avec ElseIf si tu veux aussi mais toujours en continuité sur une ligne unique))

Si le Then n'est suivi de rien c'est un If sur plusieurs lignes avec la structure montrée par LouReed.

If test Then
    'ffff
ElseIf test2 then
    'hhhh
Else
    'kkk
End If

avec un End If obligatoire pour clore le If
eric

Bonsoir eriiic,

en effet c'est mieux écrit..

@ bientôt

LouReeD

Bonsoir LouReed,
disons que je trouvais que ça manquait de détails pour bien comprendre et mémoriser
eric

Super mon code fonctionne !

Merci de votre aide ;)

Pas de soucis ! Merci à vous pour le retour !

@ bientôt

LouReeD