VBA : Valeur d"une TextBox comprise entre deux nombres

[Mgn_91]

Bonjour,

J'ai construit un formulaire comprenant des textbox et je souhaite limiter la saisie d'une TextBox à des données numériques comprises entre 0 et 100, comment dois-je procéder ?

Merci pour votre aide.

 

[laetitia90]

Re : VBA : Valeur d"une TextBox comprise entre deux nombres

bonjour Mgn_91
ben !! a la place de textbox mettre combobox de 1 a 100.... plus de souci de faute frappe valeur pas conforme ect...

 

[laetitia90]

Re : VBA : Valeur d"une TextBox comprise entre deux nombres

re un exemple quand meme

For i = 1 To 100
ComboBox1.AddItem i
Next i

 

[Mgn_91]

Re : VBA : Valeur d"une TextBox comprise entre deux nombres

Merci pour cet info.

J'ai finalement adapté votre code à mon userform ainsi :

Private Sub ComboBox1_Change()
Dim Valeur_A

Valeur_A = Me.ComboBox1.Value
If Valeur_A > 100 Or Valeur_A < 0 Then
MsgBox "Veuillez entrer une valeur comprise entre 0 et 100"
Exit Sub

Else
For i = 1 To 100
ComboBox1.AddItem i
Next i
End If

End Sub

 

[laetitia90]

Re : VBA : Valeur d"une TextBox comprise entre deux nombres

re,
tu as pas besoin d'ecrire tout cela
dans propriete de la combo
tu changes le style tu passe en style en 2-fmStyleDropDownList


la boucle dans initialise ou activate

Private Sub UserForm_initialize()
 Dim i As Byte
 For i = 1 To 100: ComboBox1.AddItem i: Next i
End Sub

 

[Mgn_91]

Re : VBA : Valeur d"une TextBox comprise entre deux nombres

Merci beaucoup pour cette astuce !