Macro Excel: MsgBox selon condition
Résolu
Koalacid
Messages postés
70
Date d'inscription
Statut
Membre
Dernière intervention
-
Koalacid Messages postés 70 Date d'inscription Statut Membre Dernière intervention -
Koalacid Messages postés 70 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aimerai qu'une MsgBox s'affiche selon le résultat d'un check du classeur EXCEL.
Le Check est le résultat d'une somme dans la feuille "Cockpit" du classeur.
Juste à c^té de ce résultat, une simple formule associée à une mise en forme conditionnelle permet à l'utilisateur de savoir s'il y a une erreur ou pas.
Cependant si l'utilisateur est sur une autre feuille du même classeur, il ne peut pas voir le check et pourrait commencer de fausses manip.
Pour celà il faudrait que si la cellule de check affiche un résultat X (avec -0,01<X<0,01) à la suite du lancement d'une macro qui intervient sur différentes feuilles, une message box apparraisse avec un message.
Voici ce que j'ai de mon côté mais ca ne fonctionne pas parce que quand le check est à 0 et donc OK, il m'affiche: "Check: ERROR !"
Voici ce qui est inséré à la fin de la macro:
Ce doit pas être bien compliqué mais je vois pas mon erreur...
Sincèrement
Koalacid
J'aimerai qu'une MsgBox s'affiche selon le résultat d'un check du classeur EXCEL.
Le Check est le résultat d'une somme dans la feuille "Cockpit" du classeur.
Juste à c^té de ce résultat, une simple formule associée à une mise en forme conditionnelle permet à l'utilisateur de savoir s'il y a une erreur ou pas.
Cependant si l'utilisateur est sur une autre feuille du même classeur, il ne peut pas voir le check et pourrait commencer de fausses manip.
Pour celà il faudrait que si la cellule de check affiche un résultat X (avec -0,01<X<0,01) à la suite du lancement d'une macro qui intervient sur différentes feuilles, une message box apparraisse avec un message.
Voici ce que j'ai de mon côté mais ca ne fonctionne pas parce que quand le check est à 0 et donc OK, il m'affiche: "Check: ERROR !"
Voici ce qui est inséré à la fin de la macro:
With Worksheets("Cockpit")
If Range("C13") > -0.01 And Range("C13") < 0.01 Then
MsgBox "Ready To Retrieve !"
Else
MsgBox "Check: ERROR !"
End If
End With
Ce doit pas être bien compliqué mais je vois pas mon erreur...
Sincèrement
Koalacid
A voir également:
- Macro Excel: MsgBox selon condition
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
1 réponse
Pour ceux que ca intéresse, je viens de trouver à l'instant l'erreur...
(J'ai pas trouvé le bouton pour supprimer le message que je venais de poster...)
Il fallait sélectionner la bonne feuille
ou ainsi:
D´solé pour le message/réponse sans grande utilité
(J'ai pas trouvé le bouton pour supprimer le message que je venais de poster...)
With Worksheets("Cockpit")
If Sheets("Cockpit").Range("C13") > -0.01 And Sheets("Cockpit").Range("C13") < 0.01 Then
MsgBox "Ready To Retrieve !"
Else
MsgBox "Check: ERROR !"
End If
End With
Il fallait sélectionner la bonne feuille
With Worksheets("Cockpit").Select
ou ainsi:
If Sheets("Cockpit").Range("C13") > -0.01 And Sheets("Cockpit").Range("C13") < 0.01 Then
D´solé pour le message/réponse sans grande utilité