XL 2010 Additionner des nombres jusqu'à atteindre une certaine valeur

P

PhilippeCam

XLDnaute Nouveau
Bonjour à tous,

J'ai effectué des recherches sur le Forum, mais n'ai pas trouvé de réponse à mon problème.
Je cherche un moyen automatisé de trier une liste de valeur de manière à obtenir une somme approchant une valeur cible, et répéter l'opération jusqu'à la fin de la liste de valeurs.
Je joins un fichier pour illustrer ma demande, je n'arrive en effet pas à bien expliciter ma demande.

Mercis d'avance pour votre aide
 

Pièces jointes

  • Exemple.xlsx
    8 KB · Affichages: 29
Solution
job75
Voici la macro que vous attendez :
VB: 
Sub Calcul()
Dim Lbarre, P As Range, nlig&, lig&, nbarre&, c As Range, i&
Lbarre = 6000
Set P = [A1].CurrentRegion
nlig = P.Rows.Count
Application.ScreenUpdating = False
P.Offset(1, 1).ClearContents
P.Offset(1, 1).Interior.ColorIndex = xlNone
lig = 2
1 If P(lig, 1) > Lbarre Then P(lig, 1).Select: MsgBox "Découpe erronée !", 48: Exit Sub
nbarre = nbarre + 1
P(lig, 2) = nbarre
P(lig, 3) = Lbarre '1ère barre
Set c = P(lig, 4)
c = Lbarre - P(lig, 1)
For i = lig + 1 To nlig
    If P(i, 1) < c And P(i, 2) = "" Then
        P(i, 2) = nbarre
        P(i, 4) = c - P(i, 1)
        Set c = P(i, 4)
    End If
Next i
c.Interior.ColorIndex = 6 'jaune
For i = lig + 1 To nlig
    If P(i, 2) = "" Then
        lig = i...
Trier par date Trier par votes
Gégé-45550

Gégé-45550

XLDnaute Accro
PhilippeCam à dit:
Bonjour à tous,

J'ai effectué des recherches sur le Forum, mais n'ai pas trouvé de réponse à mon problème.
Je cherche un moyen automatisé de trier une liste de valeur de manière à obtenir une somme approchant une valeur cible, et répéter l'opération jusqu'à la fin de la liste de valeurs.
Je joins un fichier pour illustrer ma demande, je n'arrive en effet pas à bien expliciter ma demande.

Mercis d'avance pour votre aide
Cliquez pour agrandir...
Bonjour,
La fonction Excel SOMME_SI_COULEUR effectue la somme des cellules dont le fond est de la couleur indiquée (vous pouvez connaître le numéro d'une couleur grâce à la fonction NO_COULEUR).

Les valeurs non numériques sont ignorées, à l'exception de la valeur VRAI qui est égale à 1.

Cordialement,
 
Vote positif 0 Vote négatif
fanch55

fanch55

XLDnaute Barbatruc
Gégé-45550 à dit:
Bonjour,
La fonction Excel SOMME_SI_COULEUR effectue la somme des cellules dont le fond est de la couleur indiquée (vous pouvez connaître le numéro d'une couleur grâce à la fonction NO_COULEUR).

Les valeurs non numériques sont ignorées, à l'exception de la valeur VRAI qui est égale à 1.

Cordialement,
Cliquez pour agrandir...
Salut @Gégé-45550 ,
La fonction SOMME_SI_COULEUR fait partie d'un pack de compléments XLP et n'existe pas sur Excel Natif .
 
Vote positif 0 Vote négatif
GALOUGALOU

GALOUGALOU

XLDnaute Accro
bonjour le fil bonjour philippecam
1er - en vba créer une fonction pour identifier le code couleur
VB: 
Function CodeCouleur(CelluleCouleur As Range) As Long
'Retourne le code couleur de la CelluleCouleur
Application.Volatile
CodeCouleur = CelluleCouleur.Interior.ColorIndex
End Function
2eme - par formule identifier le code couleur en colonne M (dans l'exemple)
Code: 
=CodeCouleur(A1)
3eme - par formule sommer les couleurs identiques
Code: 
=SOMME.SI.ENS($A$1:$A$12;$M$1:$M$12;6)
ou
=SOMME.SI($M$1:$M$12;6;$A$1:$A$12)
ou
=SOMMEPROD(($M$1:$M$12=6)*($A$1:$A$12))

cdt
galougalou
 

Pièces jointes

  • Exemple.xlsm
    14.6 KB · Affichages: 2
Vote positif 0 Vote négatif
P

PhilippeCam

XLDnaute Nouveau
Bonjour à tous et merci pour vos réponses rapides.

J'avoue n'avoir pas été assez clair dans ma demande...

J'avais mis de la couleur pour illustrer ma demande. C'était pour représenter le résultat de ce que je cherche à obtenir...
Je souhaite qu'à partir de la liste de gauche (colonne A) sans couleur donc, une fonction ou une macro génère la colonne B (les données de la colonne B peuvent être à la suite les une des autres, il n'y a pas obligation de sauter des lignes).
C'est pour calculer le nombre de barres de 6m de matière qu'il me faut approvisionner en additionnant différentes longueurs de coupes (colonne A) et ainsi optimiser le nombre de barres et les découpes dans chaque barre. Le plus étant que la macro ou la fonction pointe dans chaque barre les longueurs de découpe qui y rentrent, par exemple avec un code couleur pour les cellules de chaque barre.
Un genre de somme jusqu'à atteindre 6m tant que l'addition de la longueur suivante entre dans les 6m. Lorsque j'arrive à 6m (ou 6m moins la plus petite découpe), je note les éléments qui ont constitué les 6m, et je recommence une addition sans ces éléments de la même manière, et ainsi de suite jusqu'à arriver à la fin des éléments de la colonne A

N'hésitez pas à me dire si je manque encore de clarté dans l'énoncé de ma demande.

Merci
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Bonjour le forum,

Voyez le fichier joint, le tableau est créé manuellement d'une manière assez simple.

On pourrait bien sûr écrire une macro qui serait assez compliquée.

Combien de découpes peut-on avoir au maximum ?

A+
 

Pièces jointes

  • Exemple.xlsx
    10.6 KB · Affichages: 5
Vote positif 0 Vote négatif
P

PhilippeCam

XLDnaute Nouveau
job75 à dit:
Bonjour le forum,

Voyez le fichier joint, le tableau est créé manuellement d'une manière assez simple.

On pourrait bien sûr écrire une macro qui serait assez compliquée.

Combien de découpes peut-on avoir au maximum ?

A+
Cliquez pour agrandir...
Merci Job75 pour ta contribution.

Ce que je cherche est un moyen d'automatiser le processus. il m'arrive d'avoir jusqu'à 200 découpes au total. La méthode que tu propose est manuelle, et risque s'avérer fastidieuse , un peu comme ce que j'avais fait dans mon exemple.

Merci encore d'avoir pris de ton temps.
 
Vote positif 0 Vote négatif
Gégé-45550

Gégé-45550

XLDnaute Accro
job75 à dit:
Bonjour le forum,

Voyez le fichier joint, le tableau est créé manuellement d'une manière assez simple.

On pourrait bien sûr écrire une macro qui serait assez compliquée.

Combien de découpes peut-on avoir au maximum ?

A+
Cliquez pour agrandir...
Bonjour job75, le forum
Si j'ai bien compris la question, le but est d'automatiser le calcul.
Avec 12 valeurs dont seulement 3 différentes, le calcul manuel est effectivement assez simple.
Mais comment automatiser avec par exemples 300 valeurs de 20 types différents (et même "à la main", bonjour !).
[EDIT] Oups, croisement avec la réponse de PhilippeCam
 
Vote positif 0 Vote négatif
Gégé-45550

Gégé-45550

XLDnaute Accro
PhilippeCam à dit:
Merci Job75 pour ta contribution.

Ce que je cherche est un moyen d'automatiser le processus. il m'arrive d'avoir jusqu'à 200 découpes au total. La méthode que tu propose est manuelle, et risque s'avérer fastidieuse , un peu comme ce que j'avais fait dans mon exemple.

Merci encore d'avoir pris de ton temps.
Cliquez pour agrandir...
re-bonjour,
Peut-être voir avec des spécialistes, s'il y en a, du solveur dans Excel, moi je passe mon tour.
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Voici la macro que vous attendez :
VB: 
Sub Calcul()
Dim Lbarre, P As Range, nlig&, lig&, nbarre&, c As Range, i&
Lbarre = 6000
Set P = [A1].CurrentRegion
nlig = P.Rows.Count
Application.ScreenUpdating = False
P.Offset(1, 1).ClearContents
P.Offset(1, 1).Interior.ColorIndex = xlNone
lig = 2
1 If P(lig, 1) > Lbarre Then P(lig, 1).Select: MsgBox "Découpe erronée !", 48: Exit Sub
nbarre = nbarre + 1
P(lig, 2) = nbarre
P(lig, 3) = Lbarre '1ère barre
Set c = P(lig, 4)
c = Lbarre - P(lig, 1)
For i = lig + 1 To nlig
    If P(i, 1) < c And P(i, 2) = "" Then
        P(i, 2) = nbarre
        P(i, 4) = c - P(i, 1)
        Set c = P(i, 4)
    End If
Next i
c.Interior.ColorIndex = 6 'jaune
For i = lig + 1 To nlig
    If P(i, 2) = "" Then
        lig = i
        GoTo 1
    End If
Next i
End Sub
Dans le fichier joint elle est affectée au bouton.
 

Pièces jointes

  • Exemple VBA (1).xlsm
    18.8 KB · Affichages: 4
Vote positif 0 Vote négatif
Solution
Gégé-45550

Gégé-45550

XLDnaute Accro
job75 à dit:
Voici la macro que vous attendez :
VB: 
Sub Calcul()
Dim Lbarre, P As Range, nlig&, lig&, nbarre&, c As Range, i&
Lbarre = 6000
Set P = [A1].CurrentRegion
nlig = P.Rows.Count
Application.ScreenUpdating = False
P.Offset(1, 1).ClearContents
P.Offset(1, 1).Interior.ColorIndex = xlNone
lig = 2
1 If P(lig, 1) > Lbarre Then P(lig, 1).Select: MsgBox "Découpe erronée !", 48: Exit Sub
nbarre = nbarre + 1
P(lig, 2) = nbarre
P(lig, 3) = Lbarre '1ère barre
Set c = P(lig, 4)
c = Lbarre - P(lig, 1)
For i = lig + 1 To nlig
    If P(i, 1) < c And P(i, 2) = "" Then
        P(i, 2) = nbarre
        P(i, 4) = c - P(i, 1)
        Set c = P(i, 4)
    End If
Next i
c.Interior.ColorIndex = 6 'jaune
For i = lig + 1 To nlig
    If P(i, 2) = "" Then
        lig = i
        GoTo 1
    End If
Next i
End Sub
Dans le fichier joint elle est affectée au bouton.
Cliquez pour agrandir...
Bravo !!! :)
Juste un détail, A1 est exclue du calcul
Capture d’écran 2023-02-12 222625.png

Cordialement,
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

N
  • Question
XL 2016 additionner des valeurs suite à une recherche de valeur cible
Réponses
3
Affichages
181
Annach
A
L
  • Question
XL 2019 Filtre avancé recherche multiple, remplir des champs manuellement
Réponses
6
Affichages
288
LoshiMoshi
L
AIXELS
  • Question
XL 2019 calcul de pourcentage pour atteindre valeur cible
2
Réponses
21
Affichages
1 K
AIXELS
AIXELS
E
  • Résolu(e)
XL 2016 Concaténer des adresses de cellules
Réponses
3
Affichages
337
Edel
E
S
  • Question
XL 2010 Résultats possibles d'une combinaison de nombres
Réponses
2
Affichages
710
Stellaire
S
A
  • Question
XL 2019 Mise en forme conditionnelle : recherche valeur max dans une ligne comportant des cellules avec #N/A
Réponses
10
Affichages
414
Astyanax
A
R
  • Résolu(e)
Autres Masquer des lignes et colonnes en fonction d'une valeur d'un menu déroulant
Réponses
1
Affichages
132
Romain77144
R
Vincent_2311
  • Question
XL 2019 Valeur cible supérieure à une certaine valeur
Réponses
1
Affichages
724
Vincent_2311
Vincent_2311
N
  • Résolu(e)
XL 2019 Indiqué une valeur dans un tableau selon autre valeur rencontrée
Réponses
2
Affichages
592
Nikolagexcel
N
C
  • Résolu(e)
XL 2019 Recherche une valeur dans une feuille et renvois à la valeur adjacente
Réponses
3
Affichages
459
mapomme
mapomme

Membres actuellement en ligne

13 membres et 136 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 207
Messages
2 086 248
Membres
103 164
dernier inscrit
axelheili2