Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub UserForm_Initialize() ListBox1.ListStyle = fmListStyleOption ListBox1.MultiSelect = fmMultiSelectMulti End Sub Private Sub CommandButton1_Click() For I = 0 To 9 Step 2 ListBox1.Selected(I) = True Next I End Sub
Je n'ai pas précisé lors de ma demande initiale que je charge cette listBox avec la propriété List
Reste à savoir si c'est possible (impossible si listbox liée à une plage, sauf à décaler également sur la plage)
- Ajouter une colonne à la plage de liaison (avant la colonne A, par exemple)
- Masquer cette colonne
- Y mettre un "X" (par formule ou par VBA) si commande livrable et rien si non livrable
- Modifier, bien sur, l'adresse de la plage liée (dans les propriété de la listbox) et apouter une colonne à la listbox.
TabArticCmdEnCours(Lig, 3) = Sgn(Sheets("CmdInterne").Cells(i + 2, 7)) ' retourne positif ou pas si dispo
Private Sub CommandButton1_Click() Dim N As Integer Dim i As Integer N = "1" For j = 0 To ListBox1.ListCount - 1 For i = 1 To Range("B65536").End(xlUp).Row If Sheets("Feuil2").Cells(i, 2).Value = N Then ListBox1.Selected(i - 1) = True End If Next i Next j End Sub Private Sub UserForm_Initialize() ListBox1.ListStyle = fmListStyleOption ListBox1.MultiSelect = fmMultiSelectMulti End Sub