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

Usine à gaz · 18 Novembre 2021

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 · 18 Novembre 2021

Le plus simple :

VB:

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

Usine à gaz · 21 Novembre 2021

Usine à gaz à dit:
Arrêtes de torturer les pauvres d'esprit

Bon sang : j'ai encore rien compris . Tu exagères

patricktoulon · 21 Novembre 2021

d'accords
listbox1.list=array("toto","titi")
on a donc 2 items donc item(0) et item(1)
tu veux du vide entre les deux ,ben tu ajoute un item en position (1)
listbox1.add"",1
c'est bon ça rentre

patricktoulon · 21 Novembre 2021

a!!? jean-marie est triste
je perds mon "Lol"

patricktoulon · 21 Novembre 2021

un autre exemple intéressant
tu veux déplacer le premier item en dernier
ben

VB:

listbox1.additem listbox1.list((0,0)
listbox1.memoveitem(0)

le listbox est un control assez malléable finalement

Usine à gaz · 21 Novembre 2021

patricktoulon à dit:
d'accords
listbox1.list=array("toto","titi")
on a donc 2 items donc item(0) et item(1)
tu veux du vide entre les deux ,ben tu ajoute un item en position (1)
listbox1.add"",1
c'est bon ça rentre

ça vient lol c'est comme je disais à ma ... lol

ChTi160 · 21 Novembre 2021

Re
Patrick
Peut être voulais tu mettre "RemoveItem"
Tu m'embrouiller là lol
Jean marie

patricktoulon · 21 Novembre 2021

oui jean-marie "RemoveItem"
je tape tellement vite et comme mon nouveau clavier sans fil est plus large je n'ai plus de repère
je vais m'y faire

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

job75

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires