détermination d'une formule excel Résolu/Fermé

Question

Bonsoir à toutes et à tous
Pouvez-vous m’aidez s’il vous plaît à trouver une solution à mon problème. J’ai deux cellules A1 et B1(en couleur bleue)
	Pour la première fois A1 doit être égale à B1

	Deuxième saisie dans les même cellules bleue en remplaçant la première valeur de A1 par une autre valeur, que je puisse obtenir en B1, l’ancienne valeur de B1+la nouvelle valeur de A1 et ainsi de suite.

Voici un exemple

Raymond PENTIER · Answer

Bonjour.

Ce n'est pas le fonctionnement normal d'Excel (ou de tout autre tableur) :
Une même cellule ne peut contenir à la fois une formule et une donnée.

Pour obtenir ce que tu demandes, il faut faire un peu de programmation en VBA et écrire une macro. 
Je te suggère une autre approche : 
Tes données successives, au lieu de les taper chaque fois dans la cellule B1, tu les saisis au fur et à mesure dans la ligne 3, et tu en fais la somme en B1.

Frenchie83 · Answer

Bonjour,
Par rapport à la question initiale
Allez dans les options Excel:
-sélectionnez "Formules"
-Dans le premier paragraphe: "Mode de calcul": cochez la case "Activer le calcul itératif" et mettre la valeur 1 a la place de 100. -fermez avec Ok
-Sur la feuille Excel en B1 écrivez la formule: = B1 + A1
-Saisissez les valeurs en A1 et observez B1
Cdlt

IBA42 · Answer

Bonjour,

La formule marche très bien ,Frenchie83 et Raymond PENTIER merci infiniment j'étais là dessus plus d'une semaine sans rien trouver.merci, merci pour cet assistance.

ccm81 · Answer

Bonjour à tous

il va peut être  y avoir un problème avec le mode de calcul itératif >  à chaque changement dans la feuille, B1 sera mis à jour (du moins c'est ce qui se passe avec mon antique excel 2003)
La solution dans ce cas passe par une macro
https://www.cjoint.com/c/HHAgDaHKamB

Cdlmnt
.

ccm81 · Answer

Pas tout à fait

Option Explicit

Const colA = "A"
Const colB = "B"

Dim b

Private Sub Worksheet_Change(ByVal Target As Range)
Dim li As Long
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Columns(colA)) Is Nothing Then
  li = Target.Row
  Range(colB & li).Value = Range(colA & li).Value + b
  ' et si tu veux vider la cellule
  ' en colA tu enlèves l'apostrophe à la ligne suivante
  ' Range(colA & li).Value = ""
End If
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim li As Long
If Target Is Nothing Then Exit Sub
If Not Intersect(Target, Columns(colA)) Is Nothing Then
  li = Target.Row
  b = Range(colB & li).Value
End If
End Sub
Cdlmnt

ccm81 · Answer

De rien

Si c'est fini, peux tu mettre le sujet à résolu (en haut à droite, la roue dentée)

Cdlmnt

Détermination d'une formule excel

6 réponses