Soustraction graduelle

Résolu/Fermé
SkullG Messages postés 10 Date d'inscription vendredi 6 mai 2016 Statut Membre Dernière intervention 30 mai 2016 - 6 mai 2016 à 23:20
Mike-31 Messages postés 18345 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 8 novembre 2024 - 8 mai 2016 à 08:01
J'aimerais beaucoup, pour moi et amis et créé une formule sur Excel qui me permettrais de faire une sorte de jauge de point de vie, pas besoin de VBA juste un calcul simple qui me permettrais d'écrire un nombre, de le soustraire, qu'il soit garder en mémoire et de le re-soustraire. Exemple : 200 point de vie, que celui-ci se soustrait graduellement quand j'entre un nouveau nombre et que je n'ai pas besoin de le réécrire a chaque fois. C'est dur à expliquer donc je ne sais pas si on me comprend, donc je vais donner un exemple : sur Excel, j'écris 200 dans mes points de vie, ensuit-je soustrait exemple 10, donc Excel écrit 190, mais à partir de là, je dois écrire 190 dans mes points de vie si je désire qu'il recommence, le calcule à partir de 190 et non de 200, mais je ne sais pas comment faire pour qu'il fasse le calcul graduellement comme une simple calculatrice et qu'il garde le chiffre en mémoire quelqu'un pourrait m'aider ?


P.S. désoler j'ai copier coller mon propre sujet car je l'ai lancé en anonyme au départ ^^'

4 réponses

DjiDji59430 Messages postés 4139 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 8 novembre 2024 678
6 mai 2016 à 23:46
Bonjour,

Un truc de ce genre ???

https://www.cjoint.com/c/FEgvT74WrbG

Crdmt
1
Mike-31 Messages postés 18345 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 8 novembre 2024 5 104
Modifié par Mike-31 le 8/05/2016 à 08:38
Re,

ton code n'a rien à voir avec ta demande initiale, il s'agit d'un simple collage des valeurs
quand à sa simplicité, il s'agit d'un code édité par l'assistant macro avec pas mal d'inutilité !

si tu veux un code simple qui fait la même chose, dans ton code VBA il suffit simplement d'écrire
[K7] = [K10]


A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
1
SkullG Messages postés 10 Date d'inscription vendredi 6 mai 2016 Statut Membre Dernière intervention 30 mai 2016
6 mai 2016 à 23:56
Oui, exactement , mais peut tu faire ça sans les 'retiré' en boucle ?
0
Mike-31 Messages postés 18345 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 8 novembre 2024 5 104
7 mai 2016 à 10:22
Bonjour,

alors non il faut passer par du VBA avec ce genre de code, exemple saisie en cellule B2 résultat en B5

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
If [B5] = "" Then
[B5] = Target
Else
[B5] = Range("B5").Value - Target.Value
End If
End If
End Sub

il est possible de passer avec une seule cellule avec un code plus complexe
0
SkullG Messages postés 10 Date d'inscription vendredi 6 mai 2016 Statut Membre Dernière intervention 30 mai 2016
8 mai 2016 à 00:33
ok merci j'ai réussi avec un code plutôt simple :

range("k10").select
selection.copy
range("k7")select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
sa marche plutot bien
0