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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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
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
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" <cyril68@discussions.microsoft.com> a écrit dans le message de news:
B807AD02-75CA-413A-8AC6-EC3B1441DF30@microsoft.com...
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
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
AV
Autre solution les références circulaires (ben oui ça existe ..) Outils >> options >> calcul >> cocher "Itérations" (nbre : 1) En B1 : ±+A1
AV
Autre solution les références circulaires (ben oui ça existe ..)
Outils >> options >> calcul >> cocher "Itérations" (nbre : 1)
En B1 :
±+A1
Autre solution les références circulaires (ben oui ça existe ..) Outils >> options >> calcul >> cocher "Itérations" (nbre : 1) En B1 : ±+A1
AV
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
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" <cyril68@discussions.microsoft.com> a écrit dans le message de
news:B807AD02-75CA-413A-8AC6-EC3B1441DF30@microsoft.com...
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
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
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
Bonsoir à tou(te)s,
[B1] = [B1] + Val([A1])
pour éviter les soucis si du Texte est entré en A1.
Bye
Rai
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news: O$DxoA$zEHA.4028@TK2MSFTNGP15.phx.gbl...
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
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