Créeation planning journalier (VBA Excel)

Version imprimable

04/08/2017, 11h06
MehdiMn

1 pièce(s) jointe(s)

Créeation planning journalier (VBA Excel)

Bonjour,

Je suis arrivé à l'étape finale où je dois répartir la demande selon les journées.
Voila j'aimerai que vous m'aidiez à développer une macro capable de créer un planning journalier en se basant sur la demande et la base de donnée.
Ma base de donnée (feuille donnée) est classé par ordre de priorité, donc le planning doit contenir les références selon cet ordre.
En deuxième lieu la somme des qté à produire pendant la journée doit être entre 1600 et 1700.
Puis enfin Pour les références dont: - la durée est est inférieur à 1,1 je dois lancer toute la qté à produire.
- la durée est entre 1,1 et 2,3 je dois lancer que 200 par jour jusqu'a ce qu'il ne reste rien.
- la durée est supérieur à 2,3 je dois lancer que 100 par jour jusqu'à ce qu'il ne reste plus rien.

Vous trouvez ci joint un excel contenant la base de donnée ( feuille Donnée), la demande ( feuille PDP ) et le planning attendu ( feuille programme)

Je vous remercie pour votre temps.
je suis à votre disposition à tout moment.
04/08/2017, 11h21
Roiser

Salut,

Tu n'as pas du tout commencé à coder ??
04/08/2017, 17h03
mjpmjp

bonjour,
en résumé :
un onglet "Données" avec un tableau nommé "Table1"
colonne A , B , L --> Réf Origine , REF S , durée

un onglet "PDP" avec un tableau nommé "PDP" --> demande mensuelle --> à traduire en jour ?
colonne C , D , E --> Réf Origine , REF S , PDP --> PDP = 20 , 500 , 20 , 130 , 50 , ...

un onglet "Programme" avec plusieurs petits tableau journalier --> JOUR1 , JOUR2 , .... pas nommés
chaque tableau a un total : 1640 , 1510 , 995
colonne C , D , E --> Référence (colonne REF S) , Qté à produire , Observation

@+JP
04/08/2017, 17h10
mjpmjp

re,

élément 1

Citation:

Ma base de donnée (feuille donnée) est classé par ordre de priorité, donc le planning doit contenir les références selon cet ordre.

élément 2

Citation:

En deuxième lieu la somme des qté à produire pendant la journée doit être entre 1600 et 1700.

élément 3

Citation:

Puis enfin Pour les références dont: - la durée est est inférieur à 1,1 je dois lancer toute la qté à produire.
- la durée est entre 1,1 et 2,3 je dois lancer que 200 par jour jusqu'a ce qu'il ne reste rien.
- la durée est supérieur à 2,3 je dois lancer que 100 par jour jusqu'à ce qu'il ne reste plus rien.

@+JP
04/08/2017, 17h24
mjpmjp

re,
je partirais sur la base de 3 array / tableau

Tab1 colonne REF S
Tab2 durée
Tab3 PDP

une boucle principale avec limite totale 1600/ 1700
et un traitement des durées pour les limites à prélever dans Tab3

écrire dans jour1 jusqu’à limite totale

recommencer boucle finir relicat, ...
écrire dans jour...

@+JP
04/08/2017, 19h39
MehdiMn

Bonsoir,

C est exactement ce que je cherche à faire mjpmjp mais en vain puisque je viens juste de commencer à coder avec vba.
J'espère que vous puissiez m'aider si possible en me proposant une macro à executer si je n'abuse pas trop de votre gentillesse.

Merci pour votre aide en tous cas.
Bonne soirée.
07/08/2017, 09h49
MehdiMn

Demande de nouvelle

Bonjour,
j'espère que vous alliez bien.
je me demandais si quelqu'un n'aurai pas un début pour que je puisse commencer je suis bloqué pour le moment.
Merci pour votre compréhension.
Bonne début de semaine.

bonjour,

voila de quoi débuter ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
 
Sub test()
    Dim OngletNameDataBase As String
    Dim OngletNameQtMois As String
    Dim OngletNameQtJour As String
    Dim DerniereCelluleNonVideDeLaList As Range
    Dim ListLigneFin As Long
    Dim ColonRefS_DB As String
    Dim ColonRefS_QT As String
    Dim ColonDuree_DB As String
    Dim ColonPDP_QT As String
    Dim TabRefS_DB() As Variant
    Dim TabDuree() As Variant
    Dim TabRefS_QT() As Variant
    Dim TabPDP_QT() As Variant
    Dim LimiteTotaleBasse As Integer
    Dim LimiteTotaleHaute As Integer
    '-----
    OngletNameDataBase = "Données"
    OngletNameQtMois = "PDP"
    OngletNameQtJour = "Programme"
    ColonRefS_DB = "B"
    ColonDuree_DB = "L"
    ColonRefS_QT = "D"
    ColonPDP_QT = "E"
    LimiteTotaleBasse = 1600
    LimiteTotaleHaute = 1700
    '
    '==================================================== ONGLET DataBase
    'derniere ligne du tableau de l'onglet Données
    Set DerniereCelluleNonVideDeLaList = Sheets(OngletNameDataBase).Range(ColonRefS_DB & Rows.Count).End(xlUp)
    ListLigneFin = DerniereCelluleNonVideDeLaList.Row
    'dimensionne Tableau
    ReDim TabRefS_DB(ListLigneFin)
    ReDim TabDuree(ListLigneFin)
    'remplir tableau
    For n = 1 To ListLigneFin
        TabRefS_DB(n) = Sheets(OngletNameDataBase).Range(ColonRefS_DB & n).Value
        TabDuree(n) = Sheets(OngletNameDataBase).Range(ColonDuree_DB & n).Value
    Next n
    '==================================================== ONGLET Quantité Mois
    'derniere ligne du tableau de l'onglet Données
    Set DerniereCelluleNonVideDeLaList = Sheets(OngletNameQtMois).Range(ColonRefS_QT & Rows.Count).End(xlUp)
    ListLigneFin = DerniereCelluleNonVideDeLaList.Row
    'dimensionne Tableau
    ReDim TabRefS_QT(ListLigneFin)
    ReDim TabPDP_QT(ListLigneFin)
    'remplir tableau
    For n = 1 To ListLigneFin
        TabRefS_QT(n) = Sheets(OngletNameQtMois).Range(ColonRefS_QT & n).Value
        TabPDP_QT(n) = Sheets(OngletNameQtMois).Range(ColonPDP_QT & n).Value
    Next n
    '==================================================== TRAITEMENT
    '
    'ICI le traitement
    'la boucle avec le test sur les variables
    'LimiteTotaleBasse
    'LimiteTotaleHaute
 
 
End Sub

@+JP

08/08/2017, 10h04
MehdiMn

Bonjour

Bonjour mjpmjp,

Tout d'abord je vous remercie pour l'aide que vous m'avez rapporté je vous en suis reconnaissant.
Si c'est possible et sans abuser de votre gentillesse pourriez-vous m'expliquer votre démarche et ce qui me reste à faire (je suis un débutant en programmation en vba).

Désoler pour le dérangement et bonne journée.
08/08/2017, 18h13
mjpmjp

bonjour,
avec le code (pour débuter) tu as PRESQUE tout pour travailler.
tous les "tableau" (voir aide array) représente les colonnes (excel) dont tu as besoin
l'avantage de travailler avec des "tableau" c'est plus pratique et plus rapide !!!

détail des "tableau"
TabRefS_DB : c'est la colonne REF S de la Data Base (onglet "Données")
TabRefS_QT : c'est la colonne REF S de la Quantité Mois (onglet "PDP")

ces 2 "tableau" "parle" de la même chose : des références
quand ces 2 "tableau" "parle" de la même référence : il parle du même produit, de la même contraintes de "temps" (durée) qui ce trouve dans TabDuree à la même ligne que la référence de TabRefS_DB
dans une communication d'une base de donnée , ces 2 "tableau" qui parle de la même chose, sont des "Key"

TabRefS_DB contient la TOTALITE des "key" et TabRefS_QT contient une PARTIE des "key"

TabRefS(ligne1) est une "key" que tu vas chercher dans TabRefS_DB
quand tu trouve la même "key" dans TabRefS_DB(ligneX), tu connais alors la durée TabDuree(ligneX) et tu as la quantité du mois TabPDP(ligne1)
c'est dans cette quantité du mois que tu vas retrancher la quantité jour
la quantité jour que tu détermine avec un rapport entre TabDuree(ligneX) et les limites <1,1 , =<2,3 , >2,3

Citation:

Puis enfin Pour les références dont: - la durée est est inférieur à 1,1 je dois lancer toute la qté à produire.
- la durée est entre 1,1 et 2,3 je dois lancer que 200 par jour jusqu'a ce qu'il ne reste rien.
- la durée est supérieur à 2,3 je dois lancer que 100 par jour jusqu'à ce qu'il ne reste plus rien.

@+JP

re,
tu as donc ta durée, qui correspond à une "key" (référence)
Code:

1 2 3 4 5 6 7 If TabDuree(ligneX) < 1,1 then '--> prendre toute la quantité qui se trouve dans TabPDP_QT(ligne1) ElseIf TabDuree(ligneX) < 2,3 OR TabDuree(ligneX) = 2,3 then '--> prendre 200 sur la quantité qui se trouve dans TabPDP_QT(ligne1) Else '--> prendre 100 sur la quantité qui se trouve dans TabPDP_QT(ligne1) End IF
voila un des mécanisme / traitement , qui "transforme" la durée en quantité

le "boulot" pour ce simple bout de code :
déclaré 2 variables une pour 1,1 et l'autre pour 2,3
initialiser les 2 variables : style : Limite1 = 1,1...Limite2 = 2,3
remplacer dans le code les valeurs (1,1 et 2,3) par les variables

déclarer la variable qui va recevoir la quantité à retrancher et aussi à écrire dans jour

MAIS , AVANT de retrancher dans TabPDP_QT(ligne1)
tu dois TESTER si avec cette quantité tu es entre les limites : LimiteTotaleBasse et LimiteTotaleHaute (1600 et 1700)

tout ceci est pour une ligne --> ligne1 du tableau TabRefS_QT (liste des quantités du mois)
pour toutes les lignes --> tu connais le nombre, c'est ListLigneFin -1 , tu dois faire une boucle

@+JP

re,

Code:

1
2
3
4
 
For n= 1 to ListLigneFin - 1
      'dans cette boucle Ligne1 est remplacée par n
Next n

voila la boucle générale / principale

la même boucle :

Code:

1
2
3
4
 
For n= 1 to Ubound(TabRefS_QT) -1
      'dans cette boucle Ligne1 est remplacée par n
Next n

IL MANQUE QUELQUE CHOSE ;)

trouver les 2 "key" identiques !!!

pour cela , on utilise aussi une boucle ... dans le début de la boucle principale

Code:

1
2
3
4
5
6
7
8
9
10
11
 
For n= 1 to Ubound(TabRefS_QT) -1
      'trouver les 2 "key" identiques
      For n2 = 1 To Ubound(TabRefS_DB) - 1
            'quand on trouve on a la ligneX qui est n2
            'alors on sort de cette boucle
 
            Exit For
      Next n2
      'dans cette boucle Ligne1 est remplacée par n
Next n

@+JP

14/08/2017, 07h34
mjpmjp

.........................:java:
14/08/2017, 16h42
MehdiMn

RE,

Bonjour mjpmjp,

Désolé j'étais malade toute la semaine du coup je n'ai pas pu consulter internet.
Je te remercie énormément pour le temps que tu m'as consacré et pour l'aide que tu m'apporte.
Je vais essayer de poursuivre ce que tu m'as envoyé en espérons aboutir a quelque chose, je te tiendrais au courant de toutes avancées

Bonne journée.
24/08/2017, 09h38
MehdiMn

RE,

Bonjour,

Suite à la difficulté, j'ai du abandonner puisque j'arrivais pas à avancer.

Je vous remercie pour votre aide énormement.
Bonne journée.
24/08/2017, 17h06
mjpmjp

bonjour MehdiMn,

j'ai vu qu'une personne t'avais mis un "-1" ....
c'est vrai que de te voir abandonner c'est rageant , mais vu que tu n'as JAMAIS posté de code (malgré le code que tu as reçu)...

@+JP