XL 2013 [RESOLU] Tirage au sort

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
 

Fichiers joints

BENAM69

XLDnaute Occasionnel
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.
 

Eric C

XLDnaute Accro
Bonjour le forum
Bonjour BENAM

Essaies avec ceci :
VB:
For i = 1 To nbrItem
 Cells(i + 4, 7).Value = t(i)
Next
@+ Eric c
 

BENAM69

XLDnaute Occasionnel
Bonjour le forum
Bonjour BENAM

Essaies avec ceci :
VB:
For i = 1 To nbrItem
Cells(i + 4, 7).Value = t(i)
Next
@+ Eric c
Salut Eric C

Top Top ^^. Dire qu'il fallait juste mettre un 1 et un +4 -_- ^^

Merci pour ton aide c'est génial !!!

A+

Benam
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas