Mon projet (Résolu)

bbb38 à dit:

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

Cliquez pour agrandir...

bbb38 à dit:

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

Cliquez pour agrandir...

Le_Troll_Du_27 à dit:

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...