cs_beline
Messages postés1Date d'inscriptionvendredi 22 août 2003StatutMembreDernière intervention22 août 2003
-
22 août 2003 à 10:48
sylric
Messages postés91Date d'inscriptionmardi 21 janvier 2003StatutMembreDernière intervention22 août 2003
-
22 août 2003 à 13:41
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?
sylric
Messages postés91Date d'inscriptionmardi 21 janvier 2003StatutMembreDernière intervention22 août 2003 22 août 2003 à 13:41
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 ThenQuand 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)....