Gestions de Commandes Journalieres

Bearn 64

XLDnaute Occasionnel
[Resolu] Gestions de Commandes Journalieres

Bonsoir.

Sous Excel 2007

Nouveau avec Projet ambitieux trop peu être pour moi, mais bon je fonce.(Débutant en USERFORM VBA)

Je voudrai gérer mes commandes journalières avec un USERFORM.
Pouvoir alimenter une feuille Commandes (Feuil1) a partir de donnée contenus dans Clients (Feuil2) et
produits (Feuil3), plus des infos saisies au moment de la prise de commande

Un USERFORM FrmClients qui gère la Feuil Clients.
Un USERFORM FrmProduits qui gère la Feuil Produits.
Mon USERFORM FrmCommandes Gestions des Commandes

Ce lien n'existe plus

La Frame Commandes me permet de gérer les Commandes déjà effectuées.

Ce que n'arrive pas a faire :

1) Tous les jours je vide ma Feuille Commandes erreur quand je lance mon USERFORM.
car rechercher des enregistrements

2) Frame Clients deux parties
---Gestion des Clients me permet d'ajouter des Clients. OK

---Nom de Clients ComboBox devant afficher les Clients présent dans la Feuille Clients.

Idem pour Frame Produits

3) Apres saisie du Clients et Produits qui alimentent La Frame Commande avec les infos contenus dans la Feuille Clients et Produits.
Pour après compléter les infos supplémentaires

Merci de vos conseils éclairés et critiques constructives.
 
Dernière édition:

Bearn 64

XLDnaute Occasionnel
Re : Gestions de Commandes Journalieres

Bonjour jpb388, bonjour le Forum,


Gestions des Clients OK

Gestions des Produits OK

Date de Livraison OK


Reste choix par catégorie, une fois la catégorie sélectionnée afficher les produits et idem choix dans la liste lettre a lettre pour les deux si possible.


Merci déjà pour le travail accompli.
 

Pièces jointes

  • categorie_produits.jpg
    categorie_produits.jpg
    75.8 KB · Affichages: 106
  • categorie_produits.jpg
    categorie_produits.jpg
    75.8 KB · Affichages: 94
  • categorie_produits.jpg
    categorie_produits.jpg
    75.8 KB · Affichages: 109
  • Gestion Commande_V19_bis.xlsm
    469.2 KB · Affichages: 91
  • Gestion Commande_V19_bis.xlsm
    469.2 KB · Affichages: 96
  • Gestion Commande_V19_bis.xlsm
    469.2 KB · Affichages: 90

jpb388

XLDnaute Accro
Re : Gestions de Commandes Journalieres

Bonjour à tous
oui en effet j'avais oublié le développement

ps ne serai t'il pas souhaitable d'afficher les produits concernant la catégorie sélectionnée plustot que l'ensemble
 

Pièces jointes

  • Gestion Commande_V19_bis.xlsm
    465 KB · Affichages: 91
  • Gestion Commande_V19_bis.xlsm
    465 KB · Affichages: 84
  • Gestion Commande_V19_bis.xlsm
    465 KB · Affichages: 91
Dernière édition:

Bearn 64

XLDnaute Occasionnel
Re : Gestions de Commandes Journalieres

Bonjour jpb388, bonjour le Forum,


Je choisi un client, je clique dans catégorie plusieurs fois la meme catégorie dans la liste.
quand je choisi un produit la catégorie s'efface si je continue a la fn manque données.


Voici en pieces jointes les ecrans.


A+++
 

Pièces jointes

  • cat.jpg
    cat.jpg
    46.4 KB · Affichages: 97
  • prod.jpg
    prod.jpg
    41.3 KB · Affichages: 93

grisan29

XLDnaute Accro
Re : Gestions de Commandes Journalieres

bonjour Bearn64 et le forum
je n'ai pas ce problème, mais a partir de la 2ème ligne d'article, la catégorie change de format et passe a une taille plus grand et en gras, de plus en fermant et réouvrant l'usf , la combobox clients est vide, il faut fermer le classeur pour qu'elle se recharge et le reste est pareil

Pascal
 

jpb388

XLDnaute Accro
Re : Gestions de Commandes Journalieres

re

Bearn64
rectifications effectuées
pardon si je testes moins mais j'ai programme (moyen) a faire en mettant que le tien

Grisan29
j'ai corrigé les polices des catégories
même si la liste est vide tape une lettre et si un nom commence par celle ci la liste s'affichera
 

Pièces jointes

  • Gestion Commande_V20.xlsm
    467 KB · Affichages: 100
  • Gestion Commande_V20.xlsm
    467 KB · Affichages: 98
  • Gestion Commande_V20.xlsm
    467 KB · Affichages: 94

Bearn 64

XLDnaute Occasionnel
Re : Gestions de Commandes Journalieres

Bonjour jpb388, bonjour le Forum,



Gestion des produits KO erreur

Private Sub CmdProduits_Click()
FrmProduits.Show 0
End Sub

Si l'on saisie plusieurs commandes a la suite un clic sur la fleche texte box affiche les catégories Ok pas a la premiere commande.
idem dans tous les box de categorie

a la fin de la saisie d'une commande la categorie choisie reste affiche.

Le bouton Commandes doit affecté a quoi pour lancer UserForm svp.



A++++
 
Dernière édition:

jpb388

XLDnaute Accro
Re : Gestions de Commandes Journalieres

re
fait rectifs

chez moi catégorie s'efface tu peux me mettre un exemple stp

je vais dormir a tout à l'heure
 

Pièces jointes

  • Gestion Commande_V21.xlsm
    479.6 KB · Affichages: 117
  • Gestion Commande_V21.xlsm
    479.6 KB · Affichages: 128
  • Gestion Commande_V21.xlsm
    479.6 KB · Affichages: 121

Bearn 64

XLDnaute Occasionnel
Re : Gestions de Commandes Journalieres

Bonjour jpb388, bonjour le Forum,

Alors sommeil réparateur.

Bien et ce matin tout va bien.

Je teste cela et je te donne le résultat.


Merci pour ce résultat tres bien adapté a la demande. Tres satisfait de ta reactivité. Merci encore et ++++
 

jpb388

XLDnaute Accro
Re : Gestions de Commandes Journalieres

Bonjour à tous
je viens seulement de voir ton message
remplace l'ancienne par celle ci
Code:
 Private Sub CboBox_Change()
Dim Cel As Range, i%
If CboBox.Enabled = False Then Exit Sub
Select Case Left(CboBox.Name, 6)
    Case Is = "CboCli" ' liste déroulante clients
        If CboBox.ListIndex = -1 Then Exit Sub
           ' liste des dates de commandes
       With FrmCommandes.CboCom
            .Clear            'liste à zéro
            .ColumnCount = 2 'nb colonne
            .ColumnWidths = "40;0" 'largeur colonne (0 masque la colonne)
        End With
        For Each Cel In Worksheets("Commandes").Range(PlageListe(Worksheets("Commandes"), "A", 2))
            If Cel.Text = CboBox.Text And Cel.Offset(0, 1).Text = CboBox.List(CboBox.ListIndex, 1) Then ' choix sur le nom et le prénom
                    With FrmCommandes.CboCom
                        .AddItem Cel.Offset(0, 5) ' ajout des date de création
                        .List(FrmCommandes.CboCom.ListCount - 1, 1) = Cel.Row 'ajout de la ligne traitée
                     End With
            End If
        Next Cel
        RempliInfoClient
        If FrmCommandes.CboCom.ListCount > 0 Then ' determine si commande
            FrmCommandes.CboCom.AddItem "Nouv. Com.", 0 ' ajout nouvelle commande
            FrmCommandes.CboCom.Enabled = True
            FrmCommandes.Frame1.Enabled = False
            FrmCommandes.CboCom.BackColor = vbRed
        Else
            FrmCommandes.CboCom.Enabled = False
            FrmCommandes.Frame1.Enabled = True
            FrmCommandes.CboCom.BackColor = vbWhite
        End If
    Case Is = "CboCom" ' liste déroulante dates commandes
        If CboBox.ListIndex = -1 Then 'cbocom vide on vide les infos client
            FrmCommandes.Frame1.Enabled = False ' vérouillage de la frame1
            Exit Sub ' nouvelle commande on sort
        End If
        If CboBox.Text = "Nouv. Com." Then ' traitement nouv com  selectionné et ci dessous mise en place info client
            FrmCommandes.Frame1.Enabled = True ' dévérouillage de la frame1
            Exit Sub ' nouvelle commande on sort
        Else 'traitement commandes enregistrées
            FrmCommandes.Frame1.Enabled = True ' dévérouillage de la frame1
            Gene.LireCommandes ' traitement de la commande existante
        End If
        Case "EtiCat"
            If CboBox.ListIndex = -1 Then Exit Sub
            FrmCommandes.CboClients.Enabled = False ' bloque la liste client
            FrmCommandes.CboCom.Enabled = False ' bloque la liste commande
            i = Right(Me.CboBox.Name, Len(Me.CboBox.Name) - 12) ' recupere l' index
            ListeProduits FrmCommandes.Controls("Produits" & i), "A", 2
            Select Case Me.CboBox.Text ' affiche mesage du contolTipText
                Case Gene.Categorie1
                    FrmCommandes.Controls("Taille" & i).ControlTipText = "1  ou  2  ou  4  ou  6  ou  8  ou  10  ou 12"
                Case Gene.Categorie2
                    FrmCommandes.Controls("Taille" & i).ControlTipText = "1  ou  2  ou  4"
                Case Gene.Categorie3
                    FrmCommandes.Controls("Taille" & i).ControlTipText = "1"
                Case Else
                    FrmCommandes.Controls("Taille" & i).ControlTipText = "Tous les chioffres"
              End Select
End Select
End Sub
 

Discussions similaires

Réponses
0
Affichages
809

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 837
dernier inscrit
Ugo