Format combobox numéro de téléphone

[pierrof]

Bonjour

Voila pour saisir un numéro de téléphone dans une textbox jutilise ce code:
Dim Texte As String
Texte = TextBox4.Text
Select Case Len(Texte)
Case 2, 5, 8, 11
Texte = Texte & "."
End Select
TextBox4.Text = Texte

quel code dois-je utiliser pour une combobox?
Merci d'avance de votre aide

 

[Zon]

Re : Format combobox numéro de téléphone

Salut,

tu peux utilliser le même code dans l'évènement change de ta combo

textbox4 tu le remplaces par le nom de ta combo.ex: combobox1.

Mais je pense que tu veux autre chose peut être ? comment tu alimentes ta combo ?

un exemple si ma réponse convient pas serait le bienvenu.

A+++

 

[PMO2]

Re : Format combobox numéro de téléphone

Bonjour,

Peut-être

Private Sub ComboBox1_Change()
ComboBox1 = Format(ComboBox1, "0#"" ""##"" ""##"" ""##"" ""##")
End Sub

Cordialement.

PMO
Patrick Morange

 

[pierrof]

Re : Format combobox numéro de téléphone

Bonsoir Zon et PM02
J'ai essayé vos codes mais ils ne fonctionnent pas comme je le veux.
Je vous laisse un fichier exemple pour plus de clarté

Merci d'avance

 

[Zon]

Re : Format combobox numéro de téléphone

Re,

d'aprés ce que je comprends regardes en PJ,

J'ai mis un evenement keydown qui me satisfait à moitiè mais pour l'instant je trouve pas mieux, afin de pouvoir effacer la saisie d'un caractere.


A+++

 

[kjin]

Re : Format combobox numéro de téléphone

Bonsoir,
Peut-être

Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
ComboBox1.MaxLength = 14
Select Case Len(ComboBox1)
    Case 2, 5, 8, 11
    ComboBox1 = ComboBox1 & Chr(32)
End Select

A+
kjin