forcer un nombre dans un textbox entre 0 et 360

Bonjour à tous.

J'ai deux textbox dans lesquels les utilisateurs devront inscrire un nombre entre 0 et 360. Ce nombre sera sans décimale.

Est-il possible de forcer l'inscription d'un nombre (et rien d'autre) dans l'intervale de 0 à 360 ?


Merci à l'avance

Bonjour,

Pour la partie d'autoriser uniquement la saisie de chiffre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)   Select Case KeyAscii Case 48 To 57, 8   Case Else KeyAscii = 0 End Select   If Len(TextBox1.Text) >= 3 Then KeyAscii = 0   End Sub

---

Merci à vous jfontaine.

C'est ce que je cherchais.

Pour ce qui est d'un nombre entre 0 et 360, j'ai ajouté:

Code:

---

1 2 3 4 5 6 7

Private Sub TextBox7_Change() If TextBox7 > 360 Then MsgBox "Le nombre de jours doit être entre 0 et 360.", vbOKOnly TextBox7.SetFocus End If   End Sub

---

Par contre, j'aimerais que le nombre soit en bleu afin de que lors de la nouvelle saisie le nouveau nombre remplace l'ancien nombre OU que l'ancien soit supprimé.
quelqu'un a une idée ?

Merci à l'avance


Merci

Voici commnt selectionner en bleu le texte de la textbox des quel prend le focus

Code:

---

1 2 3 4

Private Sub TextBox7_GotFocus() TextBox7.SelStart = 0 TextBox7.SelLength = Len(TextBox7.Text) End Sub

---

Merci à vous jfontaine pour votre réponse.

J'ai appliqué ce code mais ç ne fonctionne que s'il y a un nombre d'inscrit dans le textbox7 au moment de prendre le focus dans ce textbox.

Normalement, ce textbox sera vide jusqu'au moment d'inscrire le nombre de 0 à 360. Si j'inscris un nombre supérieur à 360, j'ai mon message puis le curseur se trouve à la fin du nombre au lieu d'être en bleu.

Merci à l'avance

salut

tu te "compliques bien la vie"

essaye ceci (pour une textbox textbox2 mise sur un userform), par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub TextBox2_Change() Static etait As String If Not TextBox2.Text Like String(Len(TextBox2.Text), "#") Or Val(TextBox2.Text) > 360 Then Beep   'les 2 lignes suivantes ne sont là que pour ton "bleu", bien inutile à mon sens 'à supprimer si tu changes d'avis à nce sujet TextBox2.HideSelection = False TextBox2.SelStart = 0: TextBox2.SelLength = Len(TextBox2.Text)   DoEvents MsgBox "ne saisir que des nombres entre 0 et 360, SVP" '<<<<=== si tu souhaites ce message TextBox2.Text = etait   Else etait = TextBox2.Text End If End Sub   Private Sub TextBox2_Enter() TextBox2.Text = "" End Sub

---

N'oublie pas de remplacer tous les textbox2 par le nom de ta textbox
et lis mes commentaires ;)