Retenir un résultat comme la touche "Ans" calculatrice sur Excel [Résolu]

Paascal 26 Messages postés jeudi 23 mars 2017Date d'inscription 6 décembre 2017 Dernière intervention - 3 oct. 2017 à 23:12 - Dernière réponse : Paascal 26 Messages postés jeudi 23 mars 2017Date d'inscription 6 décembre 2017 Dernière intervention
- 4 oct. 2017 à 20:52
Bonjour,


Je voudrais savoir comment retenir la valeur précédente d'un calcul avec un nombre aléatoire

Je sais qu'il est possible de faire une combinaison avec Indirect et ligne et colonne

Merci de m'aider
Afficher la suite 

4 réponses

Répondre au sujet
Raymond PENTIER 44548 Messages postés lundi 13 août 2007Date d'inscriptionContributeurStatut 14 décembre 2017 Dernière intervention - 4 oct. 2017 à 02:48
0
Utile
3
Bonjour.

J'ai peur que tu ne sois obligé de passer par une macro, parce que tout résultat aléatoire est immédiatement remplacé par un autre dès que tu effectues la moindre action sur la feuille de calcul : saisie, modification, copie, sauvegarde ...

Quand tu écris "combinaison avec Indirect et ligne et colonne", tu parles bien d'une formule utilisant les fonctions INDIRECT, LIGNE et COLONNE ?
Je vois mal comment ces fonctions figeraient un calcul aléatoire ...

Cordialement.
Paascal 26 Messages postés jeudi 23 mars 2017Date d'inscription 6 décembre 2017 Dernière intervention - 4 oct. 2017 à 12:07
Je crois que vous avez mal compris ma question.
Mon but n'est pas d'additionner tous les nombres aléatoires, c'est plutôt de le garder en mémoire pour le "recalculage" suivant pour lui ajouter une autre valeur aléatoire.

D'après mes souvenir, la formule ressemblait à ça:

=INDIRECT(???COLONNE()???LIGNE()-64)???-"la valeur de la cellule d'en haut"

J'espère que ça va vous aider à mieux me répondre!
Raymond PENTIER 44548 Messages postés lundi 13 août 2007Date d'inscriptionContributeurStatut 14 décembre 2017 Dernière intervention > Paascal 26 Messages postés jeudi 23 mars 2017Date d'inscription 6 décembre 2017 Dernière intervention - 4 oct. 2017 à 15:43
Ma réponse reste inchangée ! Je ne peux pas l'améliorer davantage ...
Paascal 26 Messages postés jeudi 23 mars 2017Date d'inscription 6 décembre 2017 Dernière intervention - 4 oct. 2017 à 20:52
Bonjour, j'ai réussi se que je voulais faire avec les macros, voici le code:

Sub brasser_dés()

'mode de calcul
Application.Calculation = xlManual

'choisir des nombres aléatoires et faire la somme

Range("q1").Select
ActiveCell.FormulaR1C1 = "=RANDBETWEEN(1,2)"
Range("r1").Select
ActiveCell.FormulaR1C1 = "=RANDBETWEEN(1,2)"
Range("s1").Select
ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-1]"

'retenir les valeur
a = 0
Range("S11").Select
If ActiveCell = 1 Then a = 1
Range("S12").Select
ActiveCell = a

b = 0
Range("S14").Select
If ActiveCell = 2 Then b = 1
If ActiveCell = 3 Then b = 1
Range("S13").Select
ActiveCell = b

Range("S14").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
'accumuler les dés et réaction
Range("S1").Select
t = ActiveCell
Range("p12").Select
ActiveCell = ActiveCell + t
Range("S15").Select

ActiveCell.FormulaR1C1 = "=IF(R[-1]C=3,""d'oh"",""youpi!!!"")"
Calculate

End Sub

Il faut mettre sur S11:
=SI(Q1=R1;1;0)
Commenter la réponse de Raymond PENTIER