message d'alerte sur une colonne

(...)
A1 A2
50 000 kms si je rentre 60 000 ça doit donner l'alerte


Le code suivant se déclenche lorsque tu entrres quelque chose dans les
cellules A1 et A2. Si le total A1+A2 est > 10 000, alors msgbox
A mettre dans la feuille (clic droit sur l'onglet "visualiser le code") :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
If [A1] + [A2] > 10000 Then MsgBox "Plus de 10 000 km"
End Sub

Bonjour à tous et toutes je suis entrain de faire un tableau pour un
collègue pour ses vidanges de véhicules
il a ses données en A1 et A2 je voudrais lorsqu'il rentre ses données en
A2

qu'il y ait un message d'alerte qui arrive on m'a gentiment écrit ce code
qui fontionne MAIS le soucis que j'ai c'est que dans A1 il peut y avoir
des

données plus gde que 10 000 donc l'alerte "bippe"
comment faire pour que par ex

A1 A2
50 000 kms si je rentre 60 000 ça doit donner l'alerte


Le code suivant se déclenche lorsque tu entrres quelque chose dans les
cellules A1 et A2. Si le total A1+A2 est > 10 000, alors msgbox
A mettre dans la feuille (clic droit sur l'onglet "visualiser le code") :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
If [A1] + [A2] > 10000 Then MsgBox "Plus de 10 000 km"
End Sub

merci d'avance
--
Amicalement
thiery

Bonjour,

tu veux que A2 - A1 > 10000 ça mette le message ?
If [A2] - [A1] > 10000

@+
patrick

et d'autre part ça prouve combien je suis c.n !!!!

Amicalement
thiery

ne crois surtout pas avoir l'apanage de cette affirmation, thiery et
si tu dois créer un club, donne-moi le montant de la cotisation :
j'adhère ex abrupto
jps

Bon maintenant j'ai un autre pb c'est que si je veux que ce soit la colonne
entière qui soit pris en charge
colonne B - colonne A ?? sur une ligne ça fonctionne parfaitement mais dés
que je change forcément ça ne fonctionne plus

Bon maintenant j'ai un autre pb c'est que si je veux que ce soit la
colonne entière qui soit pris en charge
colonne B - colonne A ?? sur une ligne ça fonctionne parfaitement mais
dés que je change forcément ça ne fonctionne plus

Re,

En gardant les kilométrages initiaux dans A et les kilométrages atteints
dans B, tu pourrais essayer cela à coller dans la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
c = Target.Row
If Intersect(Target, Range("B" & c)) Is Nothing Then Exit Sub
If Range("B" & c) - Range("A" & c) > 10000 _
Then MsgBox "Plus de 10 000 km"
End Sub

--
François L