Petit souci avec la suppression d'un enregistrement dans la listview

[baguidi]

Bonjour le forum;
je reviens avec un petit souci que j'ai avec mon bouton SUPPRIMER .
En fait le problème c'est que lorsque je ne sélectionne aucun enregistrement et que je clique sur SUPPRIMER le système débogue un message.
pour moi je voudrais que cela m’écrive "Vous n'avez sélectionner aucun enregistrement ".
et ensuite il sort de la procédure.
j'ai tenté avec on error goto line mais ca ne marche pas bien.
Merci de m'aider pour ce problème.
je joins le fichier

 

[Papou-net]

Re : Petit souci avec la suppression d'un enregistrement dans la listview

Bonsoir baguidi,

Il te suffit de rajouter une condition, comme ci-dessous :

Private Sub Cmd_Supp_Click()
Dim VarReponse As String, L As Long, Li As Long

    If SelectedItem = "" Then
      MsgBox "Vous n'avez sélectionné aucun enregistrement", vbOKOnly + vbInformation, "Aucun enregistrement"
      Exit Sub
    End If

    VarReponse = MsgBox(" Voulez-vous Supprimer la sélection?", vbYesNo, "Alerte")
    If VarReponse = vbNo Then Exit Sub

    L = Me.ListView1.SelectedItem.Index
    Li = Me.ListView1.ListItems(L).ListSubItems(9).Text ' Renvoi L'index de la ligne selectionnée
    
'    MsgBox Me.ListView1.ListItems(L).ListSubItems(9).Text
    'dans la feuille base
    'Supprime les enrgt à la fois dans la Listview et dans la feuille
    Worksheets("Base").Range("A" & Li & ":I" & Li).Delete shift:=xlUp
    Me.ListView1.ListItems.Remove L
End Sub

Cordialement.

 

[Bebere]

Re : Petit souci avec la suppression d'un enregistrement dans la listview

bonjour Baguidi,Papou-net
inutile d'ouvrir un nouveau fil et je t'ai répondu
à bientôt

 

[baguidi]

Re : Petit souci avec la suppression d'un enregistrement dans la listview

Merci A vous tous Bebere; Papou-net.
tout mon souci est prti je vous remerci enormement et longue vie au forum.