Problème sur boucle

Fermé
herveE - 31 août 2010 à 10:43
Bonjour, tt le monde et merci d'avance à mes saveurs

ça fait 3 jours que je bloque sur un problème de boucle. le topo: en fait j'ai un calsseur excel avec plusieurs lignes qui représente plusieurs valeurs. dans la colonne AC j'ai la date de réception du mois précedent. et en colonne AB, la date de réception du mois en cours.
le projet: créer une alerte de telle façon que lorsque le jour de réception du mois précédent est dépassé, que l'utilisateur en soit informé( de n'importe qu elle façon). exemple: le mois dernier j'ai reçu la valeur le 10/07/2010. si nous somme le 10/08/2010 et que la cellule "date de réception est tjrs vide, ALERTE.

j'ai dc créer une macro dc voici le code:

Sub tester()
Dim Ligne As Long
Dim Con
Dim daterecu
Dim c As Variant
For Each c In [datem] 'datem est la plage ou se trouve les date de réception m-1

Ligne = c.Row
daterecu = cells(Ligne, 28)
Con = Networkdays(DateAdd("m", 1, c.Value), DateValue(Now), [fériés])
'la vriable "con" calcule le nombre de jours ouvrés entre aujourdhui et dateadd
If daterecu = "" And Con > 1 Then
cells(Ligne, 1).Font.Bold = True
cells(Ligne, 1).Font.ColorIndex = 3
End If
If daterecu <> "" Then
cells(Ligne, 1).Font.Bold = False
cells(Ligne, 1).Font.ColorIndex = 0
End If
Next c
End Sub

le problème c'est que le programme plante lorsqu'il rencontre une cellule vide. en plus pr corser la chose. les cellules de la colonne date reception m-1 ([datem]) sont des fonctions rechercheV. ce qui fait qu'il nya pas tjrs un resultat.

comment faire? help. si quelq'un a une idée