Date et combobox

[la croisée des pains]

bonjour le forum,
bonjour à tous
bonjour Robert

me revoilà, après quelques temps d'absence

voilà je construis un fichier pour rentrer mes livraisons de farine.

je suis toujours un amateur en code
🙂 😱
Robert à modifier mon premier fichier comme un chef et je suis en train de construire le 2e usf pour rentrer les livraisons.
1° la date du jour ne se rentre pas d'office
2° je sais pas comment le combobox du produit livré doit etre renseigné.
est-ce par une listbox ou autre?

merci de votre futur aide

excusez moi si je reprend un nouveau fil

laurent

amicalement [file name=Livraison.zip size=30665]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Livraison.zip[/file] :sick:

 

[vekmort]

Bonjour,

Pour le premier problème, mettre la procédure suivante lors de l'ouverture du UserForm1 :

Private Sub UserForm_Initialize()
TextDate = Date
End Sub

Pour l'autre je tente de voir, mais le fichier me fait sans cesse des erreurs... (DrWatson !)

vekmort aledelhistoire

 

[la croisée des pains]

bonjour vekmort
bonjour le forum

ta procédure est déja indiqué
mais cela ne marches pas ?
je ne comprends pas

laurent
@+

 

[vekmort]

Re,

Voici le code pour remplacer l'ensemble de ton ancien code.
A savoir que la procédure que tu avais notée commençait par Userform1_Initialize, alors que comme chaque Userform a son propre code, il faut avoir Userform_Initilize

Voici quelques modifs pour les listes des comboboxes :

Private Sub UserForm_Initialize()
Dim i As Byte

Me.Caption = 'Livraison'
ComboBox1.List = Worksheets('Article').Range(Cells(4, 1), Cells(4, 1).End(xlDown)).Rows
ComboBox2.List = ComboBox1.List

'limite du spinbutton pour la date
SpinButton1.Max = 32000
SpinButton1.Min = 32000

'date du jour
TextDate = Date

For x = 1 To 4
Select Case x
Case 1, 2, 3, 5
Me.Controls('commandbutton' & x).Visible = False
Case 4
Me.Controls('commandbutton' & x).Visible = True
End Select
Next x

Frame1.Visible = False
Frame2.Visible = True
End Sub

Là je m'en vais du taf, je reviens demain...
La nuit porte conseil !
Et lorsque l'on travaille dans la farine, on a parfois les pieds dans la semoule...

vekmort agne

 

[Hervé]

bonjour laurent, verkmort

si je peux me permettre un conseil, dans le code de verkmort, remplace :

ComboBox1.List = Worksheets('Article').Range(Cells(4, 1), Cells(4, 1).End(xlDown)).Rows
ComboBox2.List = ComboBox1.List

par :

With Worksheets('Article')
ComboBox1.List = .Range('a4:a' & .Range('A65536').End(xlUp).Row).Value
ComboBox2.List = .Range('a4:a' & .Range('A65536').End(xlUp).Row).Value
End With


salut 🙂

 

[la croisée des pains]

re bonjour,

merci Hervé et vekmort mais les 2 solutions ne marches pas.

j'ai remodeler mon fichier et la dans mes deux listbox restent vides

la saisie se fait bien mais je ne vois pas les ecritures dans les listes

pour le module livraison ,la date et les combo ne marches pas

merci pour votre aide

laurent
je joins le nouveau fichier,
n'hésitez pas de me dire si il y'a plus simple pour le même résultat

@ + B) [file name=LivraisonV2.zip size=37059]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/LivraisonV2.zip[/file]

 

[Hervé]

re laurent

a vrai dire, je n'avais pas regardé ton fichier lors de ma premiere intervention.

en pièce jointe ton fichier modifié.

lors de l'utilisation de plusieurs userforms, il n'y a qu'une procédure userform_initialize, comme verkmort te la bien dit, tu n'avais pas modifié ceci.

de plus, je te conseille de faire précéder les noms de tes controles de Me. ceci evitera au code de se perdre.

me.combobox1....
me.textbox1......

j'ai simplement modifié l'initialize du usf 1 plus 2 ou 3 autres trucs.

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

 

[la croisée des pains]

re bonjour

merci hervé

de ton aide et tous ceux qui m'aideront plus tard

après tant énervement je comprends mieux comment cela marches

merci et en core merci

bonne soirée

laurent