Affecter 0 ou 1 aléatoirement selon un parametre défini
Bonjour,
J'ai un fichier de 20 000 lignes sur 40 colonnes. La première colonne contient des 0 (non actif) ou des 1 (actif), pour dire si oui ou non les données qui se trouvent dans les 39 autres colonnes seront visibles/actives lors de son import dans le systeme.
Hors je souhaiterai affecté aléatoirement des 0 et des 1 à cette première colonne, sachant que je souhaiterai qu'il y est par exemple seulement 102 lignes comportant le chiffre 1. (102 étant un exemple sur lequel je pourrai agir).
Peu importe où seront placés ces 1, puisque le but étant que ce soit aléatoirement placé dans les 20 000 lignes, mais qu'il y en est que 102.
Un peu confus suis-je ?
PS : J'ai bien essayé la fonction ALEA, mais évidemment, je n'arrive pas à la borner comme je le souhaite.
Bonjour,
Bonjour,
J'ai un fichier de 20 000 lignes sur 40 colonnes. La première colonne contient des 0 (non actif) ou des 1 (actif), pour dire si oui ou non les données qui se trouvent dans les 39 autres colonnes seront visibles/actives lors de son import dans le systeme.
Or je souhaiterais affecter aléatoirement des 0 et des 1 à cette première colonne, sachant que je souhaiterais qu'il y ait par exemple seulement 102 lignes comportant le chiffre 1. (102 étant un exemple sur lequel je pourrai agir).
Peu importe où seront placés ces 1, puisque le but étant que ce soit aléatoirement placé dans les 20 000 lignes, mais qu'il n'y en ait que 102.
Un peu confus suis-je ?
PS : J'ai bien essayé la fonction ALEA, mais évidemment, je n'arrive pas à la borner comme je le souhaite.
une proposition via une macro
Sub aargh()
Dim a(1 To 20000) As Integer
q = Val(InputBox("nombre de lignes auxquelles donner la valeur 1 en colonne A"))
For i = 1 To q
Do
s = Application.RandBetween(1, 20000)
Loop Until a(s) = 0
a(s) = 1
Next i
Cells(1, 1).Resize(20000) = Application.Transpose(a)
End SubVous êtes trop fort ! Et à chaque fois c'est vous qui trouvez ! Bravo !