Mélanger des chiffres

[sonia78]

Bonjour !
J'aimerais savoir comment on fait pour mélanger un liste de chiffres (environ 300 cellule et deux colonne ) les chiffres doivent être en 1 et 1500 et doivent être aléatoire il ne doivent revenir deux fois

 

[Dranreb]

Bonsoir.
J'ai un module de classe ListeAléat, facile à utiliser, qui serait très bien pour ça.

 

[sonia78]

Bonsoir.
J'ai un module de classe ListeAléat, facile à utiliser, qui serait très bien pour ça.

super ou je prend se module

 

[Dranreb]

Il y a quelque classeurs nommés de la forme ListeAléatPseudo.xlsm dans les discussions où j'ai répondu, à défaut d'un ListeAléatSonia78.xlsm ici, équipé à partir d'un classeur joint de votre part.

Maintenant, au plus simple, je peux le créer…

 

[Modeste geedee]

Bonsour®

Bonjour !
J'aimerais savoir comment on fait pour mélanger un liste de chiffres (environ 300 cellule et deux colonne ) les chiffres doivent être en 1 et 1500 et doivent être aléatoire il ne doivent revenir deux fois

Bonjour !
J'aimerais savoir comment on fait pour mélanger un liste de chiffres (environ 300 cellule et deux colonne ) les chiffres doivent être en 1 et 1500 et doivent être aléatoire il ne doivent revenir deux fois

voir pièce jointe

 

[Dranreb]

Pour 2 colonnes :

Sub NumL300C2De1500()
Dim T(1 To 300, 1 To 2), L&, C&
Randomize
With New ListeAléat
   .Init 1500
   For L = 1 To 300: For C = 1 To 2: T(L, C) = .Suivant: Next C, L
   End With
ActiveSheet.[B2].Resize(300, 2).Value = T
End Sub