Discussion :

[BUDGETS]

Bonjour à toutes et à tous,

Dans le fichier joint, page accueil, clics sur Saisie des menus, formulaire Saisie des menus, Je remplis le textes boxes et les combo box (Menus midi retraite, 02/01/2017, Légumes, références (LMR09), 5,00, Janvier 2017, 1) puis je clique sur Ajouter le produit au menu. La feuille menus ne se remplit que partiellement (rien sur les références qui ne sont pas pris en compte, à savoir LMR09, Pâtes au beurre, Lundi à vendredi midi, 5 cuillères par repas, Menus midi retraite) et la liste boxe reste malheureusement vide.
D'avance merci à celle(s), celui (ceux) qui pourra m'apporter son aide à un néophyte peu enclin aux déductions.
http://www.cjoint.com/c/GEvofHrV71g
Inutile de m'orienter vers un autre site comme cela s'est déjà produit, car il n'a jamais répondu ! Les néophytes peu enclins à la déduction sont méprisés sur tous les sites !

[Marc-L]

Bonjour,

cela n'a rien à voir avec un statut de néophyte mais juste une question de respecter les règles du forum ‼
Donc commencer par les lire …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Jean-Philippe André]

Inutile de m'orienter vers un autre site comme cela s'est déjà produit, car il n'a jamais répondu ! Les néophytes peu enclins à la déduction sont méprisés sur tous les sites !

Bonjour,

nous ne meprisons personne

La vocation du forum est d'apprendre aux gens a pecher, pas de pecher pour eux.

Dis nous quelles ont ete tes recherches jusqu'a present, et sur quel probleme tu butes actuellement.

[mortad123]

Bonjour,
le code doit être améliorer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub cmdAjouterLeProduitAuMenu_Click()
'Ajoute un nouveau produit au menu

Dim LngIndex As Long 'Index du combo box
Dim strRéférences As String 'Références
Dim i As Integer
Dim m As Integer
    'Mémoriser la référence
    strRéférences = Me.cboRéférences.Text
    'Ajouter le produit
    LngIndex = Me.cboRéférences.ListIndex
    
        With Sheets("Menus")
            With .Range("A" & .Rows.Count).End(xlUp).Offset(1)
            
            .Offset(0, 0).Value = Me.txtboxDateDuMenu.Text
            .Offset(0, 1).Value = strRéférences
            .Offset(0, 2).Value = cboRéférences.List(LngIndex, 1)
            .Offset(0, 3).Value = cboRéférences.List(LngIndex, 2)
            .Offset(0, 4).Value = cboRéférences.List(LngIndex, 3)
            .Offset(0, 5).Value = cboRéférences.List(LngIndex, 4)
            .Offset(0, 6).Value = Me.txtQuantitéDuProduit.Text
            .Offset(0, 25).Value = Me.cboPériodeConcernée.Text
            .Offset(0, 26).Value = Me.cboNatureMenu.Text
            .Offset(0, 27).Value = Me.textNuméroDuMenu.Text
            End With
        End With
'Réinitialiser les combo box des produits du menu
Call InitialiseLescboDuProduit
'Sélectionner la référence
Me.cboRéférences.Text = strRéférences

End Sub