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