XL 2013 [RESOLU] Tirage au sort

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

BENAM69

XLDnaute Occasionnel
Bonjour à tous,

Je suis tombé sur ce sujet et en lisant j'ai trouvé un code qu'avait posté un internaute et je l'ai légèrement modifié.
Code:
Sub TriAleatoireConditionnel()
 
nbrItem = 13
 
ReDim t(1 To nbrItem)
 
For i = 1 To nbrItem
 t(i) = i
Next
 
Randomize Timer
 
For i = 1 To nbrItem
    A = i 'sujet A
 'inverser le choix du sujet A avec le choix d'un autre sujet choisi aleatoirement
 ok = False
 While ok = False
 
  'choisir sujet B different de sujet A
   B = A
  While B = A
   B = Int(nbrItem * Rnd) + 1
  Wend
 
  'Inversion conditionnelle
  'inverser leurs choix a la condition de ne pas se choisir soi-meme
  If t(B) <> A And t(A) <> B Then
   tmp = t(A):  t(A) = t(B):  t(B) = tmp
   ok = True
  End If
 
 Wend
 
Next
 
For i = 5 To nbrItem
 Cells(i, 3).Value = t(i)
Next
 
End Sub

Sub TriAleatoireConditionnel1()
 
nbrItem = 13
 
ReDim t(1 To nbrItem)
 
For i = 1 To nbrItem
 t(i) = i
Next
 
Randomize Timer
 
For i = 1 To nbrItem
    A = i 'sujet A
 'inverser le choix du sujet A avec le choix d'un autre sujet choisi aleatoirement
 ok = False
 While ok = False
 
  'choisir sujet B different de sujet A
   B = A
  While B = A
   B = Int(nbrItem * Rnd) + 1
  Wend
 
  'Inversion conditionnelle
  'inverser leurs choix a la condition de ne pas se choisir soi-meme
  If t(B) <> A And t(A) <> B Then
   tmp = t(A):  t(A) = t(B):  t(B) = tmp
   ok = True
  End If
 
 Wend
 
Next
 
For i = 5 To nbrItem
 Cells(i, 7).Value = t(i)
Next
 
End Sub



J'ai utilisé le code car cela répondait parfaitement à mon besoin. Malheureusement, quand je place le remplissage à la ligne 4, colonne 3, il me manque des chiffres au moment du remplissage.
Par exemple,

Code:
nbrItem = 13

et
Code:
For i = 5 To nbrItem
 Cells(i, 7).Value = t(i)
Next


Je suis censé avoir un remplissage des chiffres de 1 à 13 ordonné aléatoirement sur la plage choisie. Malheureusement, il n'y a que 9 chiffres qui apparaissent. Savez-vous comment faire ?

Je vous remercie par avance de votre retour.

Je vous mets en PJ la pièce jointe.

Bien à vous

Benam
 

Pièces jointes

Re,

Modification sur une des lignes explicatives :

J'ai utilisé le code car cela répondait parfaitement à mon besoin. Malheureusement, quand je place le remplissage à la ligne 5, colonne 7, il me manque des chiffres au moment du remplissage.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
Réponses
3
Affichages
582
Retour