OVH Cloud OVH Cloud

Modifier une formule

12 réponses
Avatar
bouak
Bonsoir,

Je voudrai que chaque nouveau chiffre porté en B1, s’inscrive en A1, A2, A3
ainsi de suite..

SVP quelle est la rectification à faire à cette formule.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b1")) Is Nothing Then Exit Sub
Application.EnableEvents = False

For i = 150 To 2 -1
Cells(i, 1) = Cells(i - 1, 1).Value
Next
[a1] = [b1].Value
Application.EnableEvents = True

End Sub


Merci de votre aide


--
bouak

2 réponses

1 2
Avatar
ThierryP
Désolé,...pas pu répondre plus tôt !!

En effet, ta formule reste "constante" par rapport à un changement
physique dans la feuille. Il vaut mieux utiliser l'évènement Calculate
de la feuille, qui lui est déclenché par une modif de valeur y compris
calculée.


Merci bien thierry.

Cette fois-ci c'est top... mais lorsque je remplace en B1 le chiffre
constant par une formule qui correspond à chiffre que j'importe en temps
réel, ça ne le porte pas à la suite...

As-tu la solution ?



--
@+ thierryp

Avatar
bouak
Bonsoir Thierry,

Merci bien c'est exactement ça.

Bonne soirée, au plaisir.
--
bouak



Désolé,...pas pu répondre plus tôt !!

En effet, ta formule reste "constante" par rapport à un changement
physique dans la feuille. Il vaut mieux utiliser l'évènement Calculate
de la feuille, qui lui est déclenché par une modif de valeur y compris
calculée.


Merci bien thierry.

Cette fois-ci c'est top... mais lorsque je remplace en B1 le chiffre
constant par une formule qui correspond à chiffre que j'importe en temps
réel, ça ne le porte pas à la suite...

As-tu la solution ?



--
@+ thierryp




1 2