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

mld.sebastien · 14 Avril 2023

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 :

VB:

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 · 14 Avril 2023

Bonjour.
Essayez comme ça :

VB:

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

Dranreb · 14 Avril 2023

Bonjour.
Essayez comme ça :

VB:

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 · 14 Avril 2023

Bonjour
une autre version

Code:

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 · 14 Avril 2023

Bonjour,

Merci @Dranreb sa fonctionne super merci.

mld.sebastien · 14 Avril 2023

J'ai fait ce code la :

VB:

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 · 14 Avril 2023

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

mld.sebastien · 14 Avril 2023

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 · 14 Avril 2023

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 · 14 Avril 2023

Ah super merci je vais regarder cela.

Merci à toi.

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

mld.sebastien

XLDnaute Junior

Dranreb

Dranreb

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

mld.sebastien

XLDnaute Junior

mld.sebastien

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

mld.sebastien

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

Pièces jointes

mld.sebastien

XLDnaute Junior

Discussions similaires