Comment puis-je bâtir cette formule ?

Bonsoir,
par formule :

en B1 : =si(a1<5000;a1;"")
en B2 : =si(a1>P00;a1;"")

par VBA, coller ce qui suit dans la page de code de la feuille concernée
(clic droit sur l'onglet et "visualiser le code")

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
If Target.Value < 5000 Then [b1] = Target.Value
If Target.Value >= 5000 Then [b2] = Target.Value
End If
End Sub

--
Avec plaisir
Philippe.R
"berlado" <berlado@discussions.microsoft.com> a écrit dans le message de
news:42C4790A-51C2-45D8-AB10-2476146F47BD@microsoft.com...

si A1<5000 copier A1 dans B1 -
sinon copier A1 dans B2
comment faire la formule ?

merci

Bonsoir,

En B1
=Si(A1<5000;A1;"")
En B2
=Si(B1="";A1;"")

Cordialement.

- -
LSteph

Nota:
Outils options Affichage Valeurs Zéros doit être décoché

si A1<5000 copier A1 dans B1 -
sinon copier A1 dans B2
comment faire la formule ?

merci

...par VBA...ok...mais juste une petite rectif par rapport à la
proposition précédente.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
[b1:b2].ClearContents
If Not Intersect(Target, [a1]) Is Nothing Then
If [a1] < 5000 Then
[b1] = [a1]
Else
[b2] = [a1]
End If
End If
Application.EnableEvents = True
End Sub

'lSteph

si A1<5000 copier A1 dans B1 -
sinon copier A1 dans B2
comment faire la formule ?

merci