VBA: MsgBox d'après value=N/A

[guy castellano]

macro en panne…
1) feuille xls 'saisie' avec:
une cellule calculée nommée 'intensité'

2) Souhaite que: si la cellule calculée 'intensité' prend la valeur N/A, il
s'affiche une boite d'information, MsgBox, genre:

- Symbole vbCritical
- prompt: 'vos paramètres sont hors limite'
- button: vbOKOnly

merci d'avance - GUY

 

[JPM]

Bonjour,

la procédure suivante devrait faire l'affaire :

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.IsNA(Range('intensite').Value) Then
MsgBox 'Données hors limites !', vbCritical
End If
End Sub


Bonne journée

Jean-Pierre

 

[Merci JPM… mais :)]

guy castellano écrit:

Merci JPM
de m'avoir fait découvrir l'évènement WorkSheet.Change
Mon message s'affiche bien quand ma cellule calculée 'intensité' = N/A
donc heureux )) …presque,

J'ai bien compris l'excellente procédure présentée, cependant:
Dans une même fiche, je fais plusieurs saisies et une seule est prévue pour déclencher l'information 'hors-limites' (via 'intensité' = N/A)

cette cellule calculée 'intensité' conservant toujours la valeur = N/A,
le message 'hors-limites' s'affiche aussi pour n'importe laquelle des autres cellules non concernées …hi! hi!

Comment, 'remettre à zéro' ) Private Sub Worksheet.Change ()
ou ne plus tenir compte du test sur 'intensité' = N/A , afin que mon message ne s'affiche plus lors des autres saisies ?

En un mot, est-il possible de faire afficher mon message 'hors-limite' une 1ère et unique fois seulement ???

Je ne trouve rien dans ma petite tête (

Merci pour vos contributions - GUY