Microsoft 365 ListBox1 : insérer une ligne ou un espace entre 2 choix

[Usine à gaz]

Bonjour à toutes et à tous,
je vous souhaite une belles journée 🙂

Je rame sur le"vba" car je n'arrive pas à trouver comment insérer une ligne ou un espace entre 2 choix dans ma ListBox1.
J'ai fait des tests et recherches mais pas de résultat pour l'instant 😡

Auriez-vous la solution ?
Je joins un ch'ti fichier test.

Je vous remercie encore une fois 🙂
Amicalement,
lionel,

 

[job75]

Bonjour Lionel,

Private Sub Userform_Initialize()
    With choix_admin.ListBox1
        .AddItem "Répondeur"
        .AddItem ""
        .AddItem "Entretien"
    End With
End Sub

A+

 

[Usine à gaz]

Bonjour Gérard,

Encore une fois MERCI, c'est parfait comme toujours 🙂
lionel,

 

[sylvanu]

Bonjour Lionel,
Et en insérant une ligne vide, ce ne serait pas suffisant ?

    With choix_admin.ListBox1
        .AddItem "Répondeur"
        .AddItem ""
        .AddItem "Entretien"
    End With

Et évidemment en changeant la valeur du Case analysé.

Private Sub ListBox1_Click()
    Select Case choix_admin.ListBox1.ListIndex
        Case 0
            ....
            Unload choix_admin
        Case 2
            ....
            Unload choix_admin
    End Select
End Sub

 

[fanch55]

Bonjour Lionel,
Qu'est-ce qui t'empêche de faire un Additem sans paramètres entre les 2 autres
et de ne prendre en compte que le listindex 0 et 2 dans le click ? 🤔

 

[job75]

Le plus simple :

Private Sub Userform_Initialize()
    choix_admin.ListBox1.List = Array("Répondeur", "", "Entretien")
End Sub

 

[Usine à gaz]

Merci Gérard, Sylvanu, fanch55,

Tout fonctionne nickel 🙂
lionel,

 

[Usine à gaz]

Bonjour Gérard, Sylvanu, fanch55, Le Forum,
Bon dimanche à toutes et à à tous 🙂

Je reviens sur le fil pour l'affichage. Je sais, je pinaille et ce n'est peut-être pas possible 🙂
Le code va bien et c'est déjà super mais ... lol

Private Sub UserForm_Click()
End Sub
'Private Sub UserForm_Activate()
'End Sub

Private Sub Userform_Initialize()
    'With Me.ListBox1
    Rep_Entr.ListBox1.List = Array("Répondeur", "", "Entretien")
End Sub
Private Sub ListBox1_Click()
    'Select Case Me.ListBox1.ListIndex
    Select Case Rep_Entr.ListBox1.ListIndex
        Case 0
            [k4] = "Répondeur"
            [a1].Select
            Unload Rep_Entr
'        Case 1
'            [k4] = ""
'            [a1].Select
'            Unload Rep_Entr
            Case 2
            [k4] = "Entretien"
            [a1].Select
            Unload Rep_Entr
    Unload Rep_Entr
    End Select
End Sub

affichage de la ListBox :

Est-il possible :
- que "Répondeur" ne soit pas entouré de trait ?
- que l'intervalle entre "Répondeur" et "Entretien" soit moins haut ?
Je joins le fichier test et je continue à chercher,
je vous remercie 🙂
Amicalement,
lionel,

 

[Compte Supprimé 979]

Bonjour le fil

Juste comme ça de passage (comme un cheveu sur la soupe) 😜

Lionel tu peux nous dire pourquoi utiliser un USF et une ListBox pour faire un choix 🤔 une Combobox directement sur la feuille n'aurait pas été mieux

 

[job75]

Bonjour Lionel, laurent950, Bruno,

Est-il possible :
- que "Répondeur" ne soit pas entouré de trait ?
- que l'intervalle entre "Répondeur" et "Entretien" soit moins haut ?

1ère question : oui, avec la propriété TabStop de ListBox1 à False.

2ème question : non car les 3 lignes ont forcément la même hauteur.

A+

 

[Usine à gaz]

Bjr Bruno 🙂
merci pour l'idée; je vais voir 🙂

 

[Usine à gaz]

Bonjour Gérard,
je te remercie pour le retour 🙂
lionel,

 

[job75]

Bien sûr on écrira simplement :

Private Sub ListBox1_Click()
    [k4] = ListBox1
    Unload Me
End Sub

 

[ChTi160]

Bonjour Lionel
Pourquoi ne pas utiliser deux Label plutôt qu'une ListBox ?
Bonne Journée
Jean marie

 

[Usine à gaz]

Bien sûr on écrira simplement :

Private Sub ListBox1_Click()
    [k4] = ListBox1
    Unload Me
End Sub

Vu et encore merci 🙂