OVH Cloud OVH Cloud

Listbox/Jacques93

1 réponse
Avatar
PhilippeT
Bonjour ,
PhilippeT a écrit :
C'est un contrôle Zone de Liste avec VBA
avec excel '"Office 200 premium"


Argh, je cherchais entre les différents type de liste des différentes
version de VB (VB6, .Net 2001, 2003, 2005). Beta, non !!! j'ai oublié
VBA. Donc avec le contrôle Liste de VBA (j'ai essayé sous Excel 2003, ça
doit être OK sous 2000. Sous 200 premium, je ne me prononce pas ;-) ),
ayant la propriété MultiSelect = True, tu peux déclencher la suppression
des lignes cochées à partir d'un bouton, par exemple :

Private Sub cmDelete_Click()
Dim i As Integer

With Me.ListBox1
For i = .ListCount - 1 To 0 Step -1
If .Selected(i) Then
.RemoveItem i
End If
Next i
End With
End Sub

Nota : Il faut commencer par la fin de la liste afin que 'i' ne soit
jamais supérieur à .ListCount (Cette propriété diminuant à chaque
suppression de ligne)

--
Cordialement,

Jacques.

Aprés avoir tout essayé, je n'arrive toujours pas à m'en sortir
Pourrais-je vous envoyer par e-mail une feuil Excel pour Exemple ?
Merci beaucoup, Amicalement
Philippe

1 réponse

Avatar
Jacques93
Bonjour PhilippeT,
PhilippeT a écrit :

>Aprés avoir tout essayé, je n'arrive toujours pas à m'en sortir
>Pourrais-je vous envoyer par e-mail une feuil Excel pour Exemple ?
>Merci beaucoup, Amicalement
>Philippe

Tu peux déposer le classeur sur :

www.cjoint.com

Si je ne peux répondre, quelqu'un d'autre pourra le faire. Tu peux aussi
tenter de poster sur :

microsoft.public.fr.excel

où il y a quelques "pointures"

--
Cordialement,

Jacques.