Erreur IF then else VBA excel

Toutidouti -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
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

Réponse 1 / 4
NookZ Messages postés 2138 Date d'inscription   Statut Membre Dernière intervention   514
 
ce ne serait pas le AND, le problème?
0
Toutidouti
 
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
Réponse 2 / 4
cpin
 
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
Réponse 3 / 4
cpin
 
Et d'ailleurs c'est pas ca le probleme

le probleme c'est bien le and il suffit de l'enlever
0
Réponse 4 / 4
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses