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,

 

[Usine à gaz]

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

Bonjour Jean-Marie,
Merci pour l'idée.
Pour apprendre, je vais voir mais je ne pense pas que je saurai faire 🙂

 

[Compte Supprimé 979]

Re,

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

Je ne suis que de passage 🤭

 

[Usine à gaz]

Re,

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

Je ne suis que de passage 🤭

OUI faut mettre les pieds dans le plat lol 🙂

 

[Usine à gaz]

Re,

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

Je ne suis que de passage 🤭

#post 17 : très bien aussi.
Merci Bruno 🙂

 

[ChTi160]

Re
Une approche !
Bonne Journée
jean marie

 

[Usine à gaz]

Re
Une approche !
Bonne Journée
jean marie

Merci Jean-Marie 🙂
je vais voir ...

 

[Usine à gaz]

Re-Jean-Marie,
Super bien le Label 🙂
Merci à toi,
lionel,

 

[patricktoulon]

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

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 😂🤣😅

 

[ChTi160]

Bonjour Patrick
Je vois pas le rapport avec la demande !
Ou alors j'ai encore rien compris lol
Bonne fin de journée
Jean marie

 

[Usine à gaz]

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

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 😂🤣😅

Patrick : tu vas me rendre zinzin 🤯🤯🤯

 

[patricktoulon]

Bonjour jean-marie
ben là je peux rien pour toi alors
je démontrais que dans la circonstance ou la listbox serait remplie avec une plage ou un array dimensionné en dur (donc pas redimmensionable ) et ben on le calque en le redimensionnant

 

[ChTi160]

Re
Oui super je te remercie
Mais je suis tombé par le côté obscure! Lol
Mais j'ai pas dû voir la demande Lionel lol
Jean marie

 

[patricktoulon]

et demain je veux changer l'ordre des items
sans reboucler

Private Sub CommandButton2_Click()
ListBox1.List = Application.Index(ListBox1.List, [{3;1;2}], 1)
 End Sub

voilà c'est au cas ou vous auriez pas passer la 2d jambe par dessus le coté obscure
LOL!!!😂😂😂😂

 

[patricktoulon]

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!!!!!

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

 

[Usine à gaz]

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

Arrêtes de torturer les pauvres d'esprit 🤣