OVH Cloud OVH Cloud

formule de calcul

5 réponses
Avatar
cyril68
quelle est la formule de calcule pour effectuer la chose suivante ds excel:je
voudrais que chaque fois que je rentre un nombre ds A1par exemple,celui ci
s'additionne automatiquement ds B1 et cela a chaque fois que je rentre un
nombre ds A1
exemple:je rentre 100 ds A1 donc B1 me dis 100 puis je rentre 120 ds A1 et
B1 devrais m'indiquer 220 et ainsi de suite .
J'ai cherche mais en vain si vous pouviez m'aider merci d'avance

5 réponses

Avatar
AV
Clic droit sur l'onglet de feuille --> copier/coller le code suivant :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
[B1] = [B1] + [A1]
Application.EnableEvents = True
End Sub

AV
Avatar
Philippe.R
Bonsoir,
En VBA, dans le module de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
[b1] = [b1] + [a1]
End If
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"cyril68" a écrit dans le message de news:

quelle est la formule de calcule pour effectuer la chose suivante ds excel:je
voudrais que chaque fois que je rentre un nombre ds A1par exemple,celui ci
s'additionne automatiquement ds B1 et cela a chaque fois que je rentre un
nombre ds A1
exemple:je rentre 100 ds A1 donc B1 me dis 100 puis je rentre 120 ds A1 et
B1 devrais m'indiquer 220 et ainsi de suite .
J'ai cherche mais en vain si vous pouviez m'aider merci d'avance


Avatar
AV
Autre solution les références circulaires (ben oui ça existe ..)
Outils >> options >> calcul >> cocher "Itérations" (nbre : 1)
En B1 :
±+A1

AV
Avatar
Dédé
Salut cyril68 !

Une autre solution sans passer par VBA ...

Tu va dans le menu Outils, Options, onglet intitulé "Calcul" et tu active la
case à cocher nommée "Itération" et tu luis donne la valeur de 1. Confirme
ton changement.

Ensuite de cela, tu va dans la cellule à laquelle doit s'ajouter la valeur
de la cellule A1 (Dans l'exemple, c'est la cellule B1 !) et tu lui colle la
fonction suivante :
±+A1

Entre tes différentes valeurs dans la cellule A1 et tu verra qu'elles
s'additionnent à la valeur déjà inscrite dans la cellule B1 ...

Est-ce que cela te convient ?

Salutations
Dédé

"cyril68" a écrit dans le message de
news:
quelle est la formule de calcule pour effectuer la chose suivante ds
excel:je

voudrais que chaque fois que je rentre un nombre ds A1par exemple,celui ci
s'additionne automatiquement ds B1 et cela a chaque fois que je rentre un
nombre ds A1
exemple:je rentre 100 ds A1 donc B1 me dis 100 puis je rentre 120 ds A1 et
B1 devrais m'indiquer 220 et ainsi de suite .
J'ai cherche mais en vain si vous pouviez m'aider merci d'avance


Avatar
Rai
Bonsoir à tou(te)s,

[B1] = [B1] + Val([A1])

pour éviter les soucis si du Texte est entré en A1.

Bye

Rai


"AV" a écrit dans le message de news: O$DxoA$
Clic droit sur l'onglet de feuille --> copier/coller le code suivant :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
[B1] = [B1] + [A1]
Application.EnableEvents = True
End Sub

AV