Microsoft 365 Forcer la saisie d'un numéro de téléphone dans une text box Excel vba

[LandryK7]

Bonjour à tous.
Je suis novice sur Excel vba et je souhaiterai que ma TextBox renvoi un message d'erreur si l'utilisateur ne tape pas le numéro de téléphone au bon format: 24177000000. Cordialement,
LandryK7

 

[patricktoulon]

bonjour
c'est quoi le format ?

 

[LandryK7]

bonjour
c'est quoi le format ?

le format numero de téléphone tel que je veux l'exploter dans mon fichier 24177000000

 

[patricktoulon]

ben alors il n'y a pas de format c'est un nombre c'est tout
au pire prévois un maxlength
pour cela tu n'a besoins de personne c'est dans les propriété du textbox en mode vbe

 

[LandryK7]

le problème avec cette fonction( je crois) c'est que l'utilisateur peut taper moins de 11 chiffre et faire un enregistrement qui me posera des problèmes par la suite. Ce que je veux c'est qu'il ne puisse pas saisir autre chose que 11 chiffres

 

[patricktoulon]

re
BEN dans l’événement exit du textbox
with textbox1
if .value<>"" and len(.value)<.maxlength then cancel=true
end with
c'est pas plus compliqué que ça
soit il vide ce qui l'a commencer a taper pour pouvoir sortir soit il tape le maxlength
sinon tu envoie tes utilisateurs traire les chevres 😛
😉

 

[LandryK7]

re
BEN dans l’événement exit du textbox
with textbox1
if .value<>"" and len(.value)<.maxlength then cancel=true
end with
c'est pas plus compliqué que ça
soit il vide ce qui l'a commencer a taper pour pouvoir sortir soit il tape le maxlength
sinon tu envoie tes utilisateurs traire les chevres 😛
😉

Merci Patrick,
Le code fonctionne comme il faut. C'est ce que je cherchais. Mais je pensais qu'en y ajoutant une seule ligne de code je pourrai faire afficher un message d'erreur. Mais ça ne marche pas
ci apres mon ajout qui ne marche pas.
En fait il donne le message d'erreur systématiquement quand je passe dans ma prochaine textbox

Private Sub Txt_Phone_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Txt_Phone
If .Value <> "" And Len(.Value) < .MaxLength Then Cancel = True
MsgBox "Veuillez saisir un numero de téléphone valide"

End With

End Sub

 

[patricktoulon]

re
bonsoir
Private Sub Txt_Phone_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Txt_Phone
If .Value <> "" And Len(.Value) < .MaxLength Then
Cancel = True
MsgBox "Veuillez saisir un numero de téléphone valide"
end if
End With

End Sub

 

[LandryK7]

re
bonsoir
Private Sub Txt_Phone_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Txt_Phone
If .Value <> "" And Len(.Value) < .MaxLength Then
Cancel = True
MsgBox "Veuillez saisir un numero de téléphone valide"
end if
End With

End Sub

Eureka!!!!
C'est ma solution
Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii