Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre Fauconnier
Salut
Il faut initialiser RND avec Randomize, par exemple Randomize Now()
HS : Es-tu toujours intéressé(e) par un exemple d'objet et de sous-objet ( modules de classe )
-- Cela convient-il? ---- Pierre Fauconnier "C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..." (remplacer NOSPAM par pfi pour me répondre. Merci)
---
Emcy wrote:
Pourquoi cette macro donne toujours "4" comme résultat ? (j'ai ouvert/fermé mon classeur au moin une quinzaine de fois)
Private Sub Workbook_Open()
Dim ValeurAléatoire As Integer
ValeurAléatoire = Int((5 * Rnd) + 1) 'génère un nombre compris entre 1 et 5 Cells(1, 1).Value = ValeurAléatoire
End Sub
Salut
Il faut initialiser RND avec Randomize, par exemple
Randomize Now()
HS : Es-tu toujours intéressé(e) par un exemple d'objet et de sous-objet (
modules de classe )
--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)
---
Emcy wrote:
Pourquoi cette macro donne toujours "4" comme résultat ?
(j'ai ouvert/fermé mon classeur au moin une quinzaine de
fois)
Private Sub Workbook_Open()
Dim ValeurAléatoire As Integer
ValeurAléatoire = Int((5 * Rnd) + 1) 'génère un nombre
compris entre 1 et 5
Cells(1, 1).Value = ValeurAléatoire
Il faut initialiser RND avec Randomize, par exemple Randomize Now()
HS : Es-tu toujours intéressé(e) par un exemple d'objet et de sous-objet ( modules de classe )
-- Cela convient-il? ---- Pierre Fauconnier "C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..." (remplacer NOSPAM par pfi pour me répondre. Merci)
---
Emcy wrote:
Pourquoi cette macro donne toujours "4" comme résultat ? (j'ai ouvert/fermé mon classeur au moin une quinzaine de fois)
Private Sub Workbook_Open()
Dim ValeurAléatoire As Integer
ValeurAléatoire = Int((5 * Rnd) + 1) 'génère un nombre compris entre 1 et 5 Cells(1, 1).Value = ValeurAléatoire
End Sub
Emcy
Salut,
je suis toujours intéressé par un exemple de module de classe
ce qui est bizarre c'est que si je met mon bout de code dans un module, la valeur change bien
Merci de ton aide
-----Message d'origine----- Salut
Il faut initialandomize Now()iser RND avec Randomize, par exemple
R
HS : Es-tu toujours intéressé(e) par un exemple d'objet et de sous-objet (
modules de classe )
-- Cela convient-il? ---- Pierre Fauconnier "C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)
---
Emcy wrote:
Pourquoi cette macro donne toujours "4" comme résultat ?
(j'ai ouvert/fermé mon classeur au moin une quinzaine de
fois)
Private Sub Workbook_Open()
Dim ValeurAléatoire As Integer
ValeurAléatoire = Int((5 * Rnd) + 1) 'génère un nombre compris entre 1 et 5 Cells(1, 1).Value = ValeurAléatoire
End Sub
.
Salut,
je suis toujours intéressé par un exemple de module de
classe
ce qui est bizarre c'est que si je met mon bout de code
dans un module, la valeur change bien
Merci de ton aide
-----Message d'origine-----
Salut
Il faut initialandomize Now()iser RND avec Randomize,
par exemple
R
HS : Es-tu toujours intéressé(e) par un exemple d'objet
et de sous-objet (
modules de classe )
--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le
temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)
---
Emcy wrote:
Pourquoi cette macro donne toujours "4" comme
résultat ?
(j'ai ouvert/fermé mon classeur au moin une quinzaine
de
fois)
Private Sub Workbook_Open()
Dim ValeurAléatoire As Integer
ValeurAléatoire = Int((5 * Rnd) + 1) 'génère un nombre
compris entre 1 et 5
Cells(1, 1).Value = ValeurAléatoire