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