Message d'alerte par Msgbox avec condition de date et variable
Résolu
tib
-
tib -
tib -
Bonjour,
J'ai vu que beaucoup de sujets traitaient déjà cette question, mais je n'arrive pas à reprendre les codes pour l'adapter à mon fichier.
Je veux créer un bouton de contrôle dans un fichier excel qui analyserait toutes les lignes d'un tableau pour générer une boite de dialogue qui afficherait tous les dossiers en retard (Date + 45 jours) et sans commentaire.
ex: Afficher le contenu de la cellule A1 (facture n°) si la date saisie dans la cellule B1 est dépassée de 45 jours par rapport à aujourd'hui et que la cellule C1 est vide.
Merci par avance.
J'ai vu que beaucoup de sujets traitaient déjà cette question, mais je n'arrive pas à reprendre les codes pour l'adapter à mon fichier.
Je veux créer un bouton de contrôle dans un fichier excel qui analyserait toutes les lignes d'un tableau pour générer une boite de dialogue qui afficherait tous les dossiers en retard (Date + 45 jours) et sans commentaire.
ex: Afficher le contenu de la cellule A1 (facture n°) si la date saisie dans la cellule B1 est dépassée de 45 jours par rapport à aujourd'hui et que la cellule C1 est vide.
Merci par avance.
2 réponses
-
Bonjour,
Voici ton code :
sub afficherdossiersretards
dim i,dossier as variant
i= 1
dossier = "Les dossiers en retard sont :"
do while cells(i,1) <> "" 'une boucle qui tourne tant qu'il y a une valeur dans la colonne 1 (=A) et ligne i
if cells(i,2)+1-1 >= date +45 and cells(i,3)="" then ' si la cellule de la ligne i colonne é (=B) >= date de jour (date) +45 et que la cellule de la ligne i et colonne 3 (=C) est vide alors :
dossier = dossier & vbline & cells(i,1) 'la variable dossier contient ce qu'elle contient déjà et une ligne supplémentaire (vbline) et la cellule de la ligne i colonne 1 (=A)
end if
i=i+1 'pour passer à la ligne supérieure
loop
if dossier <>"Les dossiers en retard sont :" then 'au trement dit si des dossiers en retard ont été retrouvé
a=msgbox(dossier,vbokonly,"Liste des dossiers en retard") 'apparition de la fenêtre
end if
end sub -
Bonjour,
Merci beaucoup pour votre réponse.
J'ai essayé mais une erreur intervient : erreur d'exécution n° 13 incompatibilité de type.
est surligné en jaune sur le débocage ce passage : If Cells(i, 2) + 1 - 1 >= Date + 45 And Cells(i, 3) = "" Then ' si la cellule de la ligne i colonne é (=B) >= date de jour (date) +45 et que la cellule de la ligne i et colonne 3 (=C) est vide alors :
merci encore pour aide.
bonne journée
