Discussion :

[oscar.cesar]

bonjour
j'ouvre un userform par la commande
load userform1
userform1.show

ce userform contient des textbox que je souhaite initialisée en leur donnant une valeur par defaut comme cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub UserForm_initialize()
textbox10.value=1 (A)
end sub
 
pour ce meme textbox, je controle le contenu par 
 
Private Sub TextBox10_Change()
 
TextBox10.Value = 1
If TextBox10.Value = "" Or TextBox10.Value = 0 Or TextBox10.Value > 200 Or TextBox10.Value > TextBox11.Value Then
MsgBox ("Attention la valeur mini de la somme des combinaisons est fausse")
TextBox10.Value = 1 'valeur par defaut
End If
 
End Sub

hors à l'execution du userform, j'ai le message comme quoi "Attention la valeur mini de la somme des combinaisons est fausse" alors que j'ai initialise le textbox10à l'ouverture du userform1.


la je comprends pas ?

[patbou]

bonjour,
tu initialise ton txbox 10 à 1
puis tu lui affecte 9 lors d un evenement change => txbox 10 à l initialisation = 9.

[Invité]

Bonjour Oscar.Cesar,

Le contenu des "TextBox" est du texte.

Avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If TextBox10.Value = "" Or Val(TextBox10.Value) = 0 Or Val(TextBox10.Value) > 200 Or Val(TextBox10.Value) > TextBox11.Value Then
MsgBox ("Attention la valeur mini de la somme des combinaisons est fausse")
TextBox10.Value = 9
End if

Cela devrait fonctionner.

[oscar.cesar]

bonsoir
GROSSIERE ERREUR de ma part dans le post initial , c'est PAS 9 MAIS 1

voila c'est corrigé.
desole