Erreur IF then else VBA excel

Fermé
Toutidouti - 23 mars 2009 à 10:52
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 23 mars 2009 à 11:22
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
A voir également:

4 réponses

NookZ Messages postés 2138 Date d'inscription jeudi 29 janvier 2009 Statut Membre Dernière intervention 7 mars 2013 514
23 mars 2009 à 10:53
ce ne serait pas le AND, le problème?
0
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
0
bonjour,

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

en fait c'est

IF ..... Then

Else

End IF
0
Et d'ailleurs c'est pas ca le probleme

le probleme c'est bien le and il suffit de l'enlever
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
23 mars 2009 à 11:22
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+

0