Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Textbox verification

Textbox verification

2 réponses
Avatar
Denys
Bonjour tout le monde,

Je fais une petite v=E9rification en cliquant sur le bouton=20
OK de mon Userform. J'appelle donc l'instruction qui suit=20
plac=E9e dans un module. Cependant, Excel me dit qu'il=20
manque un objet rendu =E0 la ligne TextBox8.SelStart =3D 0

Quelqu'un saurait pourquoi? Le code suit:

Sub Verification()
Dim msg
Dim reponse
=20
If Len(TextBox8) <> 9 Then
msg =3D "SIN number must have 9 digits"
dialogstyle =3D vbOKOnly + vbCritical
Title =3D "SIN not valid"
reponse =3D MsgBox(msg, dialogstyle, Title)
TextBox8.SelStart =3D 0
Cancel =3D True
Beep
End If
End Sub

Merci

Denys
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel Pierron
Bonjour Denys;
Commence par remplacer
reponse = MsgBox(msg, dialogstyle, Title)
par
MsgBox msg, dialogstyle, Title
et ça devarit aller mieux.
MP

"Denys" a écrit dans le message de
news:0b5601c3d5f8$1db0fd50$
Bonjour tout le monde,

Je fais une petite vérification en cliquant sur le bouton
OK de mon Userform. J'appelle donc l'instruction qui suit
placée dans un module. Cependant, Excel me dit qu'il
manque un objet rendu à la ligne TextBox8.SelStart = 0

Quelqu'un saurait pourquoi? Le code suit:

Sub Verification()
Dim msg
Dim reponse

If Len(TextBox8) <> 9 Then
msg = "SIN number must have 9 digits"
dialogstyle = vbOKOnly + vbCritical
Title = "SIN not valid"
reponse = MsgBox(msg, dialogstyle, Title)
TextBox8.SelStart = 0
Cancel = True
Beep
End If
End Sub

Merci

Denys
Avatar
Denys
Bonjour Michel,

Merci pour ta réponse.... Cependant, j'ai trouvé mon
problème. Mon instruction ne devait pas se trouver dans un
module, c'est pourquoi Excel cherchait un objet...

Bonne journée

Denys


-----Original Message-----
Bonjour Denys;
Commence par remplacer
reponse = MsgBox(msg, dialogstyle, Title)
par
MsgBox msg, dialogstyle, Title
et ça devarit aller mieux.
MP

"Denys" a écrit dans le message
de

news:0b5601c3d5f8$1db0fd50$
Bonjour tout le monde,

Je fais une petite vérification en cliquant sur le bouton
OK de mon Userform. J'appelle donc l'instruction qui suit
placée dans un module. Cependant, Excel me dit qu'il
manque un objet rendu à la ligne TextBox8.SelStart = 0

Quelqu'un saurait pourquoi? Le code suit:

Sub Verification()
Dim msg
Dim reponse

If Len(TextBox8) <> 9 Then
msg = "SIN number must have 9 digits"
dialogstyle = vbOKOnly + vbCritical
Title = "SIN not valid"
reponse = MsgBox(msg, dialogstyle, Title)
TextBox8.SelStart = 0
Cancel = True
Beep
End If
End Sub

Merci

Denys


.