Discussion :

[LANGAZOU]

Bonjour,

Je trouve un problème d'affichage des valeurs qui commencent par zéro dans le combobox. par exemple 0045688215 s'affiche uniquement 45688215.J'ai ajouté sur le userform initialize :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.ChoixSociete.Value = Format(Me.ChoixSociete.Value, "0000000000")

mais ça n'a rien changé.

ci dessous le code complet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set f = Sheets("Feuil2")
  choix1 = Application.Transpose(f.Range("B3:B" & f.[a65000].End(xlUp).Row).Value)
  Me.ChoixSociete.List = choix1
  ligneEnreg = f.[a65000].End(xlUp).Row + 1
  Me.ChoixSociete.SetFocus
  Me.ChoixSociete.Value = Format(Me.ChoixSociete.Value, "0000000000")

Merci pour votre aide

[mjpmjp]

bonjour,
la valeur du combobox est issue de sa liste ,
il faut peu être modifier la liste....

@+JP

[LANGAZOU]

Bonjour,

une façon très simple c'est de changer le format de la colonne source en format texte.

Merci beaucoup.