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

XL 2013 VBA - MsgBox Quand cellule négative

  • Initiateur de la discussion Initiateur de la discussion lemath87
  • 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 !

L

lemath87

Guest
Bonjour à tous,

Je vous expose mon problème. Je souhaite faire apparaitre un message d'erreur quand une cellule spécifique devient, après calcul, négative. Or, quand le calcul de la cellule se fait et tombe en négatif, mon message n'apparait pas... 😕

Voici mon code (qui quand je le teste via l'interface VB, m'affiche la fenêtre telle que je la souhaite):

Sub SOLDECONGES_Calculate()
If Worksheets("Compteurs").Range("AA8") < 0 Then
MsgBox "Solde négatif pour " & Range("C8").Value & " " & Range("D8").Value & " - Solde " & Range("AA7"), vbExclamation
End If

End Sub



Merci d'avance !
 
Re : VBA - MsgBox Quand cellule négative

Bonjour lemath87,

Ta macro ne peut fonctionner que si tu l'exécutes.
Place ton ton code dans ta feuille, dans le Private Sub Worksheet_SelectionChange(ByVal Target As Range).
 
Re : VBA - MsgBox Quand cellule négative

Merci ! Ca fonctionne, sauf qu'au moindre clic, le message apparait. Comment faire pour que le message n'apparaisse uniquement que lors du calcul du classeur ?
 
Re : VBA - MsgBox Quand cellule négative

Bonjour lemath,

mettre ce code dans ThisWorkBook (adapter le MsgBox)

Code:
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Worksheets("Compteurs").Range("AA8") < 0 Then MsgBox ("Valeur négative en Cellule AA8")
End Sub

à+
Philippe

Edit: Bonjour GIBE
 
Re : VBA - MsgBox Quand cellule négative

Bonjour Philippe,

Merci pour ton aide. Cela fonctionne, mais j'ai plusieurs msgbox qui apparaissent les unes à la suite de l'autre, quand je clique sur ok. Est-ce du au nombre de feuilles dans mon classeur ?

Comment le solutionner ?

Encore merci à vous !
 
Re : VBA - MsgBox Quand cellule négative

Re,

Merci pour ton aide. Cela fonctionne, mais j'ai plusieurs msgbox qui apparaissent les unes à la suite de l'autre, quand je clique sur ok. Est-ce du au nombre de feuilles dans mon classeur ?

Comment le solutionner ?

Donner une réponse répondant exactement à la demande sans voir le classeur et sans boule de cristal, ce n'est pas évident
Tant que la valeur en AA8 sera négative, le message apparaîtra à chaque re-calcul

à+
Philippe
 
- 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

Réponses
2
Affichages
375
Réponses
4
Affichages
541
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
868
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…