Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

MsgBox pour alerte échéance

  • Initiateur de la discussion Initiateur de la discussion Florine26
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

F

Florine26

Guest
Bonjour,

Je suis étudiante en BTS Assistante de Gestion et je suis actuellement en stage.
Ma tutrice souhaite que je réalise un tableau pour le suivi des créances clients.
Mon tableau est presque terminé mais je souhaite y ajouter des alertes/rappel, c'est pour quoi je viens demander de l'aide sur ce forum.
Après quelques recherches, j'ai déduit que pour réaliser ce que je voulais faire il fallait créer un "MsgBox". Seulement, je ne connais absolument rien au langage VBA.
Mes colonnes "relance" sont déjà en mise en forme conditionnelle. Je souhaiterais que lorsque le nombre de jour atteint :
- 40 un rappel s'affiche ("Arrive bientôt à échéance, 1° relance à faire")
- 50 " " " " " , 2° relance à faire
- 60
- 70
- 90

Est-ce que cela est possible ? Si oui, merci de bien vouloir me venir en aide. Vous pourrez trouver mon fichier excel ci-joint.

Merci.
 
Dernière modification par un modérateur:
Re : MsgBox pour alerte échéance

Bonjour,

Tu devrais corriger ton fichier attaché car, je crois, qu'il contient des données sensibles en feuille "Base de données clients".

Retourne éditer dont post et supprime ton fichier attaché.

Après tu nous en soumettra autre fichier anonymisé

A+

Jecherche
 
Re : MsgBox pour alerte échéance

Le fichier est un modèle c'est normal. En insérant des dates (au hasard pour un test) les résultats s'affichent automatiquement grâce aux formules insérées.
 
Re : MsgBox pour alerte échéance

Bonsoir à tous

@Florine: dans le cas de ton retour. Change la cellule de date1.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim date1 As Date, date2 As Date, jours As Integer
Application.EnableEvents = False
date1 = Range("b2")  'Où tu as inscrit la formule =AUJOURD'HUI()
date2 = Date
jours = DateDiff("d", date1, date2)

If jours >= 40 Or jours >= 50 Or jours >= 60 Or jours >= 70 Or jours >= 90 Then
MsgBox "       Veuillez relancer le client.", , "RELANCE"
Else
MsgBox "          En attente", , "RELANCE"
End If
Application.EnableEvents = True
End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

O
Réponses
1
Affichages
879
Olocsob
O
Réponses
12
Affichages
1 K
A
Réponses
21
Affichages
3 K
armorik75
A
P
  • Question Question
Réponses
1
Affichages
2 K
Patrosso
P
L
Réponses
1
Affichages
1 K
Lucien31
L
M
Réponses
0
Affichages
2 K
Marypen
M
F
Réponses
20
Affichages
3 K
fred777
F
V
Réponses
3
Affichages
14 K
Valafar
V
M
  • Question Question
Réponses
8
Affichages
1 K
Micksanchezzz
M
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…