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

[Virginie17d]

 

[patricktoulon]

purée t'a raison pas si simple visiblement

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

 

[_Thierry]

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

 

[patricktoulon]

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

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

 

[_Thierry]

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

 

[patricktoulon]

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

 

[_Thierry]

Re Re Re

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

Merci
@+Thierry

 

[Virginie17d]

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

 

[patricktoulon]

re

Rennomer, modifier, ajouter des macros,changer les icones

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

 

[Virginie17d]

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

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

 

[patricktoulon]

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

 

[patricktoulon]

et ce que cela te parle mieux

 

[patricktoulon]

Alors cela te convient il ?

 

[Virginie17d]

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

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

 

[patricktoulon]

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

 

[Virginie17d]

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

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