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