COMBOBOX ET LE ZERO

[GHISLAIN]

bonjour a tous

voila , mon souci , lorsque je selectionne une valeur dans m'a listbox elle est renvoyé dans un textbox mais cette valeur si elle commence par 0 le 0 ne s'affiche pas

effectivement , si je prend 00261 dans m'a textbox s'affiche 261 étant donné que c'est sur valeur qu est effectuée une recherche celle ci n est pas trouvé


je vous remercie de l'aide apporté a mon fil

AMICALEMENT

GHISLAIN
PS ci joint un fichier exemple [file name=format0.zip size=17022]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/format0.zip[/file]

 

[Hervé]

bonjour ghislain

dans ta sub couleur, essayes comme ceci :

If cel.Text = Format(TextBox1.Value, '0000') Then

salut

 

[Hervé]

re ghislain

je me suis permis de 'revoir' tes codes, surtout l'alimentation de la combobox1 (inutile d'avoir 65500 lignes vierges)

de plus si tes feuilles bleau,blanc et rouge ne te permettent que de savoir qu'elle userform renvoyer, on doit pouvoir s'en passer.

salut [file name=format0_20060410144618.zip size=17794]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/format0_20060410144618.zip[/file]

 

[GHISLAIN]

Bonjour hervé
j'espere que tu vas bien et te remercie encore une fois de t'etre penché sur mon probleme

concernant ce projet j'avais mis sur un autre fil une autre question , concernant la recherche

sur ce code la recherche s'effectue sur toute les feuilles du classeurs , je souhaiterai que la recherche s'effectue uniquement sur les trois feuilles
je n arrive pas a spécifié les feuilles dans les quelles dois s effectuer la recherche

si tu as le temps de m'indiquer comment modifier le code

merci mille fois par avance

AMICALEMENT

GHISLAIN

 

[Hervé]

re

merci, tout va bien 🙂

dans ton code remplace : For x = 2 To Sheets.Count

par : For Each x In Array('bleu', 'blanc', 'rouge')

et change le type de la déclaration du x :

remplace : dim x as byte

par : dim x

salut

 

[GHISLAIN]

re hervé

je viens de modifier les lignes , sur mon exemple ça fonctionne mais dés que je le rentre sur mon projet final ça ne marche plus et je trouve aps pourquoi

si je peux sollicité un peu de ta patience et me dire ou ça cloche je t en remercie d'avance

je t'ai mis en fichier joint la façon dont va etre integré dans mon projet le module



AMICALEMENT

GHISLAIN [file name=format0_20060410163341.zip size=28356]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/format0_20060410163341.zip[/file]

 

[Hervé]

re

ca a changé depuis le début de ce post, tes codes sont maintenant codé sur 5 caractères au lieu de 4, donc :

cel.Text = Format(TextBox1.Value, '00000')

salut

Message édité par: hervé, à: 11/04/2006 09:47