Microsoft 365 Création d'un nouvel onglet du ruban en vba et y attacher 4 macros complémentaires (MAC et PC)

RyuAutodidacte · 11 Mai 2023

Bonjour,

j'ai beau chercher partout mais je ne trouve de solution pour le moment …

Comme l'onglet "Acceuil" qui existe dans le ruban, je cherche à pourvoir créer par vba un nouvel onglet "TOTO" et y insérer 4 macros, provenant d'un complément Excel d'un fichier xlam déjà insérer par macro :

VB:

Sub Add_AddIn() 'version Mac (peut être PC aussi pouvez vous confirmer SVP)
Dim addInPath As String
    addInPath = "MonChemin/TEST.xlam"
    AddIns.Add addInPath
    AddIns("TEST").Installed = True '
End Sub

Le but est de pourvoir faire une automatisation d'installation sur plusieurs utilisateurs Mac et PC

merci d'avance pour vos réponses

Ryu

patricktoulon · 31 Mai 2023

re
le sample avec le bon nom de sub
essaie le sur windows avant

RyuAutodidacte · 10 Juin 2023

Suite
J'ai repris la structure d'un xml que tu m'as envoyé pour tester ( post#161 ) :

XML:

<tab id="myTabID_1" OPEN>
    <group id ="myGroupID_1" OPEN>
        <menu id="myMenuID_1" OPEN>
            <separator id="mySeparatorID_1">
            <button id="myButtonID_1">
            <button id="myButtonID_2">
            <separator id="mySeparatorID_2">
            <button id="myButtonID_3">
            <button id="myButtonID_4">
        </menu id="myMenuID_1" CLOSE>
    </group id ="myGroupID_1" CLOSE>
    <group id ="myGroupID_2" OPEN>
        <menu id="myMenuID_2" OPEN>
            <separator id="mySeparatorID_3">
            <button id="myButtonID_5">
            <button id="myButtonID_6">
            <separator id="mySeparatorID_4">
            <button id="myButtonID_7">
            <button id="myButtonID_8">
        </menu id="myMenuID_2" CLOSE>
    </group id ="myGroupID_2" CLOSE>
</tab id="myTabID_1" CLOSE>

PS : je me suis pas encore occupé de l'indentation, celle ci je l'ai faite manuellement
je me suis pas occupé de la partie xml tout haut et tout en bas car c'est du texte statique … à ajouter

Avec les paramètres de mon tableau :

XML:

<tab id="myTabID_1" label="NameLabelTab">
    <group id ="myGroupID_1" label="NameLabelGroup">
        <menu id="myMenuID_1" itemSize="large"/>
            <separator id="mySeparatorID_1"/>
            <button id="myButtonID_1" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
            <button id="myButtonID_2" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
            <separator id="mySeparatorID_2"/>
            <button id="myButtonID_3" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
            <button id="myButtonID_4" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
        </menu>
    </group>
    <group id ="myGroupID_2" label="NameLabelGroup">
        <menu id="myMenuID_2" itemSize="large"/>
            <separator id="mySeparatorID_3"/>
            <button id="myButtonID_5" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
            <button id="myButtonID_6" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
            <separator id="mySeparatorID_4"/>
            <button id="myButtonID_7" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
            <button id="myButtonID_8" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
        </menu>
    </group>
</tab>

patricktoulon · 10 Juin 2023

bonjour ryu
bon ben tu va t'amuser
tu me donnera un exemple de ton creator par table ?

alors pour commencer aujourd'hui
la 023 beta 4.3 du compilaeur

le dynamique c'est bien non?
on commence par le plus facile
la balise dynamicMenu( et oui celle là tu la connaissais pas )

VB:

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<customUI azerty="http://schemas.microsoft.com/office/2009/07/customui">
    <ribbon startFromScratch="false">
        <tabs>
            <tab id="tab-1" label="mes macros persos">
                <group id="group_1" label="Un menu dynamico">
                    <dynamicMenu id="dynamicMenu_1" getContent="dynamicMenu_1_RechargeMenu" label="Ma liste" invalidateContentOnDrop="true"/>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

compile le
et dans le module callback du sample tu devrais obtenire ceci

VB:

'callback created by ''creatorRibbonX''
'[createRibbonX Application] created by ''patricktoulon''
'Version 2023 Beta 4.3

'dans le group [id:''group_1'' label :''Un menu dynamico'']
'procedure de remplissage du menu dynamique du DynamicMenu[ID:''dynamicMenu_1''  Label:''Ma liste'']
'dans le parent [group_1''  Label:''Un menu dynamico'']
Public Sub dynamicMenu_1_RechargeMenu(ctl As IRibbonControl, ByRef content)
content = "<menu xmlns=""http://schemas.microsoft.com/office/2006/01/customui"" >"& vbcrlf     'ouverture de la balise menu
content = content '& code xml du content
content = content & "<menu>"
End Sub

ensuite tu va remplacer ceci

VB:

content = content '& code xml du content

par cela

VB:

    For Each ws In ThisWorkbook.Worksheets
        content = content & "<button id=""" & Replace(ws.Name, " ", "_") & """ label=""" & ws.Name & """ tag=""" & _
                  ws.Name & """ imageMso=""MacroPlay"" onAction=""GoFeuille""/>"
    Next

ensuite tu la sub sensée ^tre appelée par les boutons du menu

'Active la feuille sélectionnée lorsque vous cliquez sur un nom
'dans le menu.

VB:

Sub GoFeuille(control As IRibbonControl)
    Sheets(control.Tag).Activate
End Sub

ferme vba et teste ton menu
ensuite mano mano ajoute des feuille
reteste ton menu

RyuAutodidacte · 10 Juin 2023

Hello Patrick,

tu me donnera un exemple de ton creator par table ?

Bien sur évidement
je l'avais pas fini et il était pas assez aboutit (l'écriture du xml a été faites hier soir), je règle encore qq détails et je t'envoie ça
PS : il n'y a pas encore tout mais. c'est facile à compléter

alors pour commencer aujourd'hui
la 023 beta 4.3 du compilaeur

Merci je vais essayer tout ca : compilateur … etc

patricktoulon · 10 Juin 2023

ok prend ton temps , je te prépare d'autre exemples dynamique et interactif

RyuAutodidacte · 10 Juin 2023

Re
tu n'aurais pas un lien qui rassemble toutes les différentes balises du ribbon exisantes et indiquant tous leur attributs ?

patricktoulon · 10 Juin 2023

ben il y en a un que tu devrais connaitre il est dans l'autre monde (dvp)
dont l'auteur est un certain silkyroad

2d leçon sur le dynamique et interactif
tien regarde de fichier click sur le bouton dans le ruban

VB:

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<customUI azerty="http://schemas.microsoft.com/office/2009/07/customui" onLoad="CustomUIOnLoad">
    <ribbon startFromScratch="false">
        <tabs>
            <tab id="tab-1" label="Onglet_0">
                <group id="group-0" label="premiergroup">
                    <button id="button_1" onAction="button_1_Click" size="large" imageMso="ObjectBorderOutlineColorMoreColorsDialog" getVisible="button_1_Getvisible"/>
                    <button id="button_2" onAction="button_2_Click" getVisible="button_2_Getvisible" imageMso="SortClear" size="large"/>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

compile le mais change les callback ca ma version est plus avancée que celle de toute à l'heure

VB:

'callback created by ''creatorRibbonX''
'[createRibbonX Application] created by ''patricktoulon''
'Version 2023 Beta 4.3


Public myRibbon As IRibbonUI
Public visibility As Boolean
'Callback for customUI.onLoad
Sub CustomUIOnLoad(ribbon As IRibbonUI)
    Set myRibbon = ribbon
End Sub

'procedure ''onAction du bouton [ID:''button_1''  Label:'''']
'dans le parent [group-0''  Label:''premiergroup'']
Sub button_1_Click(control As IRibbonControl)
    visibility = Not visibility
    myRibbon.InvalidateControl ("button_1")
    myRibbon.InvalidateControl ("button_2")
    MsgBox " vous avez cliqué sur le [button] id: button_1"
End Sub

'procedure("getvisible") du button[ID:''button_1''  Label:'''']
'dans le parent [group-0''  Label:''premiergroup'']
'valeur par defaut
Sub button_1_Getvisible(control As IRibbonControl, ByRef returnedVal)
    returnedVal = visibility
End Sub

'procedure ''onAction du bouton [ID:''button_2''  Label:'''']
'dans le parent [group-0''  Label:''premiergroup'']
Sub button_2_Click(control As IRibbonControl)
    visibility = Not visibility
    myRibbon.InvalidateControl ("button_1")
    myRibbon.InvalidateControl ("button_2")
    MsgBox " vous avez cliqué sur le [button] id: button_2"
End Sub

'procedure("getvisible") du button[ID:''button_2''  Label:'''']
'dans le parent [group-0''  Label:''premiergroup'']
'valeur par defaut
Sub button_2_Getvisible(control As IRibbonControl, ByRef returnedVal)
    returnedVal = Not visibility
End Sub

une fois le vba modifié ferme le sample (en l'enregistrant bien sur )
et rouvre le
va y!!! fait mu-muse avec les boutons

RyuAutodidacte · 10 Juin 2023

Re,
Voilà - Attention dans le tableau y a pas de fermeture de balises, ça se fait en auto dans le code

1) tu mets tes balise via le menu déroulant :

2) tu actionnes le code :

VB:

Sub CreateRibbonXML_Init() 'Initalisation du XML
Dim VA, V_Idx, i As Byte, y As Byte, Idx As New Collection, Balise As New Collection
Dim myTab, myGroup, myButtonGroup, myBox, myButton
Dim B, MyB

    ' PS : il faut mettre tous les attributs exisants de chaque balise
    ' ----- ARRAY DES BALISES ------------------------------------------------------------------------------------------------------------------------------------------
    '---------------------------------
    myTab = Array("<tab id=" & """myTabID_", "label=""NameLabelTab""", ">")
    '---------------------------------
    myGroup = Array("<group id =" & """myGroupID_", "label=""NameLabelGroup""", ">")
    '---------------------------------
    myButtonGroup = Array("<buttonGroup id=" & """myButtonGroupID_", ">")
    '---------------------------------
    myBox = Array("<box id=" & """myBoxID_", "boxstyle=""vertical/horizontal""", ">")
    '---------------------------------
    mySplitButton = Array("<splitButton id=" & """mySplitButtonID_", ">")
    '---------------------------------
    myMenu = Array("<menu id=" & """myMenuID_", "itemSize=""large""", "/>")
    '---------------------------------
    myButtons = Array("<button id=" & """myButtonID_", "label=""NameLabelButton""", "onAction=""MacroName""", "imageMso=""NameImage""", "size=""large""", "/>")
    '---------------------------------
    myToggleButton = Array("<toggleButton id=" & """myToggleButtonID_", "label=""NameLabelToggleButton""", "onAction=""MacroName""", "imageMso=""NameImage""", "size=""large""", "/>")
    '---------------------------------
    mySeparator = Array("<separator id=" & """mySeparatorID_", "/>")
    '---------------------------------
    ' ----- ARRAY DES BALISES ------------------------------------------------------------------------------------------------------------------------------------------
   

    ' ----- ARRAY DES BALISES TYPE COL 1 + ARRAY DE CORRESPONDANCE DE B (MyB)--------------------------------------------------------------------------------------------
    '---------------------------------
    B = Array("TAB", "GROUP", "BUTTONGROUP", "BOX", "SPLITBUTTON", "MENU", "BUTTON", "TOGGLEBUTTON", "SEPARATOR")
    '---------------------------------
    MyB = Array(myTab, myGroup, myButtonGroup, myBox, mySplitButton, myMenu, myButtons, myToggleButton, mySeparator)
    '---------------------------------
    ' ----- ARRAY DES BALISES TYPE COL 1 + ARRAY DE CORRESPONDANCE DE B (MyB)--------------------------------------------------------------------------------------------
   
    For i = LBound(B) To UBound(B)
        Balise.Add MyB(i), B(i)
    Next

    VA = Sheets("XML CREATION").Cells(1).CurrentRegion.Resize(, 1).Value
    ReDim V_Idx(1 To UBound(VA) - 1, 1 To 7)
    ReDim Result(1 To UBound(V_Idx), 1 To 1)
   
    On Error Resume Next
        For i = 2 To UBound(VA)
            Idx.Add 1, VA(i, 1)
           
            If Err Then
                Err.Clear
                nb = Idx(VA(i, 1)) + 1
                Idx.Remove VA(i, 1)
                Idx.Add nb, VA(i, 1)
            End If
           
            V_Idx(i - 1, 1) = Idx(VA(i, 1))
            For y = LBound(Balise(VA(i, 1))) To UBound(Balise(VA(i, 1)))
                If y = 0 Then
                    V_Idx(i - 1, y + 2) = Balise(VA(i, 1))(y) & Idx(VA(i, 1)) & """"
                Else
                    V_Idx(i - 1, y + 2) = Balise(VA(i, 1))(y)
                End If
            Next
           
           
        Next
    On Error GoTo 0
   
    Sheets("XML CREATION").Cells(2, 2).Resize(UBound(V_Idx), UBound(V_Idx, 2)) = V_Idx
   
End Sub

Ce qui donne ça :

Tu mets tes paramètres noms labels etc, dans le tableau bien sur, ce qui donne en résultat :

XML:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon startFromScratch="false">
        </tabs>
            <tab id="myTabID_1" label="NameLabelTab">
                <group id ="myGroupID_1" label="NameLabelGroup">
                    <button id="myButtonID_1" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                    <button id="myButtonID_2" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                    <separator id="mySeparatorID_1"/>
                    <button id="myButtonID_3" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                    <button id="myButtonID_4" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                    <button id="myButtonID_5" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                </group>
                <group id ="myGroupID_2" label="NameLabelGroup">
                    <menu id="myMenuID_1" itemSize="large"/>
                        <button id="myButtonID_6" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                        <button id="myButtonID_7" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                        <separator id="mySeparatorID_2"/>
                        <button id="myButtonID_8" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                        <button id="myButtonID_9" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                    </menu>
                </group>
                <group id ="myGroupID_3" label="NameLabelGroup">
                    <button id="myButtonID_10" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
    <ribbon startFromScratch="false">
        </tabs>
            <tab id="myTabID_1" label="NameLabelTab">
                <group id ="myGroupID_1" label="NameLabelGroup">
                    <button id="myButtonID_1" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                    <button id="myButtonID_2" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                    <separator id="mySeparatorID_1"/>
                    <button id="myButtonID_3" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                    <button id="myButtonID_4" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                    <button id="myButtonID_5" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                </group>
                <group id ="myGroupID_2" label="NameLabelGroup">
                    <menu id="myMenuID_1" itemSize="large"/>
                        <button id="myButtonID_6" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                        <button id="myButtonID_7" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                        <separator id="mySeparatorID_2"/>
                        <button id="myButtonID_8" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                        <button id="myButtonID_9" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                    </menu>
                </group>
                <group id ="myGroupID_3" label="NameLabelGroup">
                    <button id="myButtonID_10" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

ET/OU
tu effaces certains paramètres

XML:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon startFromScratch="false">
        </tabs>
            <tab id="myTabID_1" label="NameLabelTab">
                <group id ="myGroupID_1" label="NameLabelGroup">
                    <button id="myButtonID_1" label="NameLabelButton" onAction="MacroName" size="large"/>
                    <button id="myButtonID_2" label="NameLabelButton" onAction="MacroName" size="large"/>
                    <separator id="mySeparatorID_1"/>
                    <button id="myButtonID_3" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                    <button id="myButtonID_4" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                    <button id="myButtonID_5" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                </group>
                <group id ="myGroupID_2" label="NameLabelGroup">
                    <menu id="myMenuID_1" itemSize="large"/>
                        <button id="myButtonID_6" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                        <button id="myButtonID_7" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                        <separator id="mySeparatorID_2"/>
                        <button id="myButtonID_8" onAction="MacroName" imageMso="NameImage" size="large"/>
                        <button id="myButtonID_9" onAction="MacroName" imageMso="NameImage" size="large"/>
                    </menu>
                </group>
                <group id ="myGroupID_3">
                    <button id="myButtonID_10" onAction="MacroName" size="large"/>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
    <ribbon startFromScratch="false">
        </tabs>
            <tab id="myTabID_1" label="NameLabelTab">
                <group id ="myGroupID_1" label="NameLabelGroup">
                    <button id="myButtonID_1" label="NameLabelButton" onAction="MacroName" size="large"/>
                    <button id="myButtonID_2" label="NameLabelButton" onAction="MacroName" size="large"/>
                    <separator id="mySeparatorID_1"/>
                    <button id="myButtonID_3" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                    <button id="myButtonID_4" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                    <button id="myButtonID_5" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                </group>
                <group id ="myGroupID_2" label="NameLabelGroup">
                    <menu id="myMenuID_1" itemSize="large"/>
                        <button id="myButtonID_6" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                        <button id="myButtonID_7" label="NameLabelButton" onAction="MacroName" imageMso="NameImage" size="large"/>
                        <separator id="mySeparatorID_2"/>
                        <button id="myButtonID_8" onAction="MacroName" imageMso="NameImage" size="large"/>
                        <button id="myButtonID_9" onAction="MacroName" imageMso="NameImage" size="large"/>
                    </menu>
                </group>
                <group id ="myGroupID_3">
                    <button id="myButtonID_10" onAction="MacroName" size="large"/>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

Le code qui créer les XML, Résultat dans le Debug.print pour l'instant :

VB:

Sub XMLCreator()
Dim myEncodeXml$, myRibbonUI$, myRibbonUI14$, myRibbon$, StartUI$, StartUI14$, EndBalise$
Dim CheckBalise, BaliseClose, VA, x%, Col_Xml As New Collection, V$, TrueFalse As Boolean, MyIndent$, Col
Dim myUI$, myUI14$

    '---------------------------------
    myEncodeXml = "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
    myRibbonUI = "<customUI xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">"
    myRibbonUI14 = "<customUI xmlns=""http://schemas.microsoft.com/office/2009/07/customui"">"
    myRibbon = "<ribbon startFromScratch=""false"">"
    '---------------------------------
    StartUI = myEncodeXml & vbNewLine & myRibbonUI & vbNewLine & vbTab & myRibbon & vbNewLine & Application.Rept(vbTab, 2) & "</tabs>"
    StartUI14 = myEncodeXml & vbNewLine & myRibbonUI14 & vbNewLine & vbTab & myRibbon & vbNewLine & Application.Rept(vbTab, 2) & "</tabs>"
    EndBalise = Application.Rept(vbTab, 2) & "</tabs>" & vbNewLine & vbTab & "</ribbon>" & vbNewLine & "</customUI>"
    '---------------------------------
    CheckBalise = Array("TAB", "GROUP", "BUTTONGROUP", "MENU", "BOX", "SPLITBUTTON")
    BaliseClose = Array("</tab>", "</group>", "</buttonGroup>", "</menu>", "</box>", "</splitButton>")
    '---------------------------------
   
    VA = Sheets("XML CREATION").Range("MyXML[[BALISE TYPE]:[ATTRIBUT 6]]").Value
   
    TrueFalse = False
    x = -1
   
    For i = LBound(VA) To UBound(VA)
        Check = Application.Match(VA(i, 1), CheckBalise, 0): If IsError(Check) Then Err.Clear: Check = 0
        If TrueFalse = True And Check > 0 Then x = 0: TrueFalse = False
       
        V = Replace(Replace(Application.Trim(Join(Application.Index(VA, i, [{3,4,5,6,7,8}]))), " />", "/>"), " >", ">")
        MyIndent = Application.Rept(vbTab, x + 4)
        If Check > 0 Then
            If x = -1 Then
                Col_Xml.Add MyIndent & V
                Col_Xml.Add MyIndent & BaliseClose(Check - 1)
                x = x + 1
            Else
                Col_Xml.Add MyIndent & V, , Col_Xml.Count - x
                Col_Xml.Add MyIndent & BaliseClose(Check - 1), , Col_Xml.Count - x
                x = x + 1
            End If
        Else
            Col_Xml.Add MyIndent & V, , Col_Xml.Count - x
            TrueFalse = True
        End If
       
   Next
 
    For Each Col In Col_Xml
        myUI = myUI & Col & vbNewLine
        myUI14 = myUI14 & Col & vbNewLine
    Next
   
    myUI = StartUI & vbNewLine & myUI & EndBalise
    myUI14 = StartUI14 & vbNewLine & myUI14 & EndBalise
   
    Debug.Print myUI & vbNewLine & vbNewLine & myUI14
   
End Sub

Le Fichier :

patricktoulon · 10 Juin 2023

ok je vais essayer ton fichier

patricktoulon · 10 Juin 2023

bon je l'ai ouvert
je vois déjà un gros problème
tu travaille sur un tableau structuré donc limité en terme de ligne
a la limite travaille sur un range normal
j'en vois quelque autres aussi mais je te laisse aboutir

RyuAutodidacte · 10 Juin 2023

patricktoulon à dit:
ok je vais essayer ton fichier

j'ai fait un petit update de mon précédent message en rouge

Avec ce principe, je pourrais construire d'autres types de XML, il suffit de modifier les paramètres des balises et des reconnaisances des balises qui close

Le tableau structuré s'agrandit manuellement, ici je vais pas faire des xml de 3000 lignes

ChTi160 · 10 Juin 2023

Bonjour le Fil
@patrick
Tu dis :

un tableau structuré donc limité en terme de ligne

Quelle est cette limite ?
Merci
Bonne fin de journée
Jean marie

patricktoulon · 10 Juin 2023

bonjour jean-marie
la limite est celle du nombre de ligne du tableau

ChTi160 · 10 Juin 2023

Donc du nombre de lignes d'excel ?

RyuAutodidacte · 10 Juin 2023

Hi @ChTi160 et re Patrick
Ma réponse à la limite …
j'ai pas fait de code pour réduire au augmenter la taille du tableau
Mais si je veux donner toutes les lignes d'Excel au tableau, ben rien m'en empêche
La limite du tableau c'est moi qui la choisi selon mon besoin et le nombre de balise que je veux mettre :

De plus le menu déroulant suis la hauteur du tableau en colonne 1

Dans le cas de construire un xml pour le ribbon, je n'ai pas besoin de 100 lignes, j'adapte la hauteur à mon besoin ce qui prend 2 seconde à la main.

De plus le tableau amène une clarté de lecture et d'écriture (pour les modif) avec l'aternation des lignes de couleurs

Update : Le fichier et code marchera sur Mac et PC (en plus de la simplification de ce concept)

patricktoulon · 10 Juin 2023

aussi oui

allez une petite démo là qui va bien
un switchqgroup

purée j'ai bien avancé moi sur mon creator
OUFFF!!!! y a du monde là dedans

Microsoft 365 Création d'un nouvel onglet du ruban en vba et y attacher 4 macros complémentaires (MAC et PC)

RyuAutodidacte

XLDnaute Impliqué

patricktoulon

RyuAutodidacte

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

Pièces jointes

RyuAutodidacte

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

Pièces jointes

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc