Gestions de Commandes Journalieres

[Bearn 64]

[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.

 

[jpb388]

Re : Gestions de Commandes Journalieres

re
exacte je n'avais pas fait attention
kenavo

 

[Bearn 64]

Re : Gestions de Commandes Journalieres

re

Quand je supprime une commande catégorie, date Livraisons, Dû et infos clients restent affichées.
Puis planté plus d’accès a la sélection du client, même si j'efface par raz passe en debug.

Merci.

 

[jpb388]

Re : Gestions de Commandes Journalieres

re
avec toutes mes excuses
la sénilité me gagne au moment d'enregistrer les modifications j'ai du cliquer sur non
je ne vois pas d'autre explications

 

[Bearn 64]

Re : Gestions de Commandes Journalieres

re
Pas grave et pardonné.

Je continu. Adichats

 

[Bearn 64]

Re : Gestions de Commandes Journalieres

Bonsoir jpb388 , bonsoir le forum

Super boulot, une petite question si je clique sur Fermer comment relancer le USERFORM.

J'ai ajouter un bouton qui pointe sur Feuil1.AfficherLeFormulaire je fait une suppression et la debug.

Merci une fois de plus

 

[jpb388]

Re : Gestions de Commandes Journalieres

Bonsoir a tous

je t'ai remis le bouton

dis moi si cela marche

 

[Bearn 64]

Re : Gestions de Commandes Journalieres

Bonsoir jpb388 , bonsoir le forum.


quand je crée une ou plusieurs commandes que je ferme.
Clique sur le bouton Commande pour revenir dans USERFORM, je supprime une commande --->je suis en erreur d’exécution '91' (Gestion.trier Sheets("Commandes")).


Si j'ajoute une commande OK.

Je continu. Adichats

 

[jpb388]

Re : Gestions de Commandes Journalieres

re
va dans le module de classe cGestion et recherche la

Sub trier(She As Worksheet)

et corrige en

Sub trier(Sh As Worksheet)

un petit e en trop

 

[Bearn 64]

Re : Gestions de Commandes Journalieres

re


Parfait, parfait.....


Merci pour tous ses appels a l'aide très beau résultat.


Je donne au magasin et la résultats du terrain.


Je continu. Adichats

 

[Bearn 64]

Re : Gestions de Commandes Journalieres

Bonsoir jpb388 , bonsoir le forum.


Je sauvegarde avec Bouton enregistrer ok sauvegarde avec les bonnes valeurs des prix en euros ----> soit 33,00€.


Je voulais mettre un bouton sauvegarde

Sub sauvegarde()
' sauvegarde Macro
ActiveWorkbook.Save
End Sub

puis un autre sauvegarde et quitter

Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
Application.Quit
End Sub

quand j'ouvre a nouveau les prix en euros ----> soit €33,00

Une petite idée.


Merci encore

 

[jpb388]

Re : Gestions de Commandes Journalieres

re

Private Sub CmdFermer_Click()
Dim Ctl As Control, Passe As Boolean
For Each Ctl In Me.Controls
    If TypeName(Ctl) = "TextBox" Or TypeName(Ctl) = "ComboBox" Then
        If Ctl.Text <> "" Then
            Select Case Ctl.Name
                Case "TxtAcompte"
                    Passe = False
                Case Else
                    Passe = True
                End Select
            End If
    End If
Next
If Passe = True Then
    MsgBox "Vous avez des données restantes"
    Exit Sub
End If
Unload Me

ThisWorkbook.Saved = True

    ' quand tu auras fini tes modifs enlève la coche commentaire et ainsi quand tu fermera le formulaire excel sera fermer en même temps
'Application.Quit

End Sub

le formulaire commandes
les dernières lignes sont est prévu pour la sauvegarder le classeur et la ligne quitter ferme excel aussi
tout ajout fera double emploi
pour les euros c'est un problème de format et là sans le fichier remanié

 

[Bearn 64]

Re : Gestions de Commandes Journalieres

Bonjour jpb388 , bonjour le forum.

Sauf erreur de ma part, rien modifie dans dernier envoi essaiGestionCommandes_lundi.xlsm

Quand je saisi une commande supplémentaire elle s'ajoute bien dans FrmCommandes.
Si je clique sur Fermer je la visualise mais la sauvegarde n'a pas était faite. Idem si fait la modif de ce matin.


D'ou l'ajout des boutons "sauvegarder" et "sauvegarder et quitter".


A +++

 

[jpb388]

Re : Gestions de Commandes Journalieres

Bonjour a tous

J'ai fait les rectifs
quand tu auras fini les vérifs si tu le désires tu pourra enlever l'apostrophe qui se trouve devant application.quit
Cordialement
jp

 

[Bearn 64]

Re : Gestions de Commandes Journalieres

Bonjour jpb388, Bonjour a tous

Ok pour la sauvegarde en cliquant sur fermer.

en ré ouvrant on arrive sur les valeurs en € €32,00 a la place de 32,00€.

Merci A +++

 

[jpb388]

Re : Gestions de Commandes Journalieres

re
enregistrer dans un format,fermer excel et rouvrir avec un autre format
c'est la première fois que je vois ça
j'ai modifié légèrement la formule et est fait plusieurs essais fermeture et ouverture on dirait que c'est bon

mais je ne comprend pas pourquoi
Bonne nuit