Calcul evolutif et remise a 0

Fermé
Daz63 - 2 avril 2019 à 19:52
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 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.
A voir également:

4 réponses

via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
2 avril 2019 à 21:02
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
0
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
0
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
2 avril 2019 à 23:30
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
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
3 avril 2019 à 08:49
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
0
Merci mais sur smartphone je ne peux pas... si tu as un autre solution je t'en remerci d'avance
0
Sur tablette ios ça marche par contre
0
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 ^^ ????
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
3 avril 2019 à 19:08
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
0
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.
0