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

patricktoulon

XLDnaute Barbatruc

• 30 Avril 2020

• #61

purée t'a raison pas si simple visiblement

VB:

Sub test()
Dim im As OLEObject
With ActiveSheet
For Each shp In .Shapes
shp.Delete
Next
For i = 3 To 10 'cells(rows.count,1).end(xlup).row
Set img = .OLEObjects.Add(ClassType:="Forms.Image.1", Left:=130, Top:=Round(Cells(i, 1).Top, 0), Width:=15, Height:=15)
img.Name = "a" & i
'ne fonctionne pas
'On Error Resume Next
img.Picture = Application.CommandBars.GetImageMso(Trim(.Cells(i, 1).Text), 15, 15)
Err.Clear

next
end with
End sub

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 30 Avril 2020

• #62

Re salut Patrick, oui c'est coton, d'après ce que je comprends on ne peut les mettre que dans des control.picture ou control.image, mais pas directos sur une sheet... pour pas qu'on leur pique leurs icons à Microsoft lol
@+Thierry

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 30 Avril 2020

• #63

a l'ancienne j'y arrive puisque que l'on a les ID en colonne 10
mais je ne les ai pas tous

VB:

Sub test2()
    With ActiveSheet

        For Each shp In .Shapes
            shp.Delete
        Next
        For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
            If .Cells(i, 1) <> "" Then
                On Error Resume Next
                Set ctrl = CommandBars(1).Controls.Add(msoControlButton, ID:=Cells(i, 10).Value)
                If Err.Number = 0 Then
                    ctrl.CopyFace
                    .Paste
                    With .Shapes(.Shapes.Count): .Top = Cells(i, 1).Top: .Left = 140: .Height = 15: .Width = 15: End With
                Else
                    On Error GoTo 0
                End If
            End If
        Next
    End With
commandbars(1).reset
End Sub

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 30 Avril 2020

• #64

Ah oui, tu es carrément persévérant toi ! Bravo !

On dirait qu'avec la vieille méthode tu récupères les icons des Excel 2000 et antérieur du coup, (qu'est-ce qu'il en font encore aujour'hui dans les background des ISO d'install énormes, on peut encore passer en mode vielle barre d'outils (sans Ribbon), je croyais qu'il n'y avait eu que Office 2007 qui permettait ce "switch" de transition ...

Enfin c'est coton donc, et du coup pour Virgine, je voulais mettre des beaux boutons repésentatifs, mais j'ai du mal à en trouver, pour le passage en MIN j'avais répéré celui là en GetImageMso :




Mais pour les autres, un par un c'est trop fastidieux !

Bravo encore et merci
@+Thierry

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 30 Avril 2020

• #65

re
tiens tu les vois tous dans le userform
et puis un autre je l'ai retrouver dans un dossier wig ribbon
tu les a dans l'onglet développeur dans des control gallery créé avec customUI

 

Pièces jointes

• ExcelRibbonControls viewer icon on right click.xlsm

  268.2 KB · Affichages: 11
• Office2007IconsGallery.xlsm

  59.9 KB · Affichages: 12

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 1 Mai 2020

• #66

Re Re Re

Ah super merci, le second oui je l'eusse eu un jour puis perdu (LoL)

Merci
@+Thierry

 

Vote positif 0 Vote négatif

Virginie17d

XLDnaute Occasionnel

• 1 Mai 2020

• #67

Bonjour Messieurs,

J'ai encore besoin de votre aide désolée je suis un boulet apparemment, comme je vous ai indiqué je découvre VBA donc autant dire que le CustomUI Editor me parle chinois surtout que je n'ai pas de notion de langage XML.
Pour info, je travail depuis le Template de Thierry car le ruban suis quelques soient le PC sur lequel on ouvre le fichier et sur ma méthode, j'avais dès que j'ouvrais mon fichier un message d'erreur me renvoyant sur le fichier d'origine VBA PERSONNAL dès que je lançais le script des caractères.

Ma question est la suivante : comment je fais pour personnalisé le Ruban ? Rennomer, modifier, ajouter des macros,changer les icones
Mes commentaires en pj.

Par ailleurs, mon excel plante dès que je lance les Macros sur la colonne entière je dois sélectionner les valeurs de la colonne sinon obligé de relancé Excel. Es ce que je fais mal quelques choses?

Merci par avance de votre aide

 

Pièces jointes

• Ruban.jpg

  93.8 KB · Affichages: 10

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Mai 2020

• #68

re

Rennomer, modifier, ajouter des macros,changer les icones

Cliquez pour agrandir...

a ben la avec un ruban customUI sans connaissance du xml ben tu peux pas
après modifier les macro ben la c'est pareil
si c'est les appels ben c'est le xml
si c'est le code vba c'est dans le module

la concaténation je croyais qu'on avait abouti
la macro inter changée c'est dans le xml aussi
je regarderais toute a l'heure

 

Vote positif 0 Vote négatif

Virginie17d

XLDnaute Occasionnel

• 1 Mai 2020

• #69

patricktoulon à dit:

re


a ben la avec un ruban customUI sans connaissance du xml ben tu peux pas
après modifier les macro ben la c'est pareil
si c'est les appels ben c'est le xml
si c'est le code vba c'est dans le module

la concaténation je croyais qu'on avait abouti
la macro inter changée c'est dans le xml aussi
je regarderais toute a l'heure

Cliquez pour agrandir...

Bon je m'active en nuit blanche alors ? Je sais pas pour la concaténation, je crois que c'est pour Trim espace que j'avait ajouté des valeurs - et ' mais pas sur la concat.

Oui pas d'urgence, j'ai vu que vous vous etiez bien oqp, réponds moi quand tu as le temps. Déjà comme ca je peux bosser tranquille j'ajoute un petit ctrl +H quand j'ai pas la réponse et puis on verra quand je serais grande ;-)

Bonne journée

Virginie

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Mai 2020

• #70

c'est déjà corrigé et inversé je choisi des icons plus parlant maintenant j'ai ajouté le tips(info bulle du bouton)
laisse moi le temps de trouver les bon icon

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Mai 2020

• #71

et ce que cela te parle mieux

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Mai 2020

• #72

Alors cela te convient il ?

 

Vote positif 0 Vote négatif

Virginie17d

XLDnaute Occasionnel

• 1 Mai 2020

• #73

patricktoulon à dit:

et ce que cela te parle mieux
Regarde la pièce jointe 1065086

Cliquez pour agrandir...

Pardon, je n'étais pas connecté, oui c'est parfait pour les icones et les infos, par contre quand tu passes ta souris ca te renvoi vers le fichier source XLD, et moi je l'ai renommé, es ce que cela à un incident ?
Tu peux justes modifier le nom de l'onglet en "Template" au lieu de "spécial Virginie" bien que je suis fan, c'est moins professionnel. et Concatener en "Login"
Merciiiiiiiiiiiiiiii

 

Dernière édition: 1 Mai 2020

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Mai 2020

• #74

re
voila le nom qui s'affiche dans l’infobulle c'est celui du fichier si tu le renomme ça change avec
et il est maintenant compatible 32/64 bits
et je te donne les deux customUI au cas ou tu cracherais ton fichier xl

 

Pièces jointes

• XLD_Virginie17d_MACROS_VBA_PERSONNEL_CustomUI_v00.xlsm

  64.8 KB · Affichages: 7
• CODE CUSTOMUI14.txt

  1.5 KB · Affichages: 6
• CODE CUSTOMUI2007.txt

  1.3 KB · Affichages: 6

Dernière édition: 1 Mai 2020

Vote positif 0 Vote négatif

Virginie17d

XLDnaute Occasionnel

• 1 Mai 2020

• #75

patricktoulon à dit:

re
voila le nom qui s'affiche dans l’infobulle c'est celui du fichier si tu le renomme ça change avec
et il est maintenant compatible 32/64 bits
et je te donne les deux customUI au cas ou tu cracherais ton fichier xl

Cliquez pour agrandir...

Ah génial !!!! mes icones sont différents mais surement du a ma version Excel
Ca fonctionne, par contre j'ai un rejet quand j'utilise maj, min et Npropre, mais l'action ce fait qd même.



Par contre sur le concaten, je n'arrive pas à ajouter Maj systématique et remplacer " - " et " ' " par rien JEAN-MARC devient JEANMARC

 

Vote positif 0 Vote négatif