XL 2013 Dispatching des nombres sous conditions

[Galaxy_2019]

Bonjour à tous,

J'ai un tableau avec la plage d9: m100. Je souhaite distribuer aléatoirement (avec un bouton VBA) les nombres de 01 jusqu'à le nombre dans la cellule S9 dans la plage d9: m100 selon les conditions suivantes:

1- Distribution aléatoire dans la plage D9:M100 de 01 au numéro de la cellule S9 et ne répétant pas le même numéro dans la même ligne, et remplacez le nombre répété par un autre numéro
2- Le nombre de colonnes dans lesquelles la répartition est autorisée est égal au nombre de la cellule S10
3 - La répartition s'effectue uniquement dans les cellules vides de la plage D9:M100
4- serait-il possible d'inclus des message d'erreur lors


En attachement un fichier exemple.

Cordialement.

 

[sylvanu]

Bonjour Galaxy,
Un essai en PJ.
Mais doit on remplir toutes les lignes y compris celles qui n'ont pas de lettres ?
Dans la PJ je remplis tout.

 

[Galaxy_2019]

Bonjour Sylvanu,

Merci infiniment pour votre réponse et pour le ficher

Effectivement, oui on doit remplir toutes les lignes vides y compris celles qui n'ont pas de lettres

Sur votre fichier le dispatching commence par le zéro (0), alors que:

Le nombre « 0 » n'est pas lié à la distribution, car la distribution est aléatoire, commençant par 01 jusqu'au nombre dans la cellule S9.

Le nombre de colonnes = le nombre dans la cellule (S10) ainsi que le nombre maximum de colonnes pouvant être saisies dans la cellule S10 ne peut pas dépasser le nombre maximum des colonnes dans le tableau, si le contraire un message d'erreur s'affiche comme vous l'avez fait

Merci encore une fois pour votre efforts

Cordialement

 

[sylvanu]

Le nombre « 0 » n'est pas lié à la distribution, car la distribution est aléatoire, commençant par 01 jusqu'au nombre dans la cellule S9.

Oups, rectifié en PJ.

 

[Galaxy_2019]

Oups, rectifié en PJ.

Merci le zéro n'est pas inclus, et pour le besoin ci-dessous, serait-il possible de trouver une solution:

Le nombre de colonnes = le nombre dans la cellule (S10) ainsi que le nombre maximum de colonnes pouvant être saisies dans la cellule S10 ne peut pas dépasser le nombre maximum des colonnes dans le tableau, si le contraire un message d'erreur s'affiche comme vous l'avez fait

Merci beaucoup

 

[sylvanu]

En fait il y a deux messages d'erreur, le premier si Nmax<nbcol:

Le second si Ncol>10 :

Mais si vous avez les 2 erreurs il y a priorité pour le premier, donc vous ne le voyez pas.

 

[sylvanu]

Si cela est gênant, une V3 en PJ où je concatène les erreurs :

 

[Galaxy_2019]

Bonjour,

Le nombre maximum qui est autorisé a saisir sur la cellule S10 = le nombre des colonnes du tableau D9:M100 et pas au nombre de la cellule S9.

Cordialement

 

[sylvanu]

Alors je n'ai rien compris.
Si je choisis 9 colonnes mais un Nmax de 5, alors j'aurais fatalement des doublons car remplir 9 cellules avec des nombres allant de 1 à 5 sans doublon est impossible.
Donc j'ai mis un Nmax possibles limité à Ncol.

 

[klin89]

Bonsoir à tous,

Comprends pas trop non plus.
A partir de votre premier exemple, ressortez alors toutes les permutations de 5 éléments parmi 9.
Klin89

 

[sylvanu]

Bonjour Klin,

Comprends pas trop non plus.

Peut être auront nous quelques éclaircissement de la part de Galaxy.
A défaut, cela restera un post de plus qui restera dans les limbes de l'incompréhension.

 

[Galaxy_2019]

Bonjour à tous,

Désolé pour le retard

Effectivement Sylvanu, vous avez raison le nombre de colonnes ne dépasse pas le num Max, merci pour votre réponse c'est formidable

Autres choses:

Pourriez-vous s'il vous plaît m'aider avec d'autres choses concernant ce fichier.

- Nous avons une autre cellule S8 qui comprend le nombre maximum de lignes autorisées pour la saisie de données (c'est-à-dire : si le nombre est 12 dans la cellule S8 alors le nombre de lignes pouvant être distribuées est de 12 lignes)

- Est-il possible qu'un même nombre soit répété seulement deux fois et pas plus dans chaque colonne selon la valeur de S9 (par exemple : si la valeur de S9 est égale à 7, alors tous les nombres doivent être répétés deux fois aléatoirement dans chaque colonne , en tenant compte de la première condition, qui est de ne pas répéter les nombres en lignes)

- Permettre qu'un seul chiffre soit répété deux fois dans deux lignes différentes (par exemple, si le chiffre 3 est répété, par exemple, dans la ligne 10 et répété dans la ligne 15, cela est autorisé, mais si un autre chiffre, comme le chiffre 7, est répété dans ces deux lignes, cela ne peut pas être autorisé).

- Remplacez le nombre de cellules contenant des lettres par des cellules contenant des chiffres en fin de colonne (selon les conditions mentionnées précédemment, à l'exception de la condition du nombre de lignes).

En pièce jointe le fichier.

Cordialement.

 

[sylvanu]

Bonsoir,
Ca, je ne sais pas faire, c'est trop l'usine à gaz. Je laisse à d'autres plus futé de résoudre le problème.
D'autre part il y a trop de contraintes et d'impossibilités.
Par ex des nombres de 1 à 9 et 10 lignes, fatalement il y aura des doublons.
"Remplacez le nombre de cellules contenant des lettres par des cellules contenant des chiffres en fin de colonne", fatalement cela pourrait créer des doublons
...

 

[Galaxy_2019]

Bonjour Le forum,

Quelqu'un peut m'aider svp !!!!!

Cordialement.

 

[Galaxy_2019]

Bonsoir,
Ca, je ne sais pas faire, c'est trop l'usine à gaz. Je laisse à d'autres plus futé de résoudre le problème.
D'autre part il y a trop de contraintes et d'impossibilités.
Par ex des nombres de 1 à 9 et 10 lignes, fatalement il y aura des doublons.
"Remplacez le nombre de cellules contenant des lettres par des cellules contenant des chiffres en fin de colonne", fatalement cela pourrait créer des doublons
...

Bonjour Sylvanu,

J'ai trouvé ce code qui peut faire la deuxième partie de mon souci, mais j'ai pas pu faire combiner les deux codes (Votre code et celui-là) sur un seul code vba, pouvez-vous m'aider svp

Le code:

Sub Dispatche_Test ()

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False


Dim X&, Y&, i&, R&, cnt&


For Each C In Range("d9:m100")
If C.Value = [s1] Or C.Value = [s2] Or C.Value = [s3] Then GoTo 1
C.ClearContents
1 Next


For i = 4 To [S10] + 3
cnt = Application.CountA(Range(Cells(9, i), Cells(100, i)))
For R = 9 To [s8] + 8 + cnt
If Not (IsEmpty(Cells(R, i))) Then GoTo 2
Randomize
3 X = Int(([S9]) * Rnd + 1)
Cells(R, i) = X
Y = WorksheetFunction.CountIf(Range(Cells(9, i), Cells(R, i)), X)
If Y > 2 Then GoTo 3
TirageAuSort
2 Next R
Next i


Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub


Merci pour votre support
Cordialement