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

ChTi160 à dit:

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

Cliquez pour agrandir...

BrunoM45 à dit:

Re,

Sinon pour mettre les pieds un peu dans le plat (j'adore ça 😂)

Je ne suis que de passage 🤭

Cliquez pour agrandir...

BrunoM45 à dit:

Re,

Sinon pour mettre les pieds un peu dans le plat (j'adore ça 😂)

Je ne suis que de passage 🤭

Cliquez pour agrandir...

ChTi160 à dit:

Re
Une approche !
Bonne Journée
jean marie

Cliquez pour agrandir...

patricktoulon à dit:

allez j'en rajoute une couche
quand on a un array qui a été dimensionné en dur et donc que l'on peut pas utilisé un redim preserve
plutôt que refaire un new tablo dans une boucle
ben si on peu le redimensionner (rien n'est impossible chez patricktoulon😅)est donc insérer un item

VB:

Dim t
Private Sub UserForm_Activate()
t = Array("toto", "titi")
ListBox1.List = t
End Sub
Private Sub CommandButton1_Click()
monarray = Application.Index(ListBox1.List Evaluate("COLUMN(" & Columns(1).Resize(, 3).Address(0, 0) & ")"))
monarray(3) = monarray(2): monarray(2) = ""
ListBox1.List = monarray
End Sub

bien venu dans le coté obscure de la force 😂🤣😅

Cliquez pour agrandir...

patricktoulon à dit:

et maintenant que l'on a bien rigoler, papoté,chuchoté baragouillé
je te rammene du coté non obscure de la force
ListBox1.AddItem "", 1

LOL!!!!!

Regarde la pièce jointe 1122341

purée qu'est ce qu'on se marre ici le dimanche

Cliquez pour agrandir...