XL 2010 Macro VBA Excel (Doublon,SansAccents,Maj,Min,Nompropre,Espaces superflus)

[Virginie17d]

 

[Virginie17d]

C'est fou ce que ce fil est prenant, désolé pour les autres demandeurs d'XLD, ils sont un peu délaissés ce soir !

Je sais que mes sujets sont passionnant mais n'hésitez pas à me délaisser si vous avez d'autres sollicitations, moi je me lance dans une nouvelle Macro de recherche V

 

[patricktoulon]

re
une petite demo de principe

Sub test()
    For i = 1 To 10
        createMDP
    Next
End Sub

Function createMDP()
    Randomize
    nbchar = InputBox("nombre de caracteres", "keygen", 16)
re1:
    nbc = (Round(Rnd * (nbchar * 0.75)))
    nbsp = 2
    nbnum = nbchar - nbc - nbnum
    MsgBox "il y aura " & vbCrLf & nbc & " carateres " & vbCrLf & nbnum & " numeriques" & vbCrLf & nbsp & " caracteres speciaux"

    For i = 1 To nbc
    'selection de carateres "a à z"
    Next
    
    For i = 1 To nbnum
    'selection de numeriques de 0 à 9
    Next
    
    For i = 1 To 2
    'selection de carateres speciaux
    Next


End Function

oui Thierry tu a raison
msgbox selection.column donne la first column
j'ai déraillé un peu
dans ce contexte, toujours est il que tu y viendra c'est le usedrange.specialcells(xllastcell).row qui sera la meilleurs option
cela dit perso je travaillerais sur 1 colonne sauf pour le concat bien entendu

encore du boulot en perspective
on l'aurait pas cru comme ça hein

 

[eriiic]

Re,

C'est bien selection.column (sans s) pour avoir la 1ère.
Mais il ne faut pas rajouter .Addresss puisqu'on récupère 6 directement.
Ca fatigue ici... ;-)
eric

 

[patricktoulon]

re
je l'ai retrouvé
voir ici

[XL-2010] générateur des mots de passe - Macros et VBA Excel

Je suis en train de cherche sur es forum pour crée un générateur de mot de passe vu un besoin sur mon boulot Pour le moment jai bien réussi a mettre un code vba « fonction » qui permet de faire ce travail sauf

www.developpez.net

et je viens de le reconstruire en vitesse

 

[patricktoulon]

oui ca fatigue
mais j'ai tourner ca dans tout les sens et c'est pas une solution 100% le multicolumn ou le end (xlup) de l'une d'entre elles
pas bon pas bon pas bon

 

[patricktoulon]

bon on a bien bossé
bye!

 

[eriiic]

La 1ère colonne c'est la 1ère colonne, même si sélection multiple
Quoiqu'il en soit c'est sans .Address

 

[Virginie17d]

re
je l'ai retrouvé
voir ici

[XL-2010] générateur des mots de passe - Macros et VBA Excel

Je suis en train de cherche sur es forum pour crée un générateur de mot de passe vu un besoin sur mon boulot Pour le moment jai bien réussi a mettre un code vba « fonction » qui permet de faire ce travail sauf

www.developpez.net

et je viens de le reconstruire en vitesse

J'ai un message d'erreur,

J'essaye de comprendre, on sait jamais

 

[patricktoulon]

je vois pas ce range vient faire dans cet exemple

 

[Virginie17d]

J'ai un message d'erreur,

Regarde la pièce jointe 1065556

J'essaye de comprendre, on sait jamais

J'ai rien dit, je mettais à jours mon VBA mais lançais via l'icone au lieu du User Form, par contre la méthode précédente m'inscrivait directement les mots de passe dans la colonne "D".

 

[patricktoulon]

c'est juste un principe le moteur est bon on pourrait l'adapter aux tiens

 

[Virginie17d]

c'est juste un principe le moteur est bon on pourrait l'adapter aux tiens

Chaque jour suffit sa peine, on verra cela à tête reposée Merci

 

[_Thierry]

Bonjour @ Vous !!! (Enfin bonne nuit si vous êtes encore là !)

Bon j'ai fignolé pas mal de trucs, y compris ce que j'avais annoncé :

Et le Entire-Multi-Columns...

Je pense avoir fixé aussi le bug des "Login" avec des résidus en trop ou de #N/A...

J'ai fait un "Controller" centralisé, c'est plus simple...

Enfin amusez-vous en découvrant !

Virginie j'ai voulu voir ta XLAM v02, mais le Ribbon ne vient pas, j'aurais bien aimé voir le bouton de "Spéciale dinde de la Techno" LoL mais ca ne passe pas chez moi ...

PS : Testé avec le Fichier de Test qui a plus de colonnes que prévu, sans souci...(Inclus dans le Zip aussi)

Bonne journée !
@+Thierry

 

[Virginie17d]

Bonjour @ Vous !!! (Enfin bonne nuit si vous êtes encore là !)

Bon j'ai fignolé pas mal de trucs, y compris ce que j'avais annoncé :

Regarde la pièce jointe 1065564


Et le Entire-Multi-Columns...
Regarde la pièce jointe 1065565

Je pense avoir fixé aussi le bug des "Login" avec des résidus en trop ou de #N/A...

J'ai fait un "Controller" centralisé, c'est plus simple...

Enfin amusez-vous en découvrant !

Virginie j'ai voulu voir ta XLAM v02, mais le Ribbon ne vient pas, j'aurais bien aimé voir le bouton de "Spéciale dinde de la Techno" LoL mais ca ne passe pas chez moi ...

PS : Testé avec le Fichier de Test qui a plus de colonnes que prévu, sans souci...(Inclus dans le Zip aussi)

Bonne journée !
@+Thierry

Hello Thierry, hello everybody

j’ai rendue l’âme vers 2h30 sinon j’allais jamais dormir. Je vois que tu ne lache rien, je vais tester tout cela et je te fais mes commentaires.
Pour le spécial dinde de la techno c’est le petit nom affectif des filles de mon équipe Il y avait rien d’extra, c’est juste un bouton en attente.

bonne journée, je vais essayé de gérer la petite. Hier j’ai croisé dans les couloirs de la maison mes enfants, ont à même discutés. Ils ont l’air sympas, je devrais faire ça plus souvent

 

[patricktoulon]

bonjour
et allez on en rajoute une
pour ma part je me suis intéresse au MDP
et virginie j'ai adapté mon moteur
j'ai revu maj min proper aussi
je trouvait absolument absurde que dans tout les case c'est le debud > end(xlup) qui devait primer donc maintenant si la selection est colonne entière c'est le end(xlup) si la selection est plus petite que le end(xlup) ben c'est la selection
bien sur une seul colonne est possible
j'ai éliminer ce if else qui fonctionne mais qui faisait finalement tourner le bourrin pour rien
si une condition ne correspond pas on sort tout simplement
c'est sur ce point ou j'etais en désaccords avec Thierry

costauds les MDP

j'ai donc fait un xlsm pour travailler tranquillement

a tester comme tel