Voilà ce que je voudrais faire :
Quand je saisis dans la cellule A une donnée, celà calcule un résultat dans
une cellule D. Je voudrais que si D se retrouve > à une cellule C, un message
s'affiche (non pas dans une cellule mais en surimpression de ma feuille) mais
rien tant que D est < à C
J'éspère que vous pourrez m'aider
Merci d'avance à tous
--
Nath
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
Dans le module de la feuille un truc comme ça (à adapter)
Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [A1]) Is Nothing Then Exit Sub If [D1] + [A1] > [C1] Then Application.EnableEvents = False MsgBox "alerte" [A1] = "" Application.EnableEvents = True Exit Sub End If [D1] = [D1] + [A1] End Sub
AV
Dans le module de la feuille un truc comme ça (à adapter)
Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [A1]) Is Nothing Then Exit Sub
If [D1] + [A1] > [C1] Then
Application.EnableEvents = False
MsgBox "alerte"
[A1] = ""
Application.EnableEvents = True
Exit Sub
End If
[D1] = [D1] + [A1]
End Sub
Dans le module de la feuille un truc comme ça (à adapter)
Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [A1]) Is Nothing Then Exit Sub If [D1] + [A1] > [C1] Then Application.EnableEvents = False MsgBox "alerte" [A1] = "" Application.EnableEvents = True Exit Sub End If [D1] = [D1] + [A1] End Sub
