Adaption de proc

Florian wrote:

Bonjour

Je souhaite pouvoir envoyer dans un label "Lbl_chiffres"
après Aléatoire, le nombre jusqu'à...
ex : jusqu'à 50 doit envoyer un nombre aléatoire jusqu'à
50 dans Lbl_chiffres

Bonjour,

En reprenant ton exemple :

Private Sub Cbx_chiffres_Change()
lig = Cbx_chiffres.ListIndex
If Not (lig) Then
Lbl_chiffres = Int(Cbx_chiffres.List(lig, 1) * Rnd) + 1
End If
End Sub

Private Sub UserForm_Initialize()
Cbx_chiffres.ColumnCount = 2
Cbx_chiffres.ColumnWidths = ";0"

Cbx_chiffres.AddItem "Jusqu'à : Dix"
Cbx_chiffres.List(0, 1) = 10
Cbx_chiffres.AddItem "Jusqu'à : Cinquante"
Cbx_chiffres.List(1, 1) = 50
Cbx_chiffres.AddItem "Jusqu'à : Cent"
Cbx_chiffres.List(2, 1) = 100
Cbx_chiffres.AddItem "Jusqu'à : Mille"
Cbx_chiffres.List(3, 1) = 1000
Cbx_chiffres.AddItem "Jusqu'à : Dix milles"
Cbx_chiffres.List(4, 1) = 10000
Cbx_chiffres.AddItem "Jusqu'à : Un million"
Cbx_chiffres.List(5, 1) = 10 ^ 6
Cbx_chiffres.AddItem "Jusqu'à : Cent millions"
Cbx_chiffres.List(6, 1) = 10 ^ 8
Cbx_chiffres.AddItem "Jusqu'à : Un milliard"
Cbx_chiffres.List(7, 1) = 10 ^ 9
Cbx_chiffres.Text = Cbx_chiffres.List(3)
End Sub


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...

Bonjour Raymond, et merci beaucoup.
En fait j'essaie de lancer cette proc avec un bouton, et
là ça plante, et me dit "Utilisation incorrect de Null"
Merci pour ton aide

Flo riant

-----Message d'origine-----
Florian wrote:

Bonjour

Je souhaite pouvoir envoyer dans un label "Lbl_chiffres"
après Aléatoire, le nombre jusqu'à...
ex : jusqu'à 50 doit envoyer un nombre aléatoire jusqu'à
50 dans Lbl_chiffres

Bonjour,

En reprenant ton exemple :

Private Sub Cbx_chiffres_Change()
lig = Cbx_chiffres.ListIndex
If Not (lig) Then
Lbl_chiffres = Int(Cbx_chiffres.List(lig, 1) *
Rnd) + 1

End If
End Sub

Private Sub UserForm_Initialize()
Cbx_chiffres.ColumnCount = 2
Cbx_chiffres.ColumnWidths = ";0"

Cbx_chiffres.AddItem "Jusqu'à : Dix"
Cbx_chiffres.List(0, 1) = 10
Cbx_chiffres.AddItem "Jusqu'à : Cinquante"
Cbx_chiffres.List(1, 1) = 50
Cbx_chiffres.AddItem "Jusqu'à : Cent"
Cbx_chiffres.List(2, 1) = 100
Cbx_chiffres.AddItem "Jusqu'à : Mille"
Cbx_chiffres.List(3, 1) = 1000
Cbx_chiffres.AddItem "Jusqu'à : Dix milles"
Cbx_chiffres.List(4, 1) = 10000
Cbx_chiffres.AddItem "Jusqu'à : Un million"
Cbx_chiffres.List(5, 1) = 10 ^ 6
Cbx_chiffres.AddItem "Jusqu'à : Cent millions"
Cbx_chiffres.List(6, 1) = 10 ^ 8
Cbx_chiffres.AddItem "Jusqu'à : Un milliard"
Cbx_chiffres.List(7, 1) = 10 ^ 9
Cbx_chiffres.Text = Cbx_chiffres.List(3)
End Sub


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour
répondre...

.

Florian wrote:

Bonjour Raymond, et merci beaucoup.
En fait j'essaie de lancer cette proc avec un bouton, et
là ça plante, et me dit "Utilisation incorrect de Null"
Merci pour ton aide

Flo riant

J'ai tenté de reproduire ton erreur, sans succès ...

Il faudrait que tu m'en dises plus.

Tout ce que je peux t'indiquer est :
- utilise un bouton placé sur le formulaire et utilise l'évennement 'clic' (Private Sub CommandButton1_Click() )
- insère dans cet élément le code initialement placé dans l'évennement 'change' de la combobox (efface ce code là)


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...

C'est bon, tout baigne, c'est parfait.
Encore merci.
Bonne journée
Flo riant

-----Message d'origine-----
Florian wrote:

Bonjour Raymond, et merci beaucoup.
En fait j'essaie de lancer cette proc avec un bouton, et
là ça plante, et me dit "Utilisation incorrect de Null"
Merci pour ton aide

Flo riant

J'ai tenté de reproduire ton erreur, sans succès ...

Il faudrait que tu m'en dises plus.

Tout ce que je peux t'indiquer est :
- utilise un bouton placé sur le formulaire et utilise
l'évennement 'clic' (Private Sub CommandButton1_Click() )

- insère dans cet élément le code initialement placé
dans l'évennement 'change' de la combobox (efface ce code

là)

--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour
répondre...

.