Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Gaboly
Bonsoir,
Avec la proproiété ListIndex.
Par exemple en associant à un bouton (nommé ici BEfface) ce code :
Private Sub BEfface_Click() ListBox1.ListIndex = -1 End Sub
Un clic sur le bouton supprimera la sélection.
ListIndex n'est utilisable que si la liste n'accepte pas les sélections multiples (propriété MultiSelect à 0 ou fmMultiSelectSingle). Dans le cas contraire (propriété MultiSelect à 1 (fmMultiSelectMulti) ou 2 (fmMultiSelect- Extended)),
il faut adapter ainsi le code :
Private Sub BEfface_Click() Dim i As Integer For i = 0 To ListBox1.ListCount - 1 ListBox1.Selected(i) = False Next i End Sub
Par exemple en associant à un bouton (nommé ici BEfface) ce code :
Private Sub BEfface_Click()
ListBox1.ListIndex = -1
End Sub
Un clic sur le bouton supprimera la sélection.
ListIndex n'est utilisable que si la liste n'accepte pas les sélections multiples
(propriété MultiSelect à 0 ou fmMultiSelectSingle). Dans le cas contraire
(propriété MultiSelect à 1 (fmMultiSelectMulti) ou 2 (fmMultiSelect-
Extended)),
il faut adapter ainsi le code :
Private Sub BEfface_Click()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = False
Next i
End Sub
Par exemple en associant à un bouton (nommé ici BEfface) ce code :
Private Sub BEfface_Click() ListBox1.ListIndex = -1 End Sub
Un clic sur le bouton supprimera la sélection.
ListIndex n'est utilisable que si la liste n'accepte pas les sélections multiples (propriété MultiSelect à 0 ou fmMultiSelectSingle). Dans le cas contraire (propriété MultiSelect à 1 (fmMultiSelectMulti) ou 2 (fmMultiSelect- Extended)),
il faut adapter ainsi le code :
Private Sub BEfface_Click() Dim i As Integer For i = 0 To ListBox1.ListCount - 1 ListBox1.Selected(i) = False Next i End Sub
merci de ta rapidité à répondre je vais m'attaquer à cette solution dès que possible, je te confirmerai le résultat Jean-Paul
Bonsoir,
Avec la proproiété ListIndex.
Par exemple en associant à un bouton (nommé ici BEfface) ce code :
Private Sub BEfface_Click() ListBox1.ListIndex = -1 End Sub
Un clic sur le bouton supprimera la sélection.
ListIndex n'est utilisable que si la liste n'accepte pas les sélections multiples (propriété MultiSelect à 0 ou fmMultiSelectSingle). Dans le cas contraire (propriété MultiSelect à 1 (fmMultiSelectMulti) ou 2 (fmMultiSelect- Extended)),
il faut adapter ainsi le code :
Private Sub BEfface_Click() Dim i As Integer For i = 0 To ListBox1.ListCount - 1 ListBox1.Selected(i) = False Next i End Sub
merci de ta rapidité à répondre je vais m'attaquer
à cette solution dès que possible, je te confirmerai
le résultat
Jean-Paul
Bonsoir,
Avec la proproiété ListIndex.
Par exemple en associant à un bouton (nommé ici BEfface) ce code :
Private Sub BEfface_Click()
ListBox1.ListIndex = -1
End Sub
Un clic sur le bouton supprimera la sélection.
ListIndex n'est utilisable que si la liste n'accepte pas les sélections multiples
(propriété MultiSelect à 0 ou fmMultiSelectSingle). Dans le cas contraire
(propriété MultiSelect à 1 (fmMultiSelectMulti) ou 2 (fmMultiSelect-
Extended)),
il faut adapter ainsi le code :
Private Sub BEfface_Click()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = False
Next i
End Sub
merci de ta rapidité à répondre je vais m'attaquer à cette solution dès que possible, je te confirmerai le résultat Jean-Paul
Bonsoir,
Avec la proproiété ListIndex.
Par exemple en associant à un bouton (nommé ici BEfface) ce code :
Private Sub BEfface_Click() ListBox1.ListIndex = -1 End Sub
Un clic sur le bouton supprimera la sélection.
ListIndex n'est utilisable que si la liste n'accepte pas les sélections multiples (propriété MultiSelect à 0 ou fmMultiSelectSingle). Dans le cas contraire (propriété MultiSelect à 1 (fmMultiSelectMulti) ou 2 (fmMultiSelect- Extended)),
il faut adapter ainsi le code :
Private Sub BEfface_Click() Dim i As Integer For i = 0 To ListBox1.ListCount - 1 ListBox1.Selected(i) = False Next i End Sub
Michel Gaboly bonjour et merci ça marche très bien J'ai quelques aménagement pour rendre le système automatique. J.P.V
Bonjour Michel Gaboly
merci de ta rapidité à répondre je vais m'attaquer à cette solution dès que possible, je te confirmerai le résultat Jean-Paul
Bonsoir,
Avec la proproiété ListIndex.
Par exemple en associant à un bouton (nommé ici BEfface) ce code :
Private Sub BEfface_Click() ListBox1.ListIndex = -1 End Sub
Un clic sur le bouton supprimera la sélection.
ListIndex n'est utilisable que si la liste n'accepte pas les sélections multiples (propriété MultiSelect à 0 ou fmMultiSelectSingle). Dans le cas contraire (propriété MultiSelect à 1 (fmMultiSelectMulti) ou 2 (fmMultiSelect- Extended)),
il faut adapter ainsi le code :
Private Sub BEfface_Click() Dim i As Integer For i = 0 To ListBox1.ListCount - 1 ListBox1.Selected(i) = False Next i End Sub
Michel Gaboly
bonjour et merci
ça marche très bien
J'ai quelques aménagement pour rendre le système
automatique.
J.P.V
Bonjour Michel Gaboly
merci de ta rapidité à répondre je vais m'attaquer
à cette solution dès que possible, je te confirmerai
le résultat
Jean-Paul
Bonsoir,
Avec la proproiété ListIndex.
Par exemple en associant à un bouton (nommé ici BEfface) ce code :
Private Sub BEfface_Click()
ListBox1.ListIndex = -1
End Sub
Un clic sur le bouton supprimera la sélection.
ListIndex n'est utilisable que si la liste n'accepte pas les sélections multiples
(propriété MultiSelect à 0 ou fmMultiSelectSingle). Dans le cas contraire
(propriété MultiSelect à 1 (fmMultiSelectMulti) ou 2 (fmMultiSelect-
Extended)),
il faut adapter ainsi le code :
Private Sub BEfface_Click()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = False
Next i
End Sub
Michel Gaboly bonjour et merci ça marche très bien J'ai quelques aménagement pour rendre le système automatique. J.P.V
Bonjour Michel Gaboly
merci de ta rapidité à répondre je vais m'attaquer à cette solution dès que possible, je te confirmerai le résultat Jean-Paul
Bonsoir,
Avec la proproiété ListIndex.
Par exemple en associant à un bouton (nommé ici BEfface) ce code :
Private Sub BEfface_Click() ListBox1.ListIndex = -1 End Sub
Un clic sur le bouton supprimera la sélection.
ListIndex n'est utilisable que si la liste n'accepte pas les sélections multiples (propriété MultiSelect à 0 ou fmMultiSelectSingle). Dans le cas contraire (propriété MultiSelect à 1 (fmMultiSelectMulti) ou 2 (fmMultiSelect- Extended)),
il faut adapter ainsi le code :
Private Sub BEfface_Click() Dim i As Integer For i = 0 To ListBox1.ListCount - 1 ListBox1.Selected(i) = False Next i End Sub
