Message d'avertissement pour mauvais résultat

PascalXLD

XLDnaute Barbatruc

• 1 Mars 2005

• #2

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

 

Vote positif 0 Vote négatif

Gérard DEZAMIS

XLDnaute Accro

• 1 Mars 2005

• #3

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 1 Mars 2005

• #4

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.

 

Vote positif 0 Vote négatif

Gérard DEZAMIS

XLDnaute Accro

• 1 Mars 2005

• #5

Re Pascal

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

Merci ! Pascal !

@+ GD

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 1 Mars 2005

• #6

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

 

Vote positif 0 Vote négatif

Gérard DEZAMIS

XLDnaute Accro

• 1 Mars 2005

• #7

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

 

Vote positif 0 Vote négatif

E

Etienne Lorent

Guest

• 1 Mars 2005

• #8

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 1 Mars 2005

• #9

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 1 Mars 2005

• #10

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

 

Vote positif 0 Vote négatif

Gérard DEZAMIS

XLDnaute Accro

• 1 Mars 2005

• #11

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

 

Vote positif 0 Vote négatif

E

Etienne Lorent

Guest

• 1 Mars 2005

• #12

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

Merci à tous le 2

 

Vote positif 0 Vote négatif