Calcul evolutif et remise a 0 Fermé

Question

Bonjour, 

J'ai un petit soucis je me fait des nœuds au cerveau, je voulais savoir si il est possible de créer un "score" ou un palier à atteindre qui évolue par la suite, je m'explique :
Dans une colone et 2 cellules
A1, A2

A2 est la cellule où l'on rentre le total du score obtenu par ex : 50 + 90 ça nous affichera 90 jusque là rien de bien sorcier mais...

A1 démarre à 100 et si A2 est Supérieur à 100 = A1 alors A1 passe à 200 et A2 retombe à 0 ou laisse la différence lorsqu'il a dépasser A1 exemple

A1 = 100
A2 = 90 

Si j'ajoute +20 à A2 alors

A1 = 200
A2 = 10

Et ça à l'infini ou 10000 par exemple.
Ex :
A1=200
A2 = 10 
et j'ajoute + 605 à A2

Alors 
A1 = 400
A2 = 115

Ou une solution très proche si celle n'est vraiment pas possible merci.

via55 · Answer

Bonjour

Il faut passer pas une macro
ALT+F11 pour ouvrir editeur VBA
Double clic sur le nom de la feuille concernée dans l'arborescence
Copier coller la macro ci-dessous et fermer l'éditeur 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
If Target.Value > 100 Then Target.Value = Target.Value - 100: Range("A1") = Range("A1") + 100
End If
End Sub
Cdlmnt
Via

Daz63 · Answer

Yes je devine que ça doit marcher mais je suis sur téléphone android et pour copier ce fichier pour le mettre sur mobile ios avec numbers. Du coup il y a une solution pour mon cas ? Si oui comment on fait et juste ce sera parfait

via55 · Answer

La seule possibilité est par macro
Exemple dans ce fichier, en espérant que tu pourras le télécharger
https://mon-partage.fr/f/uN7ZKNYE/

Cdlmnt
Via

eriiic · Answer

Bonjour à tous,

une possibilité par formule en activant le calcul itératif dans les options / Formules, et une cellule supplémentaire.
Le cocher et mettre Nb maximal d'itération à 1.

A1 :
=PLAFOND(B1;100)
B1 :
=40+50
C1 :
=MOD(B1;100)
eric

Calcul evolutif et remise a 0

4 réponses

Discussions similaires