Mettre une Combobox au format "000"

[papapaul]

🙂 Salut Forum, ma question est dans l'intitulé
et dans le fichier joint.

C'est pas grave mais c'est pour faire mieux.
Ca doit pourtant pas être si compliqué.
J'ai essayé un tas de trucs mais ca colle jamais😕
Ca m'agace😡

Merci d'avance et bonne journée.😉

 

[Cousinhub]

Re : Mettre une Combobox au format "000"

Bonjour,
essaie avec ceci :

Private Sub ComboBox1_Change()
Me.ComboBox1 = Format(Me.ComboBox1, "000")
End Sub

 

[papapaul]

Re : Mettre une Combobox au format "000"

🙂 Salut Forum, bhbh, merci à toi
C'est pas encore ça, avec ton idée
l'item combobox se met bien en "000" mais du coup le bouton
"Afficher Fiche" ne trouve plus rien. 😡
Je pense que c'est la "Collection" qu'il faut mettre
en "000" mais j'y arrive pas😛.

Je continue à chercher, 🙄

 

[Cousinhub]

Re : Mettre une Combobox au format "000"

Re-,
modifie ton code comme ceci :

...
For Each cel In Range("a7:a" & Range("a65536").End(xlUp).Row)
'ComboBox1 = cel.Value
'Pour afficher Nom et Prénom
If Val(ComboBox1) = cel Then cel.Select: Exit For
Next cel
On Error Resume Next
...

 

[Spitnolan08]

Re : Mettre une Combobox au format "000"

Bonjour papapaul, bhbh,

C'est normal car tu as dans ton combo une chaine de caractères "001" par exemple et dans ta colonne A un chiffre 1 (par ex) que tu transformes en chaine de caractères qui donne : "1" et non pas "001".

Pour que ça fonctionne il faut que tu fasses l'inverse en transformant ta combo en numérique :

'Pour afficher Nom et Prénom
If cint(ComboBox1.value) = cel.value Then cel.Select

Cordialement

Edit : désolé; pas vu bhbh...
Edit2 : Salut Dull🙂

 

[Dull]

Re : Mettre une Combobox au format "000"

Salut papapaul🙂, bh²🙂; le Forum

Ton Fichier modifié

Dans UserForm_Initialize()

noms.Add Format(Range("a" & n), "000"), CStr(Format(Range("a" & n), "000"))

et dans CommandButton1_Click()

If ComboBox1.Text = CStr(Format(cel, "000")) Then cel.Select

EDITION: Salut Spitnolan 🙂

t'a surement raison Spit mais tout comme papapaul j'suisunadeptedesusinesàcamenbert

Bonne Journée

 

[papapaul]

Re : Mettre une Combobox au format "000"

🙂 Salut Forum, bh², Spit et Dull, vous êtes formidables !$!$!$!$


Ca j'avais trouvé, vous aussi 😀
If ComboBox1.Text = CStr(Format(cel, "000")) Then cel.Select

Mais pour arriver complètement à ce que je veux, comme je pensais,
fallait bien aussi faire quelque chose dans la "Collection"
C'est Dull qui a la solution complète, Merci ...

Dim noms As Collection
Set noms = New Collection
'Définit une variable n dans la colonne A
'à partir de la ligne 7
For n = 7 To ActiveSheet.Range("a65536").End(xlUp).Row
On Error Resume Next
noms.Add Format(Range("a" & n), "000"), CStr(Format(Range("a" & n), "000"))
On Error GoTo 0

Encore Merci à tous, pas si simple que ça 😛

Mon camembert grossit à vue d'oeil 😀 Miam Miam

Précision : Je n'ai masqué aucune Feuille et mis aucune protection
ni MP, en vrai ce sera bien sur le cas.

Lien supprimé