Comment puis-je bâtir cette formule ?

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

merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #4690031
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" news:

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

merci


LSteph
Le #4690021
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


LSteph
Le #4690001
...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


Publicité
Poster une réponse
Anonyme