Retenir un résultat comme la touche "Ans" calculatrice sur Excel
Résolu
Paascal
Messages postés
26
Date d'inscription
Statut
Membre
Dernière intervention
-
Paascal Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
Paascal Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Ans calculatrice
- Calculatrice gratuit - Télécharger - Calcul & Conversion
- Installation calculatrice - Télécharger - Calcul & Conversion
- Ma-calculatrice - Télécharger - Calcul & Conversion
- Calculatrice windows 7 - Télécharger - Calcul & Conversion
- Calculatrice disparue samsung ✓ - Forum Windows
1 réponse
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.
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.
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!
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)