Sujet Précédent Sujet Suivant

Macro message d'alerte

Résolu/Fermé
celiaaaaaaaaa Messages postés 4 Date d'inscription dimanche 5 avril 2015 Statut Membre Dernière intervention 6 avril 2015 - 5 avril 2015 à 19:34
celiaaaaaaaaa Messages postés 4 Date d'inscription dimanche 5 avril 2015 Statut Membre Dernière intervention 6 avril 2015 - 6 avril 2015 à 15:20
Bonjour,

J'ai un tableau de suivi de trésorerie et je souhaiterais utiliser un macro pour que lorsqu'un solde passe en négatif un message d'alerte apparaisse.

Comment puis-je faire s'il vous plaît ?

A voir également:

3 réponses

Réponse 1 / 3
tyranausor Messages postés 3545 Date d'inscription jeudi 6 août 2009 Statut Membre Dernière intervention 1 avril 2022 2 031
5 avril 2015 à 23:17
Bonjour, dès que le solde est négatif un message doit s'afficher si je suis bien?
Ta macro va donc commencer par une condition qui doit, si elle est vérifiée, afficher une alerte sous forme de message. La macro que je te propose est 
Sub Solde_nul
IF Range ("B5")<0 then
'Si le solde est négatif alors
msgbox "Le solde est de "&Range ("B5")&" €",vbExclamation, "Titre_message"
'Un message d'alerte s'affiche avec le solde ("titre_message" sera à adapter avec le nom de ta feuille)
end If
End Sub


avec en B5 le solde de caisse
0
celiaaaaaaaaa Messages postés 4 Date d'inscription dimanche 5 avril 2015 Statut Membre Dernière intervention 6 avril 2015
6 avril 2015 à 13:32
Bonjour,

Merci pour ce macro.
Il fonction mais uniquement quand je fais exécuter, est-il possible qu'il s'exécute tout seul dès que cette cellule passe en négatif ?
0
Réponse 2 / 3
ozone_ Messages postés 1518 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 2 juin 2023 478
6 avril 2015 à 13:53
Salut,
Dans ta feuille (coté dev) met ce code : 

Private Sub Worksheet_Change(ByVal Target As Range)
 If Range ("B5")<0 then
'Si le solde est négatif alors
msgbox "Le solde est de "&Range ("B5")&" €",vbExclamation, "Titre_message"
'Un message d'alerte s'affiche avec le solde ("titre_message" sera à adapter avec le nom de ta feuille)
end If
End Sub


J'ai juste repris le code de tyranausor en le faisant s'exécuter à tout moment quand la cellule passe en négative.
0
Réponse 3 / 3
celiaaaaaaaaa Messages postés 4 Date d'inscription dimanche 5 avril 2015 Statut Membre Dernière intervention 6 avril 2015
6 avril 2015 à 14:07
Merci pour ta réponse.
Désolé je ne connais pas bien les macros ,qu'est ce que (coté dev) veut dire ?
0
ozone_ Messages postés 1518 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 2 juin 2023 478
6 avril 2015 à 14:36
Clique droit sur l'onglet où tu veux mettre ton code puis visualiser le code et c'est sur cette feuille que tu dois mettre le code vu plus haut.
0
celiaaaaaaaaa Messages postés 4 Date d'inscription dimanche 5 avril 2015 Statut Membre Dernière intervention 6 avril 2015 > ozone_ Messages postés 1518 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 2 juin 2023
6 avril 2015 à 15:20
Le code fonctionne bien !
Merci beaucoup !
0

Discussions similaires

qu'est-ce que diff message ?
zebulonmarie -
mumu -

18 réponses
Que veut dire le signe "^^" dans les SMS ou sur MSN ?
takataka26 -
Sarah -

12 réponses
mail forwardé, c'est quoi
kiki -
0beron -

9 réponses
Message : votre iPhone a été piraté. Que faire ?
Paqi5241 -
LeRoiBerny -

12 réponses
Comment reconnaitre si un SMS m'indiquant un message vocal est une arnaque ?
kikidefer -
brucine -

9 réponses