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