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

patricktoulon à dit:

re
petit correctif

VB:

Sub Concat()
    Dim conc(), n&, i&, bool&, x1$, x2$
    With ActiveSheet
        'comme on commence le tableau en ligne 1 pas la peine de se casser la tete
        n = ActiveSheet.UsedRange.Rows.Count
        ReDim conc(1 To n)
        For i = 2 To n
            x1 = Trim(UCase(Replace(Replace(Replace(.Cells(i, 7).Value, "-", ""), "'", ""), " ", "")))
            x2 = Trim(UCase(Replace(Replace(Replace(.Cells(i, 8).Value, "-", ""), "'", ""), " ", "")))
             trim(conc(i - 1) = (x1 & " " & x2) & "/EXCEL" )   'modifier le nom de l'entité avant de lancer
        Next i
        Application.EnableEvents = False
        .Cells(2, 3).Resize(UBound(conc) + 1, 1).Value = Application.Transpose(conc)
        Application.EnableEvents = True
    End With
End Sub

Cliquez pour agrandir...

_Thierry à dit:

Ah oui je suis sûr que Viginie va adorer "décortiquer" une macro de classe , ça tombe bien elle est "à l'école"

@+Thierry

Cliquez pour agrandir...

Virginie17d à dit:

Moque toi, en attendant, je vous pique les fichiers pour ma montée en compétence, et puis j'ai tout de même réussi à aller dans Custom UI et ajouter un icone (avec la table de correspondance de Patrick) et créer un Macro pour la génération de mot de passe aléatoire.
Bon Elle est loin d'être optimisé mais elle à le mérite de fonctionner

Cliquez pour agrandir...

_Thierry à dit:

Re Patrick

Je vais regarder ça, mais entre-temps donc voici une "XLAM" pour Virginie qui ne contient donc plus de Feuilles... Et qu'elle pourra mettre dans ses Addins... Et travailler sur n'imprte quel classeur ouvert...

J'ai ajouté aussi deux ou trois contrôles ... et deux petits boutons d'avance (Surprise !!!) Pour y assigner des macros il suffira d'aller dans le Module0_Commun...

D'après mes tests cette version à l'air "stable"...

La XLAM peut fonctionner en l'ouvrant simplement, elle s'installera provisoirement pendant la session Excel et disparaitra à sa fermeture.

Mais pour en faire un vrai Addin de Ton Excel, il faut :

1) La sauver dans ce répertoire en étant Local Admin : (Adapter le UserName)
C:\Users\Virginie\AppData\Roaming\Microsoft\AddIns

2) Depuis Excel File => Option => Add-Ins :

Regarde la pièce jointe 1065153

3) Puis le bouton "Go..." et cocher la XLAM et "OK" :

Regarde la pièce jointe 1065154

Manoeuvre inverse 3, puis 2, 1 ... Pour l'enlever (Dans l'odre, important)

Voilà, dans le Zip, la XLAM et le Fichier XLSX sans aucune macro, pour tester.

Bonne découverte des XLA(m)
@+Thierry

PS Tant qu'il n'y a pas de classeur ouvert mais juste cette XLAM, les Boutons "Special Virginie" ne feront rien, je les ai bloqué pour éviter des bugs idiots !

Cliquez pour agrandir...

patricktoulon à dit:

re
Bonjour virginie
je viens de me rendre compte que c'et pas toi qui l'a fait ce fichier
je me trompe ?
ne viendrait il pas de spreadsheet1.com
c'est dommage on ne peut pas atteindre le project vba

Cliquez pour agrandir...

patricktoulon à dit:

re
pratique pour du visuel situ veux je fait la même chose disposé différemment dans le mien

sauf que le projet reste ouvert a toute modif
je suis allé sur le site il ont un framework "ribbon commander" intéressant
va y envoi la sauce

Cliquez pour agrandir...

patricktoulon à dit:

Attention c'est pour le ruban acces visiblement

Cliquez pour agrandir...