XL 2016 Boucle VBA approvsionnement

GV91 · 23 Avril 2020

Bonjour à toutes et à tous,

Ci-joint un fichier que j'aimerai "automatisé"

Dans l'exemple je dispose d'un fournisseur de palettes qui ne me livre que par lot de 200, et un tableau récapitulant par mois mon besoin.

J'aimerai donc remplacer mes "-200" à l'affilés par une boucle VBA :

Avec un message demandant le mois désiré, et qui me calculerai automatiquement le nombre de commande passées jusqu'à ce que la quantité soit inférieur à la taille de lot.

J'aimerai donc aussi un message me disant par exemple " 13 commandes de 200 palettes possibles pour les 2514 palettes , reste 114 palettes"

D'avance merci

sylvanu · 23 Avril 2020

Bonjour GV,
Si votre besoin est de 2514 palettes, la commande doit être de =ARRONDI.SUP(E18/200;0) soit 13 lots, ce qui représente 2600 palettes.
Donc votre reste est de 56 palettes et non de 114 ? ( 2600-2514 )
Où me trompais je ?

GV91 · 23 Avril 2020

sylvanu à dit:
Bonjour GV,
Si votre besoin est de 2514 palettes, la commande doit être de =ARRONDI.SUP(E18/200;0) soit 13 lots, ce qui représente 2600 palettes.
Donc votre reste est de 56 palettes et non de 114 ? ( 2600-2514 )
Où me trompais je ?

Bonjour sylvanu

Je me suis trompé, je ne dois pas dépasser mes 2514 palettes, donc je passe 12 commandes (2400) et il me reste 114 palettes.
La formule est correcte mais je dois retranscrire ça sur VBA.

Je suis cependant assez rouillé j'aimerai quelque chose du genre mais fonctionnel

Sub répartition()

Dim i, j, k As Integer

MsgBox "Quel mois rechercher vous ?"
i = Cells(E11)
'2 514 palettes
j = Cells(D26)
'lot de 200
k = résultats
'nombre de commandes
r = reste
m = mois
Do
k = i - j
Loop Until k = i < j

MsgBox " k commandes de j palettes possibles pour les i palettes , reste r palettes"

End Sub

sylvanu · 23 Avril 2020

Re,
On peut se passer de macros en utilisant votre page 2. Voir PJ.
Si vous voulez absolument une macro, faites signe je vous la fait.
Par contre j'ai modifié les mois pour qu'ils correspondent à la liste déroulante.

GV91 · 23 Avril 2020

sylvanu à dit:
Re,
On peut se passer de macros en utilisant votre page 2. Voir PJ.
Si vous voulez absolument une macro, faites signe je vous la fait.
Par contre j'ai modifié les mois pour qu'ils correspondent à la liste déroulante.

Serait-il possible de l'avoir en macro ??
Cette solution est cependant plus qu'utile et je t'en remercie

GV91 · 23 Avril 2020

sylvanu à dit:
Re,
On peut se passer de macros en utilisant votre page 2. Voir PJ.
Si vous voulez absolument une macro, faites signe je vous la fait.
Par contre j'ai modifié les mois pour qu'ils correspondent à la liste déroulante.

Sinon est-il possible de modifier ton tableau en Feuille 2 en ajoutant plusieurs types de palettes pour le fournisseurs ??

sylvanu · 23 Avril 2020

Je suis entrain de faire la macro msgbox.

GV91 · 23 Avril 2020

sylvanu à dit:
Je suis entrain de faire la macro msgbox.

D'accord , je te remercie

sylvanu · 23 Avril 2020

Un essai en PJ, facilement bricolable.

GV91 · 23 Avril 2020

Super !!

Je te remercie énormément !

Je suppose que je peux "bidouiller" un peu la macro pour lui faire prendre en compte différents types de supports et donc des coûts différents ?

GV91 · 23 Avril 2020

sylvanu à dit:
Un essai en PJ, facilement bricolable.

Merci aussi pour annotations explicatives sur la VBA ça me sera plus qu'utile !

sylvanu · 23 Avril 2020

Quand on a choisit le mois, la variable Mois contient le nom du mois,
IndexMois donne la position de la colonne où est le mois.
Après on en fait ce qu'on veut.
... le plus dur est de construire la phrase de retour dans le msgbox !

GV91 · 24 Avril 2020

sylvanu à dit:
Quand on a choisit le mois, la variable Mois contient le nom du mois,
IndexMois donne la position de la colonne où est le mois.
Après on en fait ce qu'on veut.
... le plus dur est de construire la phrase de retour dans le msgbox !

Salut sylvanu et bonjour le forum,

J'ai regardé ta VBA et l'applique pour le tableau à merveille !

Concernant ton tableau (que je remet dans le fichier), mon fichier ayant évolué je ne comprend pas comment tu utilise la formule pour le volume palettes avec les INDEX.

Mon tableau ayant désormais plusieurs types de supports (des fois pour des mêmes fournisseurs) avec des tailles de lots et coût différents. J'aurai donc voulu affiné la formule avec les différentes liste déroulante mais je coince.

sylvanu · 24 Avril 2020

Bonjour GV,
Comme vous aurez du VBA avec vos msgbox, je me suis dit que le plus simple pour trouver le volume de palettes était de passer par une fonction perso :

VB:

Function ChercheLigne(Site, FRS, TypePal)
Application.Volatile
Derlig = Application.WorksheetFunction.CountA(Range("A1:A10000"))
For i = 2 To Derlig
    If Cells(i, 1) = Site And Cells(i, 2) = FRS And Cells(i, 4) = TypePal Then
        L = 1
        Exit For
    End If
Next i
If i = Derlig + 1 Then
    ChercheLigne = "Erreur"
Else
        ChercheLigne = i
End If
End Function

Ça évite de longues formules si on veut tenir compte du Site, FRS et Type palettes.
Donc cette formule donne le No de ligne, un simple Equiv donne le No de colonne en fonction du mois, et un Index(Tableau;Ligne;Colonne) donne le volume.
Bien évidemment les deux cellules Ligne Colonne peuvent être supprimées et intégrées dans la formule Volume ( Tableau de gauche )

GV91 · 24 Avril 2020

sylvanu à dit:
Bonjour GV,
Comme vous aurez du VBA avec vos msgbox, je me suis dit que le plus simple pour trouver le volume de palettes était de passer par une fonction perso :

VB:

Function ChercheLigne(Site, FRS, TypePal) Application.Volatile Derlig = Application.WorksheetFunction.CountA(Range("A1:A10000")) For i = 2 To Derlig If Cells(i, 1) = Site And Cells(i, 2) = FRS And Cells(i, 4) = TypePal Then L = 1 Exit For End If Next i If i = Derlig + 1 Then ChercheLigne = "Erreur" Else ChercheLigne = i End If End Function

Ça évite de longues formules si on veut tenir compte du Site, FRS et Type palettes.
Donc cette formule donne le No de ligne, un simple Equiv donne le No de colonne en fonction du mois, et un Index(Tableau;Ligne;Colonne) donne le volume.
Bien évidemment les deux cellules Ligne Colonne peuvent être supprimées et intégrées dans la formule Volume ( Tableau de gauche )

Le tableau ne fonctionne pas totalement mais j'ai compris comment fonctionnait ta formule
Je te remercie pour ton retour !

XL 2016 Boucle VBA approvsionnement

GV91

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

GV91

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Pièces jointes

GV91

XLDnaute Junior

GV91

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

GV91

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Pièces jointes

GV91

XLDnaute Junior

GV91

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

GV91

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

GV91

XLDnaute Junior

Discussions similaires