Menu

Calcul evolutif et remise a 0

- - Dernière réponse : eriiic
Messages postés
22668
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
19 avril 2019
- 3 avril 2019 à 23:44
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.
Afficher la suite 

Votre réponse

4 réponses

Messages postés
10517
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
20 avril 2019
1382
0
Merci
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
Commenter la réponse de via55
0
Merci
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
Commenter la réponse de Daz63
Messages postés
10517
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
20 avril 2019
1382
0
Merci
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
Commenter la réponse de via55
Messages postés
22668
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
19 avril 2019
7332
0
Merci
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
Sur tablette ios ça marche par contre
Ah non j'ai cru
Quand B1 atteind A1, C1 se remet à 0 et A1 prend + 100
Mais il faudrait que Quant C1 atteind A1 alors C1 se remet à 0 (+ le surplus si il dépasse A1) et A1 évolue.
Mais cest presque ça ^^ ????
eriiic
Messages postés
22668
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
19 avril 2019
7332 -
Mais il faudrait que Quant C1 atteind A1 alors C1 se remet à 0 (+ le surplus si il dépasse A1)
avec =MOD(B1;100), C1 peut difficilement faire autre chose que de repasser à 0 en laissant le surplus qui dépasse un multiple de 100.
Si excel sur ios ne respecte pas ça je ne peux rien de plus pour toi.
eric
Si si il le respect c'est pas le soucis, cest juste que après il ne prend pas en compte le fait qu'il lui faut 200 points puis 300 points, tout les 100 points il se réinitialise.
eriiic
Messages postés
22668
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
19 avril 2019
7332 -
Ben c'est ce que tu as demandé :
A2 retombe à 0 ou laisse la différence lorsqu'il a dépasser A1 exemple
Sauf que A2 c'est C1 dans mon exemple
eric

Edit : ah, j'ai peut-être compris. Essaie avec en C1 :
 =MOD(B1;A1)
Commenter la réponse de eriiic