Erreur IF then else VBA excel
Toutidouti
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
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
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:
- Erreur IF then else VBA excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Déplacer colonne excel - Guide
4 réponses
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
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
j'ai tout remis à la ligne et ça marche !!!
Erreur de débutante !!!! :)
merci
bonne journée
Toutidouti