Mon projet (Résolu)

[Le_Troll_Du_27]

Depuis la dernière fois j'ai voulu changer tout mon tableau, et je me suis pommé
Les formules sont plus bonne "évidement" et je peine trop.
j'ai vite expliquer sur le fichier . Merci , je reste en ligne toute la journée

Le fichier fait 1.9Mo je publie un lien Google.drive

Chantier_Insertion_Troll.xls [url]https://drive.google.com/file/d/0B8uosqw38fTFN2thb2dqQzB2ckU/view?usp=sharing

 

[Le_Troll_Du_27]

Re : Mon projet

Bonjour Laurent, le forum,

Quel est le contenu de ces 3 feuilles (uniquement des données, ou données + macros) ? La structure de ces feuilles est-elle identique à celle des onglets du fichier projet ? On peut écrire un code pour intégrer le contenu de ces 3 feuilles dans le classeur projet, une fois celui-ci finalisé.
Cordialement,
Bernard

Je n'avais pas lu jusqu'au bout.
Le classeur est avec prise en charge des macros.
Je viens d'essayer de l'assembler c'est horrible.

Je l'ai mis chez free

Je rajouterai le classeur en partage au dernier moment sinon
Cordialement
Laurent
Ps; Bon Week End et merci de ta patience

 

[grisan29]

Re : Mon projet

bonjour le_troll_du_27

dans ton fichier et dans la feuille "caisse" l'appui sur les boutons génère un bug de manques de variables pour "mem1"

Pascal

 

[Le_Troll_Du_27]

Re : Mon projet


Je mets le Classeur Caisse
Cordialement
Laurent

 

[grisan29]

Re : Mon projet

bonjour troll
evite les envois de fichier via des hebergeurs qui obligent a visionner une pub avant de télécharger essai via Accueil de Cjoint.com

Pascal

 

[Le_Troll_Du_27]

Re : Mon projet

Document CjointAnnexe

Dsl Pascal remis juste pour toi🙂

Cordialement
Laurent

 

[bbb38]

Re : Mon projet

Bonsoir Laurent, le forum,
J’ai regardé tes codes, mais pour ma part difficile de te suivre. Je ne vois pas comment tu effectues les entrées des produits. Je suppose que les sorties sont réalisées lors de l’exécution des factures de caisse. Dans cette hypothèse, je pense que l’historique de caisse fait double emploi avec la feuille Sorties. Chaque information figurant sur les différentes feuilles devrait mentionner le code du produit (que je renommerai Famille du produit). Je suppose que tu as créé ces codes pour obtenir plus rapidement la liste des produits associés. La structure de la BDD devrait être Code, Référence, Désignation du produit, Tarif.
Attention, lors de l’écriture des codes, vérifier l’orthographe des noms des feuilles (Ex : Code : Entrée – Nom de la feuille : Entrees). Dans le Module 5, tu indiques les feuilles « Journal de Bord » et « Stock », feuilles inexistantes dans le classeur.
Cordialement,
Bernard

 

[Le_Troll_Du_27]

Re : Mon projet

Bonsoir Laurent, le forum,
J’ai regardé tes codes, mais pour ma part difficile de te suivre. Je ne vois pas comment tu effectues les entrées des produits. Je suppose que les sorties sont réalisées lors de l’exécution des factures de caisse. Dans cette hypothèse, je pense que l’historique de caisse fait double emploi avec la feuille Sorties. Chaque information figurant sur les différentes feuilles devrait mentionner le code du produit (que je renommerai Famille du produit). Je suppose que tu as créé ces codes pour obtenir plus rapidement la liste des produits associés. La structure de la BDD devrait être Code, Référence, Désignation du produit, Tarif.
Attention, lors de l’écriture des codes, vérifier l’orthographe des noms des feuilles (Ex : Code : Entrée – Nom de la feuille : Entrees). Dans le Module 5, tu indiques les feuilles « Journal de Bord » et « Stock », feuilles inexistantes dans le classeur.
Cordialement,
Bernard

Je t'es remis le fichier car il comportait des erreurs. Celui est vide d'erreur
Document Cjoint Classeur Complet

Il reste a vérifier l'annuaire est Usf_Menu pour les raccords et mettre les raccourcis à jour
Bonne nuit
Cordialement
Laurent

PS(Absent demain)

 

[Le_Troll_Du_27]

Re : Mon projet

Voilà reste plus que la feuille des sorties

Document Cjoint Chantier Insertion Final_1

Regardez ci vous pouvez je dois m'absenté je reviendrai Mardi ou Mercredi PM

Cordialement

Laurent

 

[bbb38]

Re : Mon projet

Bonsoir Laurent, le forum,
Impossible d’ouvrir ton fichier. Je te prépare une version pour demain.
Cordialement,
Bernard

 

[grisan29]

Re : Mon projet

bonsoir bbb38
je ne sais si tu pourra ouvrir plus son fichier si c'est moi qui te l'envoie, mais je fait un essai
Document Cjoint

Pascal

 

[bbb38]

Re : Mon projet

Bonjour Pascal, le forum,
Merci pour ton intervention. Je suis arrivé à ouvrir le fichier que tu as mis sur le fil.
Cordialement,
Bernard

 

[bbb38]

Re : Mon projet

Bonsoir Laurent, Pascal, le forum,
Je viens de regarder ton fichier, et je me permets de te donner mon avis (strictement personnel).
Je mettrai à jour les données des feuilles par formulaire, afin d’éviter d’inscrire des formules (pour alléger le fichier).
A titre d’exemple, je réaliserai deux formulaires :
L’un pour enregistrer les mouvements, les Entrées, les Sorties (si différentes des bons de caisse), et mettre à jour les stocks.
L’autre pour établir des bons de caisse, mettre à jour, l’historique et les stocks, et éventuellement établir la facture.
Sur la feuille TARIF, je supprimerai les colonnes F,G,H,I ,J. La feuille BDD a disparue. Sur celle-ci, devrait mentionner les Codes, et les données figurant actuellement dans le Gestionnaire des noms (Noms, Salariés, etc.)
Cordialement,
Bernard

 

[Le_Troll_Du_27]

Re : Mon projet

Document Cjoint
Dsl de mon absence, j'ai pu pendre mon pc à l'hosto et donc j'ai bossé un peu
Je vois que Grisan a pu mettre le fichier dsl encore
Je viens de lire ton message mais j'ai presque fini.
Il me reste que 2 colonnes sorties. Vélos et Noms. Je mets le fichiers. je dois me reposer
Cordialement
Laurent

 

[Le_Troll_Du_27]

Re : Mon projet

Document Cjoint
Dsl de mon absence, j'ai pu pendre mon pc à l'hosto et donc j'ai bossé un peu
Je vois que Grisan a pu mettre le fichier dsl encore
Je viens de lire ton message mais j'ai presque fini.
Il me reste que 2 colonnes sorties. Vélos et Noms. Je mets le fichiers. je dois me reposer
Cordialement
Laurent

Mot de passe Nathalie et Apres cicerone

Dsl mais j'ai merdé à l'écriture
Je verai çà plus tard à tête reposer
Cordialement
Laurent

 

[Le_Troll_Du_27]

Re : Mon projet

Je voudrai mettre la ligne de commande de la colonne 5 et 6 "Sorties" afin quelles apparaissent dans la feuille "MVT"
Avant

Sub sortie_stock()
'je definie la derniè￾re ligne
derlig = Sheets("Sorties").Cells(Cells.Rows.Count, "A").End(xlUp).Row
derligstock = Sheets("Inventaire").Cells(Cells.Rows.Count, "A").End(xlUp).Row
derligjourn = Sheets("MVT").Cells(Cells.Rows.Count, "A").End(xlUp).Row
' Sortie ====> Inventaire
'je parcours les lignes des entrées
For Each C In Sheets("Sorties").Range("A4:A" & derlig)
'je parcours les lignes de l'inventaire
For Each d In Sheets("Inventaire").Range("A4:A" & derligstock)
'si article stock = article entrée alors
If C = d Then
'valeur inventaire + valeur entrée
d.Offset(0, 5) = d.Offset(0, 5) + C.Offset(0, 1)
End If
Next
Next
' Sortie ====> Mouvement
derligjourn = derligjourn + 1
'je parcours les lignes des sorties
For Each C In Sheets("Sorties").Range("A4:A" & derlig)
'je m'assure que la sortie n'est pas vide pour éviter une insertion d'une ligne vide
If C <> "" Then
'je saisie que c'est une sortie
Sheets("MVT").Range("A" & derligjourn).Value = "Sorties"
'je saisie la designation
Sheets("MVT").Range("A" & derligjourn).Offset(0, 1) = C
'je saisie la quantité
Sheets("MVT").Range("A" & derligjourn).Offset(0, 2) = C.Offset(0, 1)
'je saisie la date
Sheets("MVT").Range("A" & derligjourn).Offset(0, 5) = Date
'j'incremente le numéro de ma derniere ligne
derligjourn = derligjourn + 1
End If
Next
'aprè￾s les entrées je supprime mes lignes
DLig = Sheets("Sorties").Range("B" & Rows.Count).End(xlUp).Row
' Pour chaque ligne de la derniè￾re à la 4￾me je les supprime
For lig = DLig To 4 Step -1
Rows(lig).Delete
Next
MsgBox "Sortie de stock terminée"
End Sub
Sub entree_stock()
'je définie la derni￾re ligne
derlig = Sheets("Entrees").Cells(Cells.Rows.Count, "A").End(xlUp).Row
derligstock = Sheets("Inventaire").Cells(Cells.Rows.Count, "A").End(xlUp).Row
derligjourn = Sheets("MVT").Cells(Cells.Rows.Count, "A").End(xlUp).Row
' Entrée ====> Stock
'je parcours les lignes des Entrées
For Each C In Sheets("Entrees").Range("A4:A" & derlig)
'je parcours les lignes des stocks
For Each d In Sheets("Inventaire").Range("A4:A" & derligstock)
'si article stock = article Entrée alors
If C = d Then
'valeur stock + valeur Entrée
d.Offset(0, 4) = d.Offset(0, 4) + C.Offset(0, 1)
End If
Next
Next
' Entrée ====> Mouvement
derligjourn = derligjourn + 1
'je parcours les lignes des Entrées
For Each C In Sheets("Entrees").Range("A4:A" & derlig)
'je m'assure que la sortie n'est pas vide pour éviter une insertion d'une ligne vide
If C <> "" Then
'je saisie que c'est une Entrée
Sheets("MVT").Range("A" & derligjourn).Value = "Entrees"
'je saisie la designation
Sheets("MVT").Range("A" & derligjourn).Offset(0, 1) = C
'je saisie la quantité
Sheets("MVT").Range("A" & derligjourn).Offset(0, 2) = C.Offset(0, 1)
'je saisie la date
Sheets("MVT").Range("A" & derligjourn).Offset(0, 5) = Date
'j'incremente le numero de ma derniere ligne
derligjourn = derligjourn + 1
End If
Next
'aprè￾s les Entrées je supprime mes lignes
DLig = Sheets("Entrees").Range("B" & Rows.Count).End(xlUp).Row
' Pour chaque ligne de la derniè￾re à la 4￾me je les supprime
For lig = DLig To 4 Step -1
Rows(lig).Delete
Next
MsgBox "Entrée en stock terminée"
End Sub

Cordialement Laurent