Discussion :

[dlight]

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

[jfontaine]

Bonjour,

Pour la partie d'autoriser uniquement la saisie de chiffre

Code :

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

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

[dlight]

Merci à vous jfontaine.

C'est ce que je cherchais.

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

Code :

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

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

[jfontaine]

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

Code :

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

1
2
3
4
Private Sub TextBox7_GotFocus()
TextBox7.SelStart = 0
TextBox7.SelLength = Len(TextBox7.Text)
End Sub

[dlight]

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

[babaothe]

salut

tu te "compliques bien la vie"

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

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
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