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

patricktoulon · 7 Mai 2020

re
a mince Bonjour Thierry je l'ai mis a jour avec la fonction eriiiic aussi

Virginie17d · 3 Mai 2020

_Thierry à dit:
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 · 4 Mai 2020

re
une petite demo de principe

VB:

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 · 4 Mai 2020

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 · 4 Mai 2020

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 · 4 Mai 2020

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 · 4 Mai 2020

bon on a bien bossé
bye!

eriiic · 4 Mai 2020

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 · 4 Mai 2020

patricktoulon à dit:
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 · 4 Mai 2020

je vois pas ce range vient faire dans cet exemple

Virginie17d · 4 Mai 2020

Virginie17d à dit:
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 · 4 Mai 2020

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

Virginie17d · 4 Mai 2020

patricktoulon à dit:
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 · 4 Mai 2020

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 · 4 Mai 2020

_Thierry à dit:
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 · 4 Mai 2020

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

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

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

Discussions similaires