Message d'alerte par Msgbox avec condition de date et variable Résolu/Fermé

Question

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.


Configuration: Windows 8 / Firefox 24.0

melanie1324 · Answer

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

tib · Answer

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

Message d'alerte par Msgbox avec condition de date et variable

2 réponses

Discussions similaires