Signaler

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

Posez votre question Paascal 18Messages postés jeudi 23 mars 2017Date d'inscription 20 octobre 2017 Dernière intervention - Dernière réponse le 4 oct. 2017 à 20:52 par Paascal
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
Utile
+0
plus moins
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 18Messages postés jeudi 23 mars 2017Date d'inscription 20 octobre 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!
Répondre
Raymond PENTIER 43932Messages postés lundi 13 août 2007Date d'inscription ContributeurStatut 21 octobre 2017 Dernière intervention - 4 oct. 2017 à 15:43
Ma réponse reste inchangée ! Je ne peux pas l'améliorer davantage ...
Répondre
Paascal 18Messages postés jeudi 23 mars 2017Date d'inscription 20 octobre 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)
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !