Rechercher : dans
Par :

Erreur If...then...else en VBA

Dernière réponse le 28 sep 2009 à 18:46:39 Mehdi Ier, le 5 jui 2004 à 12:14:24 
 Signaler ce message aux modérateurs

Bonjour!
Je serais curieux de savoir ce qu'il y a de faux dans cette instruction

Cells(i, 3).Value = InputBox("Entrez un compte")
If Cells(i, 3).Value = "0" Then i = i + 1
ElseIf Cells(i, 3).Value = "1" Then Exit Sub
Else: j = 4
End If

Merci!

1

JSS, le 5 jui 2004 à 12:16:15
  • +1

Les :

Cells(i, 3).Value = InputBox("Entrez un compte")
If Cells(i, 3).Value = "0" Then i = i + 1
ElseIf Cells(i, 3).Value = "1" Then Exit Sub
Else: j = 4
End If

JSS.j'ai.bon.la?

Répondre à JSS

2

Mehdi Ier, le 5 jui 2004 à 12:19:51

Ben c'est exactement la même chose...?

Répondre à Mehdi Ier

3

JSS, le 5 jui 2004 à 12:23:11

Il faut enlever les : sur la ligne du else

JSS.j'ai.bon.la?

Répondre à JSS

4

Mehdi Ier, le 5 jui 2004 à 12:24:35

Ouais mais ça les met automatiquement dès que je saute une ligne.

Répondre à Mehdi Ier

5

Mehdi Ier, le 5 jui 2004 à 12:26:25

Il me met comme erreur "Else sans If", va savoir pourquoi!?

Répondre à Mehdi Ier

6

Mehdi Ier, le 5 jui 2004 à 12:29:50
  • +1

Bon, ben finalement, j'ai foutu toutes les instructions à la ligne et ça marche, donc merci.
?????????????????????????

Répondre à Mehdi Ier

7

JSS, le 5 jui 2004 à 14:10:46

Bon ben c'est cool si ca marche !

bon courage

a plus

JSS

Répondre à JSS

8

 spingo, le 28 sep 2009 à 18:46:39

Ben, t'avais raison il suffit de renvoyer à la ligne tt ce qui sui l'instruction Then

Tnx a lot

Répondre à spingo
Collection CommentÇaMarche.net