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

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous,
Bon dimanche :)

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

VB:
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) :
1662288970495.png

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

XLDnaute Barbatruc
Re à toutes et à tous :)
Suis-je ti bête Grrr !!!:mad:
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

XLDnaute Barbatruc
bonjour

il suffit d'ajouter une tabulation aux items à décaler
VB:
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
 

ChTi160

XLDnaute Barbatruc
Re
Une autre procédure
VB:
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
 

dysorthographie

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

Sans titre.png


VB:
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
 
Dernière édition:

Statistiques des forums

Discussions
314 422
Messages
2 109 447
Membres
110 482
dernier inscrit
ilyxxxh