Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Addition automatique ????

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion tiet
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

tiet

Guest
Bonjour,
J'aimerais travailler sur 2 cellules par exemple A1 & B1

Dans A1 je rentrerais un nombre qui doit automatiquement ce mettre dans B1
et ensuite, en mettant un autre nombre dans A1 celui-ci doit s'additioner dans B1.

A1 B1
12 12

A1 B1
7 19

Je ne trouve aucune formule permettant ça, je supose qu'il faut faire une macro mais les macros et moi ...

Je ne sais pas si je me suis bien fait comprendre donc si vous avez besoins de plus d'infos n'hésité pas

Merci d'avance de votre aide
Thierry
 
Trier par date Trier par votes
Re : Addition automatique ????

Bonjour Thierry,

essaye peut être ceci, au préalable tu modifies les options de calcul. barre de menu Excel => outils => options => onglet "calcul", tu coches "itération", dans le nombre maxi, tu mets 1, ensuite dans la cellule B1
Code: 
=B1+A1


bon après midi
@+
 
Vote positif 0 Vote négatif
Re : Addition automatique ????


Merci Pierrot,

On ce rapproche de ce que je veux faire, mais dans cette manière chaque autre entrées dans d'autre cellules continue à additionner A1 & B1
alors que rien n'a été changer dans la cellule A1 :-(
 
Vote positif 0 Vote négatif
Re : Addition automatique ????

Re,

essaye ce code alors, à placer dans le module de feuille concernée => click droit sur l'onglet => visualiser le code :

Code: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
Range("B1").Value = Range("B1").Value + Range("A1").Value
Application.EnableEvents = True
End Sub

@+
 
Vote positif 0 Vote négatif
Re : Addition automatique ????

Bonjour à tous,
J'en étais là alors je post:
Dans le code la feuille
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Toto As Long
If Not Application.Intersect(Range("A1"), Target) Is Nothing Then
Toto = Range("B1").Value
Range("B1") = Toto + Range("A1").Value
End If
End Sub
Cordialement
 
Vote positif 0 Vote négatif
Re : Addition automatique ????

Bonjour, salut les autres,

Menu Outils - Options - Calcul - cocher "Itérations" et mettre le nombre d'itérations à 1.
B1 : =SI(CELLULE("adresse";A1)=CELLULE("adresse");B1+A1;B1)
 
Vote positif 0 Vote négatif
Re : Addition automatique ????

Bonjour Tiet,

Je viens de m'apercevoir que tu es de Rhode-Saint-Genèse, donc nous sommes presque voisins (quelques km à l'Est) !

A la différence que tu as des "facilités" et moi pas.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
  • Résolu(e)
XL 2021 Création de tableau
2
Réponses
29
Affichages
995
Alamyr
A
L
  • Question Question
Microsoft 365 Calcule entre plusieurs périodes
2
Réponses
24
Affichages
636
Lemtosh
L
I
  • Résolu(e)
XL 2021 msgbox : timer vbyes
2 3
Réponses
40
Affichages
2 K
isandre
I
  • Résolu(e)
Microsoft 365 Tri liste - répartition égale
Réponses
12
Affichages
662
La_Mouette
I
  • Question Question
XL 2016 Remplissage cellule à partir d'un menu déroulant
Réponses
8
Affichages
609
vgendron
XLS : Fonctionnement des chiffres Unicode
Réponses
0
Affichages
469
Lu76Fer
  • Résolu(e)
Microsoft 365 Génération automatique calendrier par année
Réponses
6
Affichages
466
Etoto
L
  • Résolu(e)
Microsoft 365 Aide : Colorer une cellule en fonction de sa valeur
Réponses
5
Affichages
671
Pi4
P
B
  • Résolu(e)
Microsoft 365 Problème dans formule VBA
Réponses
7
Affichages
571
BOILEAU
B
J
  • Question Question
Microsoft 365 Recherche formule automatique
Réponses
7
Affichages
544
JPAd
J
S
  • Question Question
XL 2013 Fichier de calcul d'horaires de travail.
Réponses
2
Affichages
272
syl27
S
M
  • Résolu(e)
XL 2010 Ressortir uniquement les nombres de la musique d'une course hippique
Réponses
5
Affichages
422
mamarus1
M
E
  • Résolu(e)
XL 2016 Concaténer des adresses de cellules
Réponses
3
Affichages
657
Edel
E
  • Résolu(e)
XL 2019 Définir un nom d'un champ lors d'une macro
2
Réponses
28
Affichages
2 K
vgendron
P
  • Question Question
Microsoft 365 Aide pour création fiche de paie en fonction de mon planning
Réponses
2
Affichages
462
Po-p0/59
P
B
  • Résolu(e)
XL 2021 Impossible d'annuler une modification dans un fichier
Réponses
5
Affichages
314
BJ1
B
T
  • Résolu(e)
XL 2010 Masquer les lignes en fonction du résultat d'une liste déroulante
Réponses
11
Affichages
876
Titi456
T
E
  • Question Question
XL 2021 Planning agent
Réponses
5
Affichages
409
fanfan38
L
  • Question Question
Microsoft 365 Tableau transposant des valeur B2 juxtaposant des valeurs au départ en A1
Réponses
2
Affichages
488
lusert
L
E
  • Résolu(e)
XL 2019 Liaison rompue d'un classeur
Réponses
6
Affichages
1 K
Electronull
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…