Microsoft 365 VBA question sur numéro Téléphone

[mld.sebastien]

Bonjour,

Je cherche comment je pourrais faire pour un format de numéro téléphonique dans une textbox.
Dans mon fichier excel mon formulaire je rajoute un numéro de téléphone sauf que actuellement j'utilise juste cela :

Private Sub TxtTelephone_Exit(ByVal Cancel As MSForms.ReturnBoolean)

      Me.TxtTelephone.Value = Format(TxtTelephone.Value, "0#"" ""##"" ""##"" ""##"" ""##")

End Sub

mais le souci c'est que j'ai deux format de téléphone un qui commence en 0x xx xx xx xx et un autre en 8xx xxx xx xx es possible de savoir quand je tape le 0 il ce met au format "0#"" ""##"" ""##"" ""##"" ""##" et quand je tape le 8 c'est ce format qui est pris en compte "8##"" ""###"" ""##""##"

Comment je pourrais faire cela ??
Cordialement.

 

[Dranreb]

Bonjour.
Essayez comme ça :

Private Sub TxtTelephone_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   Dim Tel As Double
   Tel = CDbl(Me.TxtTelephone.Text)
   Me.TxtTelephone.Text = Format(Tel, IIf(Tel >= 8000000000#, "000 0", "00 00 ") & "00 00 00")
   End Sub

 

[patricktoulon]

Bonjour
une autre version

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, Array("00 00 00 00 00", "000 000 00 00")(Abs(Left(TextBox1, 1) = 8)))
End Sub

 

[mld.sebastien]

Bonjour,

Merci @Dranreb sa fonctionne super merci.

 

[mld.sebastien]

J'ai fait ce code la :

Private Sub TxtTelephone_Change()
  Me.TxtTelephone.MaxLength = 10 'Défini la longueur Max de chiffre
End Sub

Private Sub TxtTelephone_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   Dim Tel As Double
   Tel = CDbl(Me.TxtTelephone.Text)
   Me.TxtTelephone.Text = Format(Tel, IIf(Tel >= 8000000000#, "000 0", "00 00 ") & "00 00 00")
   End Sub

Private Sub TxtTelephone_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  'Interdire les lettres dans le TextBox
    If Not (KeyAscii >= 48 And KeyAscii <= 57) Then
    KeyAscii = 0
      'Si erreur alors message
      MsgBox "Uniquement des chiffres, SVP !"
  End If
End Sub

Pensez vous que je peu l’améliorer dans un seul Private SUb ??

 

[patricktoulon]

re
oui c"est possible avec un seul event (le keydown)

 

[mld.sebastien]

Pourrais-tu m'aider je debut et je commence à prendre le coup pour le vba je le comprend seulement et pour la partis pratique j'ai encore du mal et pas l'habitude encore.

 

[patricktoulon]

re
tiens de la lecture
et fait joujou avec les textbox
en ce qui te concerne c'est le phoneboxV2 adaptée aujourd'hui de la V1 3.0
la fonction sert pour un ou plusieurs textbox

 

[mld.sebastien]

Ah super merci je vais regarder cela.

Merci à toi.