[excel] selection ligne dans listbox
Résolu
ced3c
Messages postés
240
Statut
Membre
-
ced3c Messages postés 240 Statut Membre -
ced3c Messages postés 240 Statut Membre -
Bonjour,
je ne sais pas comment indiquer une absence de ligne selectionnée_
merci :)
je ne sais pas comment indiquer une absence de ligne selectionnée_
Private Sub CommandButton4_Click()
If ExtraitVente.ListCount = 1 And ExtraitVente.Row.Select = 0 Then
MsgBox ("Sélectionner une ligne à supprimer")
ElseIf ExtraitVente.ListCount = 0 Then
MsgBox ("Aucun produit dans le tableau")
Else
Me.TextBox4 = Me.TextBox4 - (ExtraitVente.List(ExtraitVente.ListIndex, 5))
Me.TextBox5 = Me.TextBox5 - (ExtraitVente.List(ExtraitVente.ListIndex, 6))
Me.TextBox6 = Me.TextBox6 - (ExtraitVente.List(ExtraitVente.ListIndex, 7))
Me.ExtraitVente.RemoveItem (Me.ExtraitVente.ListIndex)
End If
End Sub
ExtraitVente.Row.Select = 0est bien sur faux mais je ne sais pas comment le transcrire
merci :)
4 réponses
-
-
re up, désolé de "ré uper" mais je suis un peu bloqué par ce code et je ne sais pas du tout comment faire
-
bonjour
Sans doute comme ceci :
Private Sub CommandButton4_Click() If ExtraitVente.ListIndex < 0 Then MsgBox ("Sélectionner une ligne à supprimer") Else Me.TextBox4 = Me.TextBox4 - (ExtraitVente.List(ExtraitVente.ListIndex, 5)) Me.TextBox5 = Me.TextBox5 - (ExtraitVente.List(ExtraitVente.ListIndex, 6)) Me.TextBox6 = Me.TextBox6 - (ExtraitVente.List(ExtraitVente.ListIndex, 7)) Me.ExtraitVente.RemoveItem (Me.ExtraitVente.ListIndex) End If End Sub -
merci beaucoup encore une fois gbinforme cela marche parfaitement
