Message d'alerte par Msgbox avec condition de date et variable
Résolu/Fermé
A voir également:
- Message d'alerte par Msgbox avec condition de date et variable
- Recuperer message whatsapp - Guide
- Message d'absence thunderbird - Guide
- Excel cellule couleur si condition texte - Guide
- Message alerte iphone piraté ✓ - Forum iPhone
- Ce compte ne peut pas recevoir vos messages car il n’autorise aucune invitation par message ✓ - Forum Facebook
2 réponses
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
10 oct. 2013 à 09:28
10 oct. 2013 à 09:28
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
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
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
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
11 oct. 2013 à 13:54
11 oct. 2013 à 13:54
Peux-tu mettre ton fichier sur cjoint.com et mettre le lien ici car chez moi ce code fonctionne.
Il me faudrait donc ton fichier pour mieux comprendre.
Il me faudrait donc ton fichier pour mieux comprendre.
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
11 oct. 2013 à 14:43
11 oct. 2013 à 14:43
tib
>
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
12 oct. 2013 à 09:18
12 oct. 2013 à 09:18
Un grand grand merci ca fonctionne parfaitement^^^^^^
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
14 oct. 2013 à 11:30
14 oct. 2013 à 11:30
peux-tu le mettre en résolu (en dessous du titre) stp
