Microsoft 365 Macros "appel" décaler les .AddItem actifs

[Usine à gaz]

Bonjour à toutes et à tous,
Bon dimanche

J'en une p'tite (que je trouve sympa) en ce beau dimanche :
J'ai un code

Private Sub UserForm_Initialize()
    'With Me.ListBox1
    With choix_admin.ListBox1
    .AddItem "MACROS"
    .AddItem "Macros OUI"
    .AddItem "Macros NON"
    .AddItem "TRIER"
    .AddItem "tri_CltsN°"
    .AddItem "tri_Packs"
    .AddItem "tri_Prix_Pack"
    .AddItem "tri_Clt"
    .AddItem "tri_Cx"
    End With
End Sub
Private Sub ListBox1_Click()
    'Select Case Me.ListBox1.ListIndex
    Select Case choix_admin.ListBox1.ListIndex
        Case 0 'MACROS
            Unload choix_admin
        Case 1
            MO
            Unload choix_admin
        Case 2
            MN
            Unload choix_admin
        Case 3 'TRIER
            Unload choix_admin
        Case 4
            tri_CltsN° 'macro_NON
            Unload choix_admin
        Case 5
            tri_Packs
            Unload choix_admin
        Case 6
            tri_Prix_Pack
            Unload choix_admin
        Case 7
            tri_Clt
            Unload choix_admin
        Case 8
            tri_Cx
            Unload choix_admin
    Unload choix_admin
    End Select
End Sub

J'aimerais que ça s'affiche comme ci-dessous (décaler les .AddItem actifs pour les cases affectées à un code exécutable) :

A réfléchir... je n'ai pas trouvé comment faire.
Si besoin, je ferai un fichier test.
Je continue mes recherches...
Merci d'avance,
Amicaklement,
lionel

 

[Usine à gaz]

Re à toutes et à tous
Suis-je ti bête Grrr !!!
Il suffit de les décaler en ajoutant des espaces :

Private Sub UserForm_Initialize()
'With Me.ListBox1
With choix_admin.ListBox1
.AddItem "MACROS"
.AddItem " Macros OUI"
.AddItem " Macros NON"
.AddItem "TRIER"
.AddItem " tri_CltsN°"
.AddItem " tri_Packs"
.AddItem " tri_Prix_Pack"
.AddItem " tri_Clt"
.AddItem " tri_Cx"
End With
End Sub

lionel

 

[vgendron]

bonjour

il suffit d'ajouter une tabulation aux items à décaler

Private Sub UserForm_Initialize()
    'With Me.ListBox1
    With Me.ListBox1
    .AddItem "MACROS"
    .AddItem vbTab & "Macros OUI"
    .AddItem vbTab & "Macros NON"
    .AddItem "TRIER"
    .AddItem vbTab & "tri_CltsN°"
    .AddItem vbTab & "tri_Packs"
    .AddItem vbTab & "tri_Prix_Pack"
    .AddItem vbTab & "tri_Clt"
    .AddItem vbTab & "tri_Cx"
    End With
End Sub

 

[vgendron]

dans ton select case.. tu peux supprimer tous les unload
tu en mets UN seul après le end select

 

[ChTi160]

Re
Une autre procédure

Private Sub UserForm_Initialize()
Dim Str$
Str = Application.WorksheetFunction.Rept(" ", 4)
With choix_admin.ListBox1
.AddItem "MACROS"
.AddItem Str & "Macros OUI"
.AddItem Str & "Macros NON"
.AddItem "TRIER"
.AddItem Str & "tri_CltsN°"
.AddItem Str & "tri_Packs"
.AddItem Str & "tri_Prix_Pack"
.AddItem Str & "tri_Clt"
.AddItem Str & "tri_Cx"
End With
End Sub

Jean marie

 

[Usine à gaz]

Merci Jean-Marie

 

[dysorthographie]

Bonjour,
j'ai utiliser un contrôle Toolbar!

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
MsgBox Button.Caption
Select Case Button.Caption
    Case "MACROS"
    Case "TRIER"
End Select
End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
MsgBox ButtonMenu.Text
Select Case ButtonMenu.Text
        Case "tri_CltsN°"
        Case "tri_Packs"
        Case "tri_Prix_Pack"
        Case "tri_Clt"
        Case "tri_Cx"
End Select
End Sub
Private Sub UserForm_Initialize()

    With Me.Toolbar1
        .Style = tbrFlat
         With .Buttons
            .Add Caption:="MACROS", Style:=tbrDropdown
            .Add Caption:="TRIER", Style:=tbrDropdown
            With .Item(1)
                .ButtonMenus.Add Text:="Macros OUI"
                .ButtonMenus.Add Text:="Macros NON"
            End With
             With .Item(2)
                .ButtonMenus.Add Text:="tri_CltsN°"
                .ButtonMenus.Add Text:="tri_Packs"
                .ButtonMenus.Add Text:="tri_Prix_Pack"
                .ButtonMenus.Add Text:="tri_Clt"
                .ButtonMenus.Add Text:="tri_Cx"
            End With
        End With
    End With
End Sub

 

[job75]

Bonjour à tous,

Private Sub UserForm_Initialize()
ListBox1.List = Array("MACROS", "    Macros OUI", "    Macros NON", "TRIER", "    tri_CltsN°", "    tri_Packs", "    tri_Prix_Pack", "    tri_Clt", "    tri_Cx")
End Sub

A+

 

[patricktoulon]

Bonsoir à tous
Ah!! mince j'étais pas là pour voir l'explosion
ça n'a pas explosé au moins hein!!!
LOL

 

[Usine à gaz]

Bonjour dysorthographie
Merci pour ton code.
lionel

 

[Usine à gaz]

Bonjour Gérard
Merci pour ce code ... je les stocke lol
lionel

 

[Usine à gaz]

Bonjour Patrick moqueur
Ben NON, grâce à tous, ça ne fulmine pas,
lionel