Discussion :

[NicolasMO]

Bonjour à tous,

Voici mon petit soucis:
Avant de fermer la userform compétée par l'utilisateur, je veux vérifier qu'une zone de texte a bien été complétée avec soit une chaine de caractères, soit un entier, soit un décimal. Quelqu'un peut-il me donner le code?
Merci.
Nicolas.

[bosk1000]

bonjour,
tu veux juste vérifier s'il la zone de texte n'est pas vide pour fermer
est-ce que :

Code :

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

1
2
 
if TextBox1<>"" then unload userform

te suffit

[NicolasMO]

Non en fait avant de fermer, je veux être sûr que l'utilisateur a rentré un entier et pas une chaine de caractères par exemple si je lui demande un nombre d'étages.

[Krovax]

fBonjour,
Il faudrait se décider non?

soit une chaine de caractères, soit un entier, soit un décimal

Pour la chaine de caractère le code de bosk, pour la décimal is numeric(TextBox1)
Pour l'entier je garderais le <>"" et contrôlerais la saisie dans la textebox

Code :

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

1
2
3
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub

[NicolasMO]

Impec,
Merci pour la solution et bonne journée à vous tous.
Nicolas

[LeForestier]

Bonjour,
Trois exemples !!

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
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim R As Integer
    'Vérifié si numérique
    If Not IsNumeric(TextBox1) Then
        MsgBox "Text1 n'est pas numérique"
        R = True
    End If
    'Vérifier si entier.
    If Int(Val(TextBox2)) <> Val(TextBox2) Or TextBox2 = "" Then
        MsgBox "Uniquement un nombre entier SVP"
        R = True
    End If
    If TextBox3 = "" Then
        MsgBox "Vous devez renseigner text3"
        R = True
    End If
    'Empèche de fermer l'UF si l'une des conditions n'est pas remplie
    Cancel = R
End Sub

A+