Gestions de Commandes Journalieres

grisan29

XLDnaute Accro
Re : Gestions de Commandes Journalieres

re

Merci beaucoup

Pascal
 

jpb388

XLDnaute Accro
Re : Gestions de Commandes Journalieres

Bonjour à tous

clients et produits

tu tapes les premières lettres et tu cliques sur le nom (double clique pour produit)
le passage automatique dans le nom ne peux s'effectuer qu'a ce moment là car le nom est retiré de la base pour pouvoir le modifié ou le supprimé
pour la création ne pas se servir de la liste déroulante

commandes

dans les listes produits tous les produits avec les différentes catégories apparaissent il te suffit de prendre la bonne ligne puisque la catégorie apparait quand tu choisis le produit
 

Bearn 64

XLDnaute Occasionnel
Re : Gestions de Commandes Journalieres

Bonjour jpb388, bonjour le Forum,

Commandes Ok la sélection du NOM prénom OK.

Pourquoi saisir choix de la catégorie : Le nom des produits peut être identique a plusieurs catégorie.
Donc le fait de choisir une catégorie évite en proposant uniquement les produits de cette catégorie des erreurs par la suite. (erreur de ligne au moment de la saisie).


Gestion des clients Dans la zone Nom du client si l'on tape le NOM lettre après lettre il imposse le nom le plus proche.

Ex : BERTIN est affiché alors que je joudrai savoir si BERTINAUD existe si non passage en mode creation de ce nom.

A plus
 

jpb388

XLDnaute Accro
Re : Gestions de Commandes Journalieres

Bonjour à tous
on ne peux pas créer un nom à partir d'une liste déroulante le nom doit obligatoirement appartenir à la liste il faut faire avec le filtre et du coup la liste déroulante devient inutile
en cliquant sur nom on affiche le filtre il détecte si oui ou non il est dans la base et affiche ou pas les données
es tu d'accord avec cela
 

Bearn 64

XLDnaute Occasionnel
Re : Gestions de Commandes Journalieres

Bonjour jpb388, bonjour le Forum,


Ok pour cela.

Gestion des clients
Ok on garde comme maintenant.

Gestion des produits
On revient a la version précedente. (suppression de la fenêtre Recherche merci).


A plus
 

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.
 

Fichiers joints

Bearn 64

XLDnaute Occasionnel
Re : Gestions de Commandes Journalieres

Bonsoir jpb388, bonsoir le Forum,


Ok mais rien ne s'affiche pour la selection des catégories.



A +++
 

Bearn 64

XLDnaute Occasionnel
Re : Gestions de Commandes Journalieres

Bonjour jpb388, bonjour le Forum,

Oui bien sur voir vignette Hier 10h28
Une fois la catégorie choisie dans produits afficher uniquement les produits de cette catégorie.

A+++
 

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+++
 

Fichiers joints

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
 

Fichiers joints

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:

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 ++++
 

Bearn 64

XLDnaute Occasionnel
Re : Gestions de Commandes Journalieres

Bonsoir jpb388, bonsoir le Forum,

Les tests OK juste l'affichage du nombre possible dans Taille affiche toujours (tous les chiffres).

A plus
 

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


Haut Bas