msgbox et compteur

Bonjour,
ma macro réalise une extraction de données d'un classeur excel (source) vers un autre classeur (arrivee), en fonction d'un test sur une partie de ces données. J'ai donc utilisé un compteur pour incrémenter dans la feuille arrivee, les lignes répondant positivement au test. Attention je commence le remplissage à partir de la 8eme ligne (avant il y a les titres).
Le but est ensuite d'exploiter ce compteur pour indiquer le nombre de lignes ainsi remplies. Et ça marche, sauf si aucune ligne n'est remplie : mon résultat (en D5) indique -7 au lieu de 0.
idéalement je cherche à faire apparaître automatiquement une msg box dans le cas ou le résultat est 0.
Pouvez-vous jettez un coup d'oeil à mon code, svp?

Sheets.Add
ActiveSheet.Name = "compteur"

Workbooks.Open Filename:="C:\sensible\fichiers\source.xls"

Dim i, j
Dim numobj, numsac, codeach

i = 3
While Cells(i, 1).Value <> ""
codeach = Cells(i, 2).Value
numsac = Cells(i, 3).Value
numobj = Cells(i, 4).Value

If Mid(codeach, 4, 2) = 24 Or Mid(codeach, 4, 2) = 33 Or Mid(codeach, 4, 2) = 40 Or Mid(codeach, 4, 2) = 47 Or Mid(codeach, 4, 2) = 64 Then

Windows("arrivee.xls").Activate
j = 8
While Cells(j, 1) <> ""
j = j + 1
Wend
Cells(j, 1).Value = codeach
Cells(j, 2).Value = numsac
Cells(j, 3).Value = numobj

End If

Windows("source.xls").Activate

i = i + 1
Wend

Range("D5").Value = j - 7


Merci par avance!
(grande première pour moi de poser une question dans un forum!)
Beline

L'erreur -7 au lieu de 0 viens de ton premier test :
If Mid(codeach, 4, 2) = 24 Or Mid(codeach, 4, 2) = 33 Or Mid(codeach, 4, 2) = 40 Or Mid(codeach, 4, 2) = 47 Or Mid(codeach, 4, 2) = 64 Then
Quand aucune des valeur ne correspond, tu ne passes pas dans les instructions, et j reste = 0 car elle n'est pas initialisée. Et donc 0 - 7 = -7 !
En gros deux solutions, soit tu fias l'initialisation de j à 8 avant ce test, soit tu change l'expression testée.

Pour le msgbox, tu peux le faire après le Wend:
If j = 8 Then
MsgBox "Le résultat est 0"
End If

Voila pour la grande première ! si tu as d'autres questions (même petite)....

-------------------------------
Réponse au message :
-------------------------------

> Bonjour,
> ma macro réalise une extraction de données d'un classeur excel (source) vers un autre classeur (arrivee), en fonction d'un test sur une partie de ces données. J'ai donc utilisé un compteur pour incrémenter dans la feuille arrivee, les lignes répondant positivement au test. Attention je commence le remplissage à partir de la 8eme ligne (avant il y a les titres).
> Le but est ensuite d'exploiter ce compteur pour indiquer le nombre de lignes ainsi remplies. Et ça marche, sauf si aucune ligne n'est remplie : mon résultat (en D5) indique -7 au lieu de 0.
> idéalement je cherche à faire apparaître automatiquement une msg box dans le cas ou le résultat est 0.
> Pouvez-vous jettez un coup d'oeil à mon code, svp?
>
> Sheets.Add
> ActiveSheet.Name = "compteur"
>
> Workbooks.Open Filename:="C:\sensible\fichiers\source.xls"
>
> Dim i, j
> Dim numobj, numsac, codeach
>
> i = 3
> While Cells(i, 1).Value <> ""
> codeach = Cells(i, 2).Value
> numsac = Cells(i, 3).Value
> numobj = Cells(i, 4).Value
>
> If Mid(codeach, 4, 2) = 24 Or Mid(codeach, 4, 2) = 33 Or Mid(codeach, 4, 2) = 40 Or Mid(codeach, 4, 2) = 47 Or Mid(codeach, 4, 2) = 64 Then
>
> Windows("arrivee.xls").Activate
> j = 8
> While Cells(j, 1) <> ""
> j = j + 1
> Wend
> Cells(j, 1).Value = codeach
> Cells(j, 2).Value = numsac
> Cells(j, 3).Value = numobj
>
> End If
>
> Windows("source.xls").Activate
>
> i = i + 1
> Wend
>
> Range("D5").Value = j - 7
>
>
> Merci par avance!
> (grande première pour moi de poser une question dans un forum!)
> Beline