Format combobox numéro de téléphone

Z

Zon

XLDnaute Impliqué

• 12 Janvier 2011

• #2

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+++

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 12 Janvier 2011

• #3

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

Bonjour,

Peut-être

Code:

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

Cordialement.

PMO
Patrick Morange

 

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 12 Janvier 2011

• #4

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

 

Pièces jointes

• test4.xls

  43.5 KB · Affichages: 66
• test4.xls

  43.5 KB · Affichages: 71
• test4.xls

  43.5 KB · Affichages: 75

Vote positif 0 Vote négatif

Z

Zon

XLDnaute Impliqué

• 12 Janvier 2011

• #5

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+++

 

Pièces jointes

• test4.xls

  48.5 KB · Affichages: 71
• test4.xls

  48.5 KB · Affichages: 80
• test4.xls

  48.5 KB · Affichages: 80

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 13 Janvier 2011

• #6

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

Bonsoir,
Peut-être

Code:

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

 

Vote positif 0 Vote négatif