COMBOBOX ET LE ZERO

Hervé

XLDnaute Barbatruc

• 10 Avril 2006

• #2

bonjour ghislain

dans ta sub couleur, essayes comme ceci :

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

salut

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 10 Avril 2006

• #3

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]

 

Pièces jointes

• format0_20060410144618.zip

  17.4 KB · Affichages: 10

Vote positif 0 Vote négatif

G

GHISLAIN

XLDnaute Impliqué

• 10 Avril 2006

• #4

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 10 Avril 2006

• #5

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

 

Vote positif 0 Vote négatif

G

GHISLAIN

XLDnaute Impliqué

• 10 Avril 2006

• #6

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]

 

Pièces jointes

• format0_20060410163341.zip

  27.7 KB · Affichages: 14

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 10 Avril 2006

• #7

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

 

Vote positif 0 Vote négatif