Extraction numéro de semaine après attributiob de pièces
Bonjour,
J'ai un fichier qui permet d'attribuer un certain nombre de pièces par semaine en fonction du flux de production du fournisseur.
Les pièces viennent se classer automatiquement par colonne, par exemple pour la pièce TATA il m'en faut 6 et j'ai une cadence de 4, je classe donc 4 pièces la première semaine dans une colonne et 2 dans la colonne d'à côté et ainsi de suite pour toutes les pièces.
Aujourd'hui j'ai deux soucis : le code vba ne prend pas en compte quand la valeur du flux de production est égale à zéro (il me liste toutes les pièces les unes à la suite des autres sans les classer), et j'aimerais récupérer le numéro de semaine de la fin de production de chaque pièces.
J'ai mis mon fichier actuel pour plus de compréhension
Merci d'avance car là je câle depusi plusieurs jours...
Bonsoir,
je refais une macro newattribution, voir si cela te convient
Bonjour débutant75
Le code peut être modifié assez facilement en ce mettant en mode débogage (F9 sur une ligne) + F8 (pour avancer)
Voici le code rectifié
Sub attribution()
Dim NbCopy As Integer, NbLMax As Integer
NbCopy = 0
'On commence la copie à la ligne 15
Dim Start As Integer
Start = 15
'Départ de la Colonne D
Dim Col As Integer
Col = 4
'Nb lignes max première colonne
NbLMax = Cells(4, Col).Value
'Faire une boucle des lignes 5 à 12'
For l = 5 To 12
moteur = Cells(l, 1).Value
Nbfois = Cells(l, 3).Value - 1
'Boucle pour inscrire les données
For i = Start To Start + Nbfois
If NbCopy = NbLMax Then
Col = Col + 1
NbLMax = Cells(4, Col).Value
NbCopy = 0
End If
' Au cas ou la production = 0
If NbLMax = 0 Then
Col = Col + 1
NbLMax = Cells(4, Col).Value
NbCopy = 0
End If
NbCopy = NbCopy + 1
Cells(i, Col).Value = moteur
Next
' Inscrire la semaine ici
If moteur <> "" Then Cells(l, 2).Value = Cells(14, Col).Value
'On passe à la valeur suivante
Start = Nbfois + Start + 1
Next
End SubEdit : oups, bonjour H2so4
A+
Bonjour,
merci à vous c'est exactement ce que je voulais
bonne journée