Message d'avertissement pour mauvais résultat

[Etienne Lorent]

Bonjour à tous,

Comment peux-t-on signaler que le résutat d'une cellule est non valide.

Par exemple, le résultat de L45 ne doit jamais dépasser 3000, si c'est le cas l'utilisateur du tableur doit en être imformé de manière claire par l'apparition d'un message d'erreur à l'écran par exemple.

Merci

 

[PascalXLD]

Bonjour

Tu selectionnes ta cellule tu fais données> Validation
puis dans la liste autoriser tu choisis personnalisé et là tu tapes =L45<3000

Tu peux taper le message qui apparaitra en cas d'erreur dans l'onglet suivant

Bon courage

Message édité par: Pascal76, à: 01/03/2005 14:50

 

[Gérard DEZAMIS]

Bonjour Etienne

Un essai avec
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range('L45').Value > 3000 Then
MsgBox 'Attention le seuil est dépassé !'
End If
End Sub

@+ GD

 

[PascalXLD]

Oups ce que je viens de te marquer marche si tu écris le nombre directement dans la cellule et donc si celui-ci n'est pas l'objet d'un calcul. Dans ce cas là il faudra passer par une procédure evenementielle.

 

[Gérard DEZAMIS]

Re Pascal

Niarf ! Niarf ! Non seulement plus rapide mais plus simple !

Merci ! Pascal !

@+ GD

 

[PascalXLD]

Bon bah Gérard t'a donné un exemple de procédure evenementielle.

Perso j'aurais peut-être pris plutôt celle-ci

Private Sub Worksheet_Calculate()
If Range('L45') > 3000 Then MsgBox 'Attention le seuil est dépassé !'
End Sub

Tu choisiras si tu en as besoin

 

[Gérard DEZAMIS]

Re Pascal

Effectivement inutile de faire ramer le brave Excel à chaque changement de selection, autant le faire travailler uniquement lorsqu'il calcule le pôvre !

Re merci Pascal, Arrête de m'appuyer sur la tête, je m'enfonce tout seul dans le VBA ....

Cordialement

@+ GD

 

[Etienne Lorent]

Pascal, je connais cette fonction, mais elle n'est pas assez voyante pour des utilisateur occasionnel de excel

Par contre Gérard, je croix que tu me propose une boîte de dialogue mais je suis un peu nul et je sais pas ce que je dois faire avec pour que ca fonctionne sur un de mes tableau

Merci

 

[PascalXLD]

Re Gérard

C'est un plaisir de te retrouver sur un fil.

Je n'ai pu m'empécher de te citer dans ma présentation (vu mon grand âge que veux-tu on radotte)

Bonne journée

 

[PascalXLD]

Je te comprends pas trop Etienne

Pour être voyante elle est voyante parceque tant que tu n'as pas changé ta valeur cela te bloque :unsure:

Cela t'oblige donc à modifier ta valeur entrée et le message est tout de même assez explicite.

M'enfin

Message édité par: Pascal76, à: 01/03/2005 15:05

 

[Gérard DEZAMIS]

Re de Re de Re Pascal & Etienne

Le solution d'Etienne me semble plus pratique mais ....

si tu veux placer le code

Private Sub Worksheet_Calculate()
If Range('L45') > 3000 Then MsgBox 'Attention le seuil est dépassé !'
End Sub

Faire : Clic droit sur Onglet de la feuille, visualiser le code, et placer le code ci-dessus dans la fenetre Worksheet (a droite) qui apparait dans le VBE (Visual Basic Editeur)

@+ GD

 

[Etienne Lorent]

C'est vrai, les deux fonctionnent, je les utiliserai en fonction des cas

Merci à tous le 2