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

job75

XLDnaute Barbatruc

• 18 Novembre 2021

• #2

Bonjour Lionel,

VB:

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

A+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 18 Novembre 2021

• #3

Bonjour Gérard,

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 18 Novembre 2021

• #4

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

VB:

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

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

Code:

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

 

Pièces jointes

• listbox_test (1).xlsm

  23.4 KB · Affichages: 2

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 18 Novembre 2021

• #5

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 ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Novembre 2021

• #6

Le plus simple :

VB:

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

 

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 18 Novembre 2021

• #7

Merci Gérard, Sylvanu, fanch55,

Tout fonctionne nickel
lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 21 Novembre 2021

• #8

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

VB:

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,

 

Pièces jointes

• listbox_test1.xlsm

  28.4 KB · Affichages: 4

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 21 Novembre 2021

• #9

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Novembre 2021

• #10

Bonjour Lionel, laurent950, Bruno,

Usine à gaz à dit:

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

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 21 Novembre 2021

• #11

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 21 Novembre 2021

• #12

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Novembre 2021

• #13

Bien sûr on écrira simplement :

VB:

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 21 Novembre 2021

• #14

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 21 Novembre 2021

• #15

job75 à dit:

Bien sûr on écrira simplement :

VB:

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

Cliquez pour agrandir...

Vu et encore merci

 

Vote positif 0 Vote négatif