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