Alerte Valeur Excel Fermé

Question

Bonjour, 

J'aimerais savoir comment faire pour que Excel alerte l'utilisateur d'un fichier quand une cellule deviens négative.

Je m'explique : j'ai un tableau que des gens doivent remplir. dans ce tableau il y a des cellules qui calculent des pourcentages d'évolution. Si la valeur d'un de ces pourcentage deviens négatif je veux que l'utilisateur ai une alerte qu'il ne puisse ignorer comme une boite de dialogue qui s'ouvre avec écris "Attention la cellule x est négative!"

C'est possible?

Merci beaucoup!!!

qmike · Answer

bonjour
Un exemple sur les cellules A1:A10
A adapter 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([A1:A10], Target) Is Nothing Then
     If Target < 1 Then
        MsgBox "Attention : Valeur négative"
        
     End If
  End If
End Sub

http://bvrve.club.fr/Astuces_Michel/55excelvba.html

blueflower · Answer

C'est à insérer où?

blueflower · Answer

Ok c'est à insérer dans

outils=>macro=>Visual Basic Editor

et la feuille que l'on veut... 


Ca marche nikel.

Merci bcp!

Vaucluse · Answer

Bonjour,blue flower
.... ou peut être plus simplement une mise en forme conditionnelle qui "allume" la cellule lorsque sa valeur est négative:
Barre d'outil / Mise en forme conditionnelle/ La formule est=colonne.N° ligne<0
Dans la boite sélectionner format/Motif / Rouge
Et votre celllue de % "s'allumera en rouge dés que la valeur sera négative.
BCRDLMNT

blueflower · Answer

Rectification cette macro ne marche que si on modifie directement la cellule hors ma cellule se calcule automatiquement.

Comment faire pour que ce message apparaisse si la cellule se calcule automatiquement?

Pour le mise en forme conditionnelle l'utilisateur peut l'ignorer et j'aimerais qu'il ne puisse pas.

Raymond PENTIER · Answer

Bonjour, Fleur Bleue !

C'est une Fleur exigeante ! Mais on va quand même essayer :

Le résultat étant en F9, dans chaque cellule renseignée par l'utilisateur tu fais Données / Validation/. La fenêtre de l'assistant s'ouvre.
* Onglet Options : 
Autoriser / Personnalisée 
Formule / =F9>0
* Onglet Message de saisie : 
Titre / Attention !
Message de saisie/Il ne faut pas que le résultat final en F9 soit négatif !
* Onglet Alerte d'erreur : 
Style / Arrêt 
Titre / Interdit !
Message d'erreur / Vous voyez bien que le résultat final en F9 est négatif !

Et tu valides : C'est terminé. S'il y a un problème dans mes explications, signale-le. 

P.S.  Je te remercie d'avoir posé le problème ; ça m'a obligé à fouiller un peu plus dans l'assistant Validation et à tester l'option Personnalisée pour la première fois ! J'ai donc appris quelque chose grâce à toi, Fleur Bleue.
* --
Un retraité au soleil des Antilles :-)
Raymond

chtitemagou · Answer

ALors je dois être nulle parce que quand je fait ça, ça marche mais seulement si je saisi ma formule après.

Exemple :

A1 = chiffre 1
B1= chiffre 2
C1 = (B1-A1)/A1 (taux d'évolution)

Ma cellule B1 est vide

ce que j'aimerais c'est  : quand je tape un chiffre en B1 et que du coup C1 devient négative alors la boite de dialogue m'affiche un message.

Avec ta technique je tape en B1, C1 m'affiche un % négatif et aucune boite de dialogue ne s'ouvre.

Désolé si je te donne du fil à retordre...

une stagiaire sous la grisaille de paris ;-)

Raymond PENTIER · Answer

Bizarre, chère stagiaire !
Je refais la manipulation et ça marche.
Reprends-la à ton tour en suivant très scrupuleusement les consignes.
Si ça ne va toujours pas, mets à notre disposition ton fichier en utilisant http://cjoint.com/
Bisous.

Vaucluse · Answer

Bonjour Raymond, heureux de te retrouver, et toujours sur une bonne proposition.
Chez moi, ça marche aussi, mais plusieurs remarques sur le sujet:
 _Effectivement, la validation  ignore les données rentrées avant sa mise en place
_Que faut il écrire dans la formule pour que la valeur 0 soit acceptée ou une décimale positive proche
_Par ailleurs, je crois que si la validation doit se répéter dans chaque cellule de saisie relative à F9, il faille bloquer la formule:$F$9>0 dans la validation

Ceci dit si on regarde de près la formule de blueflower, elle est moins facile à traiter car apparemment ou sauf erreur de ma part, elle donne une valeur négative avant la saisie en B1![ (B1-A1) quand B1=0?]

Sauf erreur de ma part

Qu'en pense tu?
BCRDLMNT
PS: as tu remis tes pendules a l'heure, ou passe tu la nuit à ratrapper ton retard

blueflower · Answer

Oui en effet ça marche mais mon clavier à fourché...lol

Merci beaucoup raymond

Vaucluse · Answer

Mon avis en focntion des remarques précédentes pour notre stagaire
Si vraiment vous avez cette formule dans la configuration annoncée, on, peut en conclure que C1 devient négatif "opérationnel" lorsque B1 est plus petit que A1, alors qu'il est négatif "statique" quand B1 est vide!
Ne perdons donc pas l'avantage de la solution proposée par Raymond, qui fonctionne parfaitement, (sous réserve du =0.)
Sélectionnez la cellule B1
Suivez les recommandations de Raymond, mais remplacez la formule par 
=B1>A1
Chez moi, ça fonctionne et le message d'erreur aparrait bien quand B1 est infèrieur à A1
(pour simplifier, je suis allé directement dans la boite Alerte d'erreur , inscrit négatif dans la plage message, la plage titre n'étant pas éditée.)
Reste à savoir maintenant ce que vous voulez faire, s'il s'agit d'interdire une entrée ou de faire ressortir la liste des négatifs, car le message ne restera affiché que lors de la saisie dans B1 et si vous avez opté pour "arrèt" dans la boite de dialogue, vous ne pourrez rien rentrer en B1 d'inférieur à A1

Si on prend votre tableau, il y a aussi la solution d'afficher ligne par ligne l'état de la cellule C1 en D1 par exemple
Soit en D1
=SI(ESTVIDE(B1);"";SI(B1<A1;"Attention, résultat négatif";SI(B1=A1;"résultat constant";"Résultat positif")))
Attention aux parenthèses et guillemets
Vous pouvez ensuite utiliser la mise en forme conditionnelle pour colorier différemment la cellule D1 en fonction des résultats
Bonne chance
BCRDLMNT

Raymond PENTIER · Answer

Bien le bonjour, Vaucluse,
Merci de ton accueil, mais par pitié, cesse de me vouvoyer : je me sens encore plus "retraité" que je ne le suis déjà ...
* Première remarque exacte (et évidente).
* Deuxième point : remplacer [>] par [>=].
*Troisième remarque très pertinente. Moi, j'ai pris l'habitude de donner un nom à la cellule ; en l'appelant "Taux", la formule devient plus parlante : "=Taux>=0".
* Quatrième point : Je n'ai pas constaté de blocage ou d'affichage intempestif, dans cette situation.
Avec mes amitiés.

Vaucluse · Answer

Salut Raymond, tu as du lire le message avant que je ne l'ai corrigé, car peu après, il y avait des "tu" partout, sauf oubli.
Je confirme que ta solution fonctionne bien et apparemment Blueflower est satisfaite? (Fleur bleue, à nos ages, ça fait pas rêver?)
En fait, le résultat négatif de base en C1 , bien que curieux,ne gène pas si l'on ne met pas de validation sur la cellule A1? Sinon, compte tenu du résultat en C1, on ne peut plus rentrer de valeur en A1 après cette opération.
BCRDLMNT

Alerte Valeur Excel

13 réponses

Discussions similaires