Msgbox sous condition

[Nonno 94]

Bonjour le Forum,

je viens solliciter votre aide pour résoudre la difficulté suivante à laquelle je suis confronté :

la valeur d'une cellule devient positive sous condition.
Comment faire dans ce cas pour afficher une Msgbox avec un message d'avertissement demandant de saisir des informations pour que la valeur de la cellule redevienne égale à 0 ?

Exemple : la cellule "AA 506" = MAX(AA7:AA505) devient positive si l'une des cellules de la colonne "AA" devient positive sous condition.

J'ai essayé le code suivant qui malheureusement ne fonctionne pas !

Private Sub worksheet_change()
If Range("AA506") > 0 Then
msgbox("message", vbokonly, "titre")
End If
End Sub

Remerciements pour vos réponses et ........ votre indulgence.
Bonne soirée.
Cordialement.

Nonno 94.

 

[kjin]

Re : Msgbox sous condition

Bonsoir,
Incompréhensible !

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("AA506") > 0 Then
    MsgBox "message", vbOKOnly, "titre"
End If
End Sub

A+
kjin

 

[Nonno 94]

Re : Msgbox sous condition

Bonsoir et merci pour la réponse,

avec ce code, la Msgbox s'affiche lorsque à chaque fois qu'une cellule de la feuille est sélectionnée et ce jusqu'à ce que par une saisie dans plusieurs cellules, la valeur de la cellule "AA 506" redevienne égale à 0.
Est-il possible qu'elle ne s'affiche que lorsque la feuille est sélectionnée ("Activate" ?) et éventuellement lorsque l'on quitte la feuille si une saisie n'a pas remis la valeur de la cellule "AA 506" à 0 ?

Nonno 94.