XL 2013 Réorganiser les numeros de bundle selon la quantité

Bonjour

une proposition par VBA
suffit de changer une des valeurs dans la ligne 1

Bonjour à tous,

Un essai par formules

JHA

Bonjour à tous,
Un essai par formules en partant du fichier de JHA, avec :

vgendron à dit:

Bonjour

une proposition par VBA
suffit de changer une des valeurs dans la ligne 1

Cliquez pour agrandir...

Bonjour , merci pour ta réponse, la valeur change mais j'aimerais que le num de bundle suit exactement comme la quantité

sylvanu à dit:

Bonjour à tous,
Un essai par formules en partant du fichier de JHA, avec :

VB:

=MIN(20;20*(B$1-SOMME(B$5:B5))/20)

Cliquez pour agrandir...

sylvanu à dit:

Bonjour à tous,
Un essai par formules en partant du fichier de JHA, avec :

VB:

=MIN(20;20*(B$1-SOMME(B$5:B5))/20)

Cliquez pour agrandir...

Bonjour et Merci Sylvanu, il y notre amie qui a trouvé le présque solution, mais le numero de bundle ne suit pas. Je ne sais pas si tu pouvais aider. Lestoiles

Private Sub Worksheet_Change(ByVal Target As Range)
Dim col As Integer, nbBundle As Integer, LastCol As Integer
Dim i As Integer, lastBundle As Integer, prevLastBundle As Integer
Dim ws As Worksheet
Set ws = Me

' Vérifier si la modification concerne la ligne 1
If Intersect(Target, Rows(1)) Is Nothing Then Exit Sub

Application.EnableEvents = False ' Désactiver les événements pour éviter les boucles

col = Target.Column ' Récupérer la colonne modifiée
nbBundle = Int(Target / 20) ' Nombre de paquets de 20
LastCol = ws.Cells(ws.Rows.Count, col).End(xlUp).Row ' Dernière ligne remplie dans la colonne

' Nettoyer les anciennes valeurs
ws.Cells(5, col).Resize(LastCol).ClearContents
ws.Cells(5, col - 1).Resize(LastCol).ClearContents

' Trouver le dernier numéro de bundle utilisé dans la colonne précédente
If col > 2 Then
prevLastBundle = Application.WorksheetFunction.Max(ws.Cells(5, col - 1).Resize(LastCol))
If IsError(prevLastBundle) Then prevLastBundle = 0
Else
prevLastBundle = 0
End If

' Initialiser le premier bundle pour cette colonne à la suite du dernier utilisé
lastBundle = prevLastBundle

' Remplir les cellules avec 20 et numéro de bundle
For i = 1 To nbBundle
ws.Cells(4 + i, col) = 20
ws.Cells(4 + i, col - 1) = lastBundle + 1
lastBundle = lastBundle + 1
Next i

' Ajouter le reste s'il y en a un
If nbBundle * 20 <> Target Then
ws.Cells(4 + i, col) = Target - nbBundle * 20
ws.Cells(4 + i, col - 1) = lastBundle + 1
lastBundle = lastBundle + 1
End If

Application.EnableEvents = True ' Réactiver les événements
End Sub

J'ai trouver un vba via ai , mais mon seul probleme ce que le num bundle de la taille suivante doit etre le suivant de la taille precedente.

Re,

lestoiles1 à dit:

il y notre amie qui a trouvé le présque solution, mais le numero de bundle ne suit pas. Je ne sais pas si tu pouvais aider

Cliquez pour agrandir...

La PJ en post#4 marche . Les N° de Bundle sont donnés par une formule :
Tout le tableau en format personnalisé : "0;;" pour ne pas afficher les zéros.

sylvanu à dit:

Re,

La PJ en post#4 marche . Les N° de Bundle sont donnés par une formule :

VB:

Colonne Bundle:
=SI(B5>0;NBVAL(B$5:B5);"")
Colonne Quantité :
1ere cellule : =SI(B$1<20;B$1;20)
Ensuite      : =MIN(20;20*(B$1-SOMME(B$5:B5))/20)

Tout le tableau en format personnalisé : "0;;" pour ne pas afficher les zéros.

Cliquez pour agrandir...

Merci, derniere chose, j'aimerai que lorsque c'est moins de 10 la quantité, ça doit etre inclu dans le numero precedent, exmple 29 , 28 , 27 ...

Re,
Un essai en Pj avec ce que j'ai compris, un bundle vaut 20 par défaut mais peut monter à 29. ( lorsque c'est moins de 10 la quantité, ça doit être inclu dans le numero precedent)