[excel] selection ligne dans listbox Résolu/Fermé

Question

Bonjour, 
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 = 0 est bien sur faux mais je ne sais pas comment le transcrire

merci :)

Configuration: Windows 7 / Safari 535.2

ced3c · Answer

petit up pour aide svp

ced3c · Answer

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

gbinforme · Answer

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

ced3c · Answer

merci beaucoup encore une fois gbinforme cela marche parfaitement

[excel] selection ligne dans listbox

4 réponses

Discussions similaires