Bonjour,
Dans mon tableur j'ai déja 1400 lignes correspondant chacune à une personne.
J'aimerai creer une nouvelle colonne "password" et atribuer un mot de passe
aléatoirement pour chaque personne.
Avez vous une solution à me proposer?
Merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
Pour avoir 1400 mots de passe de 10 caractères en colonne A, très faciles à mémoriser et à saisir :
Sub zz_Pass() [A:A].NumberFormat = "@" Application.ScreenUpdating = False For x = 1 To 1400 For y = 1 To 10 pass = pass & [char(int(rand()*(255-161)+161))] Next y Cells(x, "A") = pass: pass = "" Next x End Sub
:-)) Pour des caractères plus civilisés, changer 255 en 122 et 161 en 33 AV "mrbug" a écrit dans le message news: bfudou$a2h$
Bonjour, Dans mon tableur j'ai déja 1400 lignes correspondant chacune à une personne. J'aimerai creer une nouvelle colonne "password" et atribuer un mot de passe aléatoirement pour chaque personne. Avez vous une solution à me proposer? Merci
Pour avoir 1400 mots de passe de 10 caractères en colonne A, très faciles à
mémoriser et à saisir :
Sub zz_Pass()
[A:A].NumberFormat = "@"
Application.ScreenUpdating = False
For x = 1 To 1400
For y = 1 To 10
pass = pass & [char(int(rand()*(255-161)+161))]
Next y
Cells(x, "A") = pass: pass = ""
Next x
End Sub
:-))
Pour des caractères plus civilisés, changer 255 en 122 et 161 en 33
AV
"mrbug" <romain.taldu@wanadoo.fr> a écrit dans le message news:
bfudou$a2h$1@news-reader5.wanadoo.fr...
Bonjour,
Dans mon tableur j'ai déja 1400 lignes correspondant chacune à une personne.
J'aimerai creer une nouvelle colonne "password" et atribuer un mot de passe
aléatoirement pour chaque personne.
Avez vous une solution à me proposer?
Merci
Pour avoir 1400 mots de passe de 10 caractères en colonne A, très faciles à mémoriser et à saisir :
Sub zz_Pass() [A:A].NumberFormat = "@" Application.ScreenUpdating = False For x = 1 To 1400 For y = 1 To 10 pass = pass & [char(int(rand()*(255-161)+161))] Next y Cells(x, "A") = pass: pass = "" Next x End Sub
:-)) Pour des caractères plus civilisés, changer 255 en 122 et 161 en 33 AV "mrbug" a écrit dans le message news: bfudou$a2h$
Bonjour, Dans mon tableur j'ai déja 1400 lignes correspondant chacune à une personne. J'aimerai creer une nouvelle colonne "password" et atribuer un mot de passe aléatoirement pour chaque personne. Avez vous une solution à me proposer? Merci