Format quatre chiffres dans ComboBox

Bonsoir à toutes et tous,

je n'arrive pas à trouver le format correct pour afficher 4 chiffres dans mon ComboBox alors qu'il s'affichent correctement sur la base de données

Dans la B.D. = 0001 dans le ComboBox = 1

merci de m'aider encore une fois

Amicalement

Pierrot

Bonjour,

dans l'Initialize puisque c'est là que tu le remplis :

    With Me.ComboBox1
        For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
            .AddItem Format(Ws.Range("A" & J), "0000")
        Next J
    End With

eric

Bonsoir, eriiic

Un tout grand merci, de plus ça marche

Sur le même UserForm, je souhaiterais remplacer le TexteBox1

par le ComboBox4 qui puise sa source dans la feuille Clients colonne C, je n'arrive pas à affecter cette colonne C à mon ComboBox4

Merci de bien vouloir conclure ce petit problème

Amicalement

Pierrot

Au même endroit :

ComboBox4.List = Sheets("Clients").Range("C2:C" & Cells(Application.Rows.Count, 3).End(xlUp).Row).Value

PS: tu pourrais désactiver workbook_open() lorsque tu déposes un fichier stp ?

Je n'aime pas que qq chose se lance sans que j'ai regardé.

Bonsoir eriiic

un grand merci pour ton aide, je suis désolé pour l'ouverture auto du fichier, je n'avais pas pensé à cela,merci pour tout

et bonne soirée

Amicalement

Pierrot

Une petite erreur d'inattention corrigée :

    With Sheets("Clients")
        ComboBox4.List = .Range("C2:C" & .Cells(Application.Rows.Count, 3).End(xlUp).Row).Value
    End With

Merci eriiic,

mais le programme fonctionnait sans cette erreur (rectifiée)

merci beaucoup pour ton aide

Amitiés

Pierrot

Jusqu'au jour où tu aurais lancer la macro avec une autre feuille active que la bonne...

Merci Eriiiiiic

Pierrot

Rechercher des sujets similaires à "format quatre chiffres combobox"