listbox

[apdf1]

Bonjour,

Je suis à la recherche du code pour selectionner tous dans une listbox sauf la premiere ligne.
Si quelqu'un pouvais m'aidé je le remercie d'avance

Max

 

[YANN-56]

Re : listbox

Bonsoir Max, et à ceux qui passeront par ici,

Je pense que ta question aurait autres chances d'être entendue avec comme sujet:

"Sélectionner tous les Items d'une ListBox, sauf le premier"

Il est aussi possible avec "J'ai du mal!" 🙂 🙂 🙂

Ceci sans animosité, mais seulement parce que ces en-têtes m'énervent. 🙁

Si tu avais utilisé une ListView, j'aurais certainement pu t'aider.
Mais les ListBoxes: Je ne n'y ai jamais touché... Désolé!

Amicalement, avec mes vœux de succès dans ta recherche.

Yann

 

[job75]

Re : listbox

Bonsoir apdf1, salut Yann 🙂

Dans le code de l'UserForm, par exemple :

Private Sub CommandButton1_Click() 'ou un autre évènement
SelectionListBox
End Sub

Private Sub SelectionListBox()
Dim i
With ListBox1
  .MultiSelect = 1
  .Selected(0) = False
  For i = 1 To UBound(.List)
    .Selected(i) = True
  Next
  .SetFocus 'facultatif
End With
End Sub

Edit : rajouté .Selected(0) = False

A+

 

[job75]

Re : listbox

Re,

Dans le code précédent, on peut mettre la propriété MultiSelect à 2 au lieu de 1.

Je vous laisse trouver ce que ça change.

A+

 

[apdf1]

Re : listbox

Bonjour Yann Job75
Je vous remercie de votre aide. Et j'enregistre les subjections de Yann, pour répondre a Job75 au sujet de la propriété MultiSelect la passer a 2 au lieu 1 j'ai trouvé aucun différence par contre j'ai mis la propriété Liststyle 1 il y a des petit carré je ne sais leurs noms devant les Items

Mais je suis prés à entendre la différence.

Sur ce je vous souhaite une bonne soirée.

Max

 

[job75]

Re : listbox

Re,

(...) au sujet de la propriété MultiSelect la passer a 2 au lieu 1 j'ai trouvé aucun différence

Pas de différence pour la macro, mais après cliquez sur les items...

A+