Rechercher : dans
Par :

Erreur IF then else VBA excel

Dernière réponse le 23 mar 2009 à 11:22:50 Toutidouti, le 23 mar 2009 à 10:52:30 
 Signaler ce message aux modérateurs

Bonjour,
Voici ce que j'ai programmé dans ma macro:
Sub TestComptage()

Dim i, j, NbrLigne  As Integer

i = 0
NbrLigne = 0
j = 12

Sheets("CR").Select
Range("A12").Select

While i <= 10

If Cells(j, 1).Value = "0" Then  NbrLigne = NbrLigne + 1 AND j = j + 1
Else
    i = i + 1
    NbrLigne = NbrLigne + 1
    j = j + 1
End If

Sheets("feuil2").Range("B1").Select = j

Wend

End Sub


et il me donne l'erreur suivante:


Erreur de complilation

ELSE sans IF

il est où le problème ???


D'avance merci

Toutidouti

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « Erreur IF then else VBA excel » dans :
VBScript - Les structures conditionnelles VoirQu'est-ce qu'une structure conditionnelle ? On appelle structure conditionnelle les instructions qui permettent de tester si une condition est vraie ou non, c'est-à-dire si la valeur de son expression vaut 0 ou 1 (VBScript associe le mot clé true à...

1

NookZ, le 23 mar 2009 à 10:53:47

Ce ne serait pas le AND, le problème?

Répondre à NookZ

4

Toutidouti, le 23 mar 2009 à 10:58:19

Non j'ai trouvé en fait il y avait un soucis de début de ligne !!!!!


j'ai tout remis à la ligne et ça marche !!!

Erreur de débutante !!!! :)

merci

bonne journée

Toutidouti

Répondre à Toutidouti

2

cpin, le 23 mar 2009 à 10:55:35

Bonjour,

va voir sur ce site pour la syntaxe
http://www.anthony-vba.kefra.com/vba/vbabasic3.htm#IF_..._Th­en_..._Else

en fait c'est

IF ..... Then

Else

End IF

Répondre à cpin

3

cpin, le 23 mar 2009 à 10:57:06

Et d'ailleurs c'est pas ca le probleme

le probleme c'est bien le and il suffit de l'enlever

Répondre à cpin

5

 lermite222, le 23 mar 2009 à 11:22:50

Bonjour,
Pour info, quand tu met deux instructions sur la même ligne ce n'est pas
NbrLigne = NbrLigne + 1 AND j = j + 1 'où tu n'auras jamais les bonnes valeurs.
ce doit être
NbrLigne = NbrLigne + 1 : j = j + 1
A+

L'expérience instruit plus sûrement que le conseil. (André G­ide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas for­cément le pot qui est vide. ;-)(Confucius)

Répondre à lermite222
Collection CommentÇaMarche.net