-
Compteur de contenus
661 -
Inscription
-
Dernière visite
Type de contenu
Profils
Forums
Blogs
Tout ce qui a été posté par scuny
-
Comment créer une archive .CAB?
scuny a répondu à un(e) sujet de gringojack dans Optimisation, Trucs & Astuces
sinon IZARC sait faire des .CAB et izarc est free. http://izarc.free.fr/ -
mais nooooooooooooooon! il chante en allemand!
-
minute quoi. j'arrive. donc ouvrir excel, puis faire ALT + F11 dans la fenetre clic "insertion" puis "nouveau module" colle dedans ce qui suit Public ValTotal As String Public ValPass As String Sub Demarrer() Dim ValAleatoire As Integer Dim Longueur As Integer ValTotal = "" 'nettoyage de la variable (cas de plusieurs utilisation a la suite) Longueur = 0 'init de la variable suite: Randomize ' Initialise le générateur de nombres aléatoires. ' Renvoie une valeur aléatoire comprise entre 1 et 16. ValAleatoire = Int((16 * Rnd) + 1) ' éviter le chiffre 10 If ValAleatoire = 10 Then GoTo suite 'traitement de l'ajout d'un nombre If ValAleatoire < 10 Then 'si compris entre 1 et 9 utiliser tel quel ValPass = ValAleatoire GoTo saut End If ValPass = "V" & ValAleatoire 'si plus de 10 ==> table de correspondance Call TableEqui saut: 'ajout des valeurs ValTotal = ValTotal & ValPass Longueur = Longueur + 1 'compteur de la longueur du password If Longueur < 7 Then GoTo suite Else 'MsgBox "le password est : " & ValTotal 'montrer le password (a supprimer dans un mode normal) Call Ecriture 'ecrire le password End If End Sub Sub TableEqui() If ValPass = "V11" Then ValPass = "a" End If If ValPass = "V12" Then ValPass = "b" End If If ValPass = "V13" Then ValPass = "d" End If If ValPass = "V14" Then ValPass = "*" End If If ValPass = "V15" Then ValPass = "?" End If If ValPass = "V16" Then ValPass = "&" End If End Sub Sub Ecriture() Dim DerLigneUser Dim DerLignePass 'attention! on commence a écrire en ligne 2 Sheets("Feuil1").Select 'selection de la feuille DerLigneUser = Cells(Cells.Rows.Count, "A").End(xlUp).Row 'trouver la dernière ligne occupé dans la colonne des noms DerLignePass = Cells(Cells.Rows.Count, "C").End(xlUp).Row 'trouver le dernier pass If DerLigneUser <= DerLignePass Then 'verif entre les colonnes noms et password MsgBox "fin de l'opération" Exit Sub Else Range("Feuil1!C" & (DerLignePass + 1)).Value = ValTotal 'ecrire le password ValTotal = "" Call Demarrer 'recommencer l'opération End If End Sub dans le sub TableEqui tu rajoute les équivalences que tu veux. voila. A +
-
on attend vos avis pour éclaircir ce point nébuleux du vocabulaire ! le Petit Larousse et le Grand Robert ayant, lamentablement, échoué ! faites chauffer vos méninges ! le sort de la langue française dépend de vous ! PS: le uof odom est prié de se tenir coi !
-
Le retour de l'inspecteur parmis vous
scuny a répondu à un(e) sujet de Inspecteur Derrick dans J'ai vraiment rien à dire...
rien ! rien du tout, même ! mais bon, ici, c'est le jvrad ! donc... il est parfaitement normal que tu sois impliquée dans un truc qui ne te regardait pas à l'origine ! on se demande d'ailleurs si tout cela est le fruit du hasard ou le fait d'un gentleman déjanté ? huuuuuum ? on se le demande ! si si ! je le vois bien, que tu te poses la question ! donc je réponds ! a gentleman is a man who can play bagpipe and who does not ! moi je m'en fous ! je ne joue que du tire-bouchon ! A+ -
qu'est ce qu'on mange! (me demande si je suis bien dans l'esprit du post, là! )
-
tu créé (dans ton code) une table de correspondance 1 =a 2 = b etc (tu peux compliquer a l'envie avec des majuscules ou des caractères spéciaux) puis avec "random" tu demande au systeme de générer un chiffre aléatoire compris entre 1 et le dernier numero de ta table de correspondance. tu ajoutes a ta variable create_pass le resultat et tu recomence autant de fois que nécéssaire pour avoir la longueur de password. et voila. bien évidement cela se fait en vba. (les macros excel) a+
-
Le retour de l'inspecteur parmis vous
scuny a répondu à un(e) sujet de Inspecteur Derrick dans J'ai vraiment rien à dire...
haaaaaaaaaaaaaa! c'est un frangin a neyra???? -
Le retour de l'inspecteur parmis vous
scuny a répondu à un(e) sujet de Inspecteur Derrick dans J'ai vraiment rien à dire...
mais c'est qui ce gars la! -
ha! ca! behemot! pour remuer! ca remue! neurones compris!
-
Encore un jeu... mais pas débile cette fois, stratégique...
scuny a répondu à un(e) sujet de neyra dans J'ai vraiment rien à dire...
toujours 2! les meurés marchent toujours par 2! comme les daltons! si! senor! -
[SALC] Quel âge a Neyra ?
scuny a répondu à un(e) sujet de Phantom-X dans J'ai vraiment rien à dire...
yessssssssssssssssssssss! me demande si cela ne mérite pas un post dédier! -
Encore un jeu... mais pas débile cette fois, stratégique...
scuny a répondu à un(e) sujet de neyra dans J'ai vraiment rien à dire...
un modo agacé! il sort l'article 7 de la constitution zebulonienne et atomise les posts a la con, sans mettre d'explication, ce qui déclenche le post d'un demeuré (au choix) se demandant pourquoi ca a fermer!!!!!!! ps: pour toute réclamation, voir ma signature!!!!!! -
aprend, ho, vénérable ancêtre, que je ne drague pas! j'escroque!!!!! ce qui, tu en conviendras, n'est pas la même chose! et puis d'abord, si elle cède, je prêterais pas! na! ca t'apprendras a faire des insinuations douteuse! (ce que je ne me serais pas permis, moua, soit dit en passant!)
-
Zeb ne respecte pas les standards W3C
scuny a répondu à un(e) sujet de fantassin-06 dans J'ai vraiment rien à dire...
sans compter avec la possible confusion :: lord se barre! -
Zeb ne respecte pas les standards W3C
scuny a répondu à un(e) sujet de fantassin-06 dans J'ai vraiment rien à dire...
ouaip! et sous la plage! les cadavres! ha ca ira ca ira les aristocrates a la lanterne ha ca ira ca ira les arisocrates on les ..... (tiens! salut lord! ca va? ) mouarrrrrrrrrrrrrffffffffffffffffff! -
[SALC] Quel âge a Neyra ?
scuny a répondu à un(e) sujet de Phantom-X dans J'ai vraiment rien à dire...
olive! fais gaffe! y'a neyra qui se pointe chez toi! -
Encore un jeu... mais pas débile cette fois, stratégique...
scuny a répondu à un(e) sujet de neyra dans J'ai vraiment rien à dire...
la CGT! qui tue le syndicalisme! (ha! ca derape, ca derape! ) -
@neyra : on peut faire de la purée avecv des tas de choses! tu sais! y'a pas que les patates, dans la vie! @magret : planque tes plumes! j'ai faim!
-
mouaaaaaaaaaaaaaaaaaaarrrrrrrrrrrrrrrrrrrrrrrrffffffffffffffffffffffffffffffffffffffff! t'inquiète! ca ne se voit pas trop!
-
[SALC] Quel âge a Neyra ?
scuny a répondu à un(e) sujet de Phantom-X dans J'ai vraiment rien à dire...
et encore! t'as pas vu son jardin! -
des frites? de la purée? hummmmmmmmmmm! j'ose pas!
-
Encore un jeu... mais pas débile cette fois, stratégique...
scuny a répondu à un(e) sujet de neyra dans J'ai vraiment rien à dire...
le rantanplanchien! fait echouer le luyckylukien! -
MUSICALEMENT ?????????????????????
-
psttttttttttttttttttttt! neyra! je peux avoir le négatif de la photo de ton avatar????