Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

VBa répartition chiffre par tranches

3 réponses
Avatar
PST
Bonjour

R=E9partition chiffre par tranches macro =09

Soit un certain nombre de tranches, dans l'exemple 3 tranches =09

Comment r=E9partir par macro, le nombre pouvant contenir chaque tranche =

de fa=E7on =E0 avoir toutes les r=E9partitions possibles pour arriver =E0=
un=20
certain chiffre, 4 dans cet exemple =09
Pour r=E9sumer aucune tranche ne doit avoir plus de 4 si l'on veut arrive=
r=20
a un total de 4 pour les 3 tranches =09


je voudrais avoir si possible la m=EAme chose que l'exemple, avec la=20
possibilt=E9 de choisir le nombre de tranche et le total des tranches =09

Merci =09

T__1 >>> 1 =E0 100=09
T__2 >>> 101 =E0 200=09
T__3 >>> 201 =E0 300

Exemple pour tranche de 3 avec r=E9partition pour total de 4 =09

T__1 T__2 T__3 TOTAL DES 3 TRANCHES
0 0 4 4
0 1 3 4
0 2 2 4
0 3 1 4
0 4 0 4
1 0 3 4
1 1 2 4
1 2 1 4
1 3 0 4
2 0 2 4
2 1 1 4
2 2 0 4
3 0 1 4
3 1 0 4
4 0 0 4

3 réponses

Avatar
Daniel.C
Bonsoir.
Je n'ai pas trop compris ton exemple; peux-tu détailler davantage ?
Cordialement.
Daniel
"PST" a écrit dans le message de news:
47c0d3f3$0$847$
Bonjour

Répartition chiffre par tranches macro

Soit un certain nombre de tranches, dans l'exemple 3 tranches

Comment répartir par macro, le nombre pouvant contenir chaque tranche
de façon à avoir toutes les répartitions possibles pour arriver à un
certain chiffre, 4 dans cet exemple
Pour résumer aucune tranche ne doit avoir plus de 4 si l'on veut arriver
a un total de 4 pour les 3 tranches


je voudrais avoir si possible la même chose que l'exemple, avec la
possibilté de choisir le nombre de tranche et le total des tranches

Merci

T__1 >>> 1 à 100
T__2 >>> 101 à 200
T__3 >>> 201 à 300

Exemple pour tranche de 3 avec répartition pour total de 4

T__1 T__2 T__3 TOTAL DES 3 TRANCHES
0 0 4 4
0 1 3 4
0 2 2 4
0 3 1 4
0 4 0 4
1 0 3 4
1 1 2 4
1 2 1 4
1 3 0 4
2 0 2 4
2 1 1 4
2 2 0 4
3 0 1 4
3 1 0 4
4 0 0 4
Avatar
PST
Bonsoir
merci pour la réponse
Soit x tranche et y total
Dans mon exemple 3 tranches pour un total de 4

En prenant comme exemple 3 boites, 4 objets a y mettre
ex:
1 objet dans la 1 ère , 3 dans la 2 ème
1 objet dans la 1 ère , 3 dans la 3 ème
3 objets dans la 2 ème , 1 dans la 3 ème

A chaque fois les quatres objets sont répartis differament dans les 3
boites ou tranches.
Ce que je cherche ce sont toutes les répartitions possibles pour un
total donné.

En espérant avoir été plus clair

merci



Bonsoir.
Je n'ai pas trop compris ton exemple; peux-tu détailler davantage ?
Cordialement.
Daniel
"PST" a écrit dans le message de news:
47c0d3f3$0$847$
Bonjour

Répartition chiffre par tranches macro

Soit un certain nombre de tranches, dans l'exemple 3 tranches

Comment répartir par macro, le nombre pouvant contenir chaque tranche
de façon à avoir toutes les répartitions possibles pour arriver à un
certain chiffre, 4 dans cet exemple
Pour résumer aucune tranche ne doit avoir plus de 4 si l'on veut arri ver
a un total de 4 pour les 3 tranches


je voudrais avoir si possible la même chose que l'exemple, avec la
possibilté de choisir le nombre de tranche et le total des tranches

Merci

T__1 >>> 1 à 100
T__2 >>> 101 à 200
T__3 >>> 201 à 300

Exemple pour tranche de 3 avec répartition pour total de 4

T__1 T__2 T__3 TOTAL DES 3 TRANCHES
0 0 4 4
0 1 3 4
0 2 2 4
0 3 1 4
0 4 0 4
1 0 3 4
1 1 2 4
1 2 1 4
1 3 0 4
2 0 2 4
2 1 1 4
2 2 0 4
3 0 1 4
3 1 0 4
4 0 0 4




Avatar
PST
Bonsoir cette solution donnée par ninbihan répond à ma question

merci

Sub test()
Dim i As Double
Dim nbchamps As Single
Dim totchamps As Single

Cells.ClearContents
nbchamps = InputBox("Entrez le nbre de champs")
totchamps = InputBox("Entrez le total")

For i = 1 To nbchamps
Cells(1, i) = "Ch " & i
Next i

j = 2

For i = 10 ^ nbchamps - 1 To 0 Step -1
If sommeint(i) = totchamps Then
For k = nbchamps To 1 Step -1
Cells(j, k) = Right(Int(i / 10 ^ (k - 1)), 1)
Next k
j = j + 1
End If
Next i
End Sub

Function sommeint(valeur As Double) As Double
For i = 1 To Len(CStr(valeur))
sommeint = CDbl(Mid(CStr(valeur), i, 1)) + sommeint
Next i
End Function


Bonsoir
merci pour la réponse
Soit x tranche et y total
Dans mon exemple 3 tranches pour un total de 4

En prenant comme exemple 3 boites, 4 objets a y mettre
ex:
1 objet dans la 1 ère , 3 dans la 2 ème
1 objet dans la 1 ère , 3 dans la 3 ème
3 objets dans la 2 ème , 1 dans la 3 ème

A chaque fois les quatres objets sont répartis differament dans les 3
boites ou tranches.
Ce que je cherche ce sont toutes les répartitions possibles pour un
total donné.

En espérant avoir été plus clair

merci



Bonsoir.
Je n'ai pas trop compris ton exemple; peux-tu détailler davantage ?
Cordialement.
Daniel
"PST" a écrit dans le message de news:
47c0d3f3$0$847$
Bonjour

Répartition chiffre par tranches macro

Soit un certain nombre de tranches, dans l'exemple 3 tranches

Comment répartir par macro, le nombre pouvant contenir chaque tranch e
de façon à avoir toutes les répartitions possibles pour arriver à un
certain chiffre, 4 dans cet exemple
Pour résumer aucune tranche ne doit avoir plus de 4 si l'on veut arr iver
a un total de 4 pour les 3 tranches


je voudrais avoir si possible la même chose que l'exemple, avec la
possibilté de choisir le nombre de tranche et le total des tranches

Merci

T__1 >>> 1 à 100
T__2 >>> 101 à 200
T__3 >>> 201 à 300

Exemple pour tranche de 3 avec répartition pour total de 4

T__1 T__2 T__3 TOTAL DES 3 TRANCHES
0 0 4 4
0 1 3 4
0 2 2 4
0 3 1 4
0 4 0 4
1 0 3 4
1 1 2 4
1 2 1 4
1 3 0 4
2 0 2 4
2 1 1 4
2 2 0 4
3 0 1 4
3 1 0 4
4 0 0 4