Bonjour,
J'ai une listview où je récupère des données :
Et je souhaite supprime une ligne dans la base après un double click
Merci par avance de votre aide
J'ai une listview où je récupère des données :
Code:
Private Sub CommandButton1_Click()
Dim wsBD As Worksheet
Dim derLig As Long
Dim lig As Long
Dim Plage As Range
Dim CritRente As String
Dim CritDateDeb As String
Dim CritDateFin As String
Dim LigList As Long
Set wsBD = Worksheets("transac")
' Dernière ligne dans la feuille BD
derLig = wsBD.Range("A" & Cells.Rows.Count).End(xlUp).Row
If derLig < 2 Then Exit Sub
' Définition de la plage en colonne A
Set Plage = wsBD.Range("A2:A" & derLig)
' Définition des critères
' N° Rente
CritRente = IIf(TextBox1.Value = "", "*", TextBox1.Value)
' Date Début
LigList = 1
' Vider la listview
ListView1.ListItems.Clear
' Boucle sur toutes les lignes
For lig = 2 To derLig
' Rechercher par rapport aux critères
If CStr(wsBD.Range("A" & lig).Value) Like CritRente Then
' Remplir la première colonne
ListView1.ListItems.Add , , wsBD.Range("A" & lig).Value
'Remplissage colonnes 2 à 5
ListView1.ListItems(LigList).ListSubItems.Add , , wsBD.Range("B" & lig).Value
ListView1.ListItems(LigList).ListSubItems.Add , , wsBD.Range("C" & lig).Value
ListView1.ListItems(LigList).ListSubItems.Add , , wsBD.Range("D" & lig).Value
ListView1.ListItems(LigList).ListSubItems.Add , , wsBD.Range("E" & lig).Value
ListView1.ListItems(LigList).ListSubItems.Add , , wsBD.Range("F" & lig).Value
LigList = LigList + 1
End If
Next lig
End Sub
Merci par avance de votre aide