Formulaire : données valables pour tous l'userform

Bonjour,

J'ai crée un formulaire et je voudrais que certaines valeurs soient valable pour tous les boutons de commandes. Pour cela j'ai mis ces valeurs dans Private Sub UserForm1_Initialize() et dans la feuil1 mais cela ne fonctionne pas.

Bonjour

La procédure UserForm1_Initialize() n'existe pas en tant que procédure événementielle, il faut utiliser UserForm_Initialize()

Je souhaite utiliser le nombre généré pour plusieurs boutons de commande. Du coup je pensais quand le générant dans userform_initialize cela fonctionnerait.

Private Sub UserForm_Initialize()
Dim nombre As Integer
Randomize
nombre = Int(10 * Rnd) + 1
End Sub

Private Sub CommandButton4_Click()
MsgBox nombre
End Sub

 

Bonjour

Cela fonctionne en déclarant la variable nombre en Public pour le module

Dim nombre As Integer

Private Sub UserForm_Initialize()
[barrer]'Dim nombre As Integer[/barrer]
Randomize
nombre = Int(10 * Rnd) + 1
End Sub

Private Sub CommandButton4_Click()
MsgBox nombre
End Sub

merci