Fenêtre avec message d’alerte en cas de dépassement de budge Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
A
Amine.Z
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 24 novembre 2014
Version d'Excel : 2010

Message par Amine.Z » 24 novembre 2014, 16:52

Bonjour,

Je voudrais savoir si il existe une macro pour faire sortir un message d'alerte qui prévient le dépassement du budget alloué à un chantier par exemple.

J'ai une première case qui calcule le Total du montant initial de la commande
et une deuxième case qui calcule les dépenses liées a ce chantier

Je voudrais être averti avec une fenêtre d'alerte si le montant de la deuxième case dépasse le montant de la première case.

(J'ai déjà mis en place la mise en forme conditionnelle avec la fonction SI qui affiche un texte sur plusieurs cases en cas dépassement , mais ce n'est pas suffisant au yeux des personnes qui l'utilisent)
t
teow
Membre habitué
Membre habitué
Messages : 57
Inscrit le : 30 octobre 2014
Version d'Excel : 2016 Mac fr

Message par teow » 24 novembre 2014, 17:03

Ce site devrait pouvoir commencer a t'aider :)


http://support.microsoft.com/kb/468946/fr
Téow

Image
A
Amine.Z
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 24 novembre 2014
Version d'Excel : 2010

Message par Amine.Z » 24 novembre 2014, 17:10

Oui ça m'a aidé vite fait :D

En fait je ne suis pas très calé en VBA, je connu juste le minimum et là je t'avoue que je n'ai pas bien compris :/

Tu n'aurais pas, ou n'y aurait-il pas un code macro pour Alerte de dépassement d'un montant ou j'aurais simplement à changer les plages ?
t
teow
Membre habitué
Membre habitué
Messages : 57
Inscrit le : 30 octobre 2014
Version d'Excel : 2016 Mac fr

Message par teow » 24 novembre 2014, 17:23

Salut,

Je suis loin d'etre un specialiste mais j'ai tente quelque chose et ca a l'air de marcher
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

' La variable KeyCells contient les cellules qui déclencheront
' une alerte si elles sont modifiées.

Set KeyCells = Range("C2:C3")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

' Affichage d'un message lorsque l'une des cellules désignées
' a été modifiée.
' Placez votre code ici.

If Range("C2").Value < Range("C3").Value Then

MsgBox "ATTENTION DEPASSEMENT BUDGET"

End If

End If
End Sub

Voila tu met ca dans la feuille concernée et si C3 depasse C2 une petite fenetre s'affiche. Ca peut se faire aussi avec des fenetres completement personnalisée de ce que je sais mais c'est pas de mon niveau :p

Ps : il faut que tu ouvres VBA et que tu copies le dit code, tu sais faire ?

Bon courage
Téow

Image
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message