super ou je prend se moduleBonsoir.
J'ai un module de classe ListeAléat, facile à utiliser, qui serait très bien pour ça.
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 jointeBonjour !
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