Créer message d'alerte boite de dialogue Résolu/Fermé

Question

Bonjour, 
J'ai une table Excel où je souhaite faire apparaitre une boite de dialogue à l'ouverture du fichier lorsque les cellules d'une colonne sont pleines, c'est à dire pour rappeler à l'utilisateur qu'il faut relancer les clients.
J'ai renseigné dans les cellules de cette colonne en question si nous devions nous faire la relance, avec les cellule qui affiche soit relance "3 mois passés", soit "10 mois passés" ou soit elle affiche rien et la cellule est vide.
J'aimerai qu'il s'affiche en alerte boite de dialogue lorsque ma colonne contient les cellules "3 mois passés" et "10 mois passés".
J'imagine qu'il faut passer par la programmation et MsgBox, mais je ne maitrise pas pour que l'alerte s'affiche seulement en fonction de certaines cellules pleines ou de la colonne (pleine ou non).
Merci à vous
Configuration: Windows / Firefox 24.0

Mike-31 · Answer

Bonjour,
Effectivement il faut passer par du VBA et msgbox, mais il faut être plus précis de quelle plage s'agit il et à partir de combien de saisie "3 mois passés" dans cette plage doit il y avoir pour que la msgbox s'active

Mike-31 · Answer

Re,
fais un clic droit sur l'onglet/Visualiser le code/rechercher Thiswokbook et double clic sur Thiswokbook pour l'ouvrir et colle ce code qui prendra en compte automatiquement la plage de M2 à la dernière cellule renseignée de la colonne M onglet nommé "Feuil1"
Private Sub Workbook_Open()MsgBox Application.WorksheetFunction.CountIf(Sheets("Feuil1").Range("M2:M1" & Sheets("Feuil1").Range("M65536").End(xlUp).Row), "10 mois passés") & " alerte(s) 10 mois passés"MsgBox Application.WorksheetFunction.CountIf(Sheets("Feuil1").Range("M2:M1" & Sheets("Feuil1").Range("M65536").End(xlUp).Row), "3 mois passés") & " alerte(s) 10 mois passés"End Sub

Mike-31 · Answer

Re,
non il faut que le code soit dans la Thiswokbook
si tu fais un clic droit sur l'onglet de ta feuille ou Alt et F11 cela ouvre le Visual Basic et sur la gauche tu as le module Projet-VBAProject et tu trouveras la Thiswokbook, clic droit dessus et Code
tu peux raccourcir mon code précédent, pour cela il faut nommer la plage colonne M exemple M2:M100 nommé toto, dans ce cas le code devient
Private Sub Workbook_Open()
MsgBox Application.WorksheetFunction.CountIf([toto], "10 mois passés") & " alerte(s) 10 mois passés"
MsgBox Application.WorksheetFunction.CountIf([toto], "3 mois passés") & " alerte(s) 10 mois passés"
End Sub

Mike-31 · Answer

Re,
bien sur on pourrait personnaliser les msgbox avec un affichage pour chaque valeur rencontrée mais bonjour le nombre de fermeture des msgbox si tu avais une dizaine de valeurs rencontrées
Je passe le statut de la discussion en résolu

Créer message d'alerte boite de dialogue

4 réponses

Discussions similaires

Newsletters