Lone-wolf
XLDnaute Barbatruc
Bonjour le Forum,
le but de la macro suivante est de sélectionner un item dans la listview. De là, elle doit rechercher la ligne correspondante et la supprimer. Dans l'exemple j'ai mis un fond de couleur rouge pour test, sans résultat.
Avant celà j'ai fais un test avec Msgbox = ListView1.ListItems(i).ListSubItems(3).Text, elle me donne bien le text, je ne comprends pas pourquoi je n'arrive pas à supprimer cette ligne.
A+
le but de la macro suivante est de sélectionner un item dans la listview. De là, elle doit rechercher la ligne correspondante et la supprimer. Dans l'exemple j'ai mis un fond de couleur rouge pour test, sans résultat.
Code:
Private Sub CmdSup_Click()
Dim Dt As String, cel As Range, i As Integer
'MsgBox "Vous allez supprimer l'enregistrement.", , "MIMI"
For i = 1 To ListView1.ListItems.Count
Dt = ListView1.ListItems(i).ListSubItems(3).Text
ListView1.ListItems(i).Selected = True
With Sheets("Feuil1").Range("a3:g53")
Set cel = .Find(Dt, , xlValues, xlWhole)
If Not cel Is Nothing Then
If cel.Offset(0, 3).Value = Dt Then cel.Offset(0, 3).Interior.Color = vbRed
End If
End With
Next
'ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
End Sub
Avant celà j'ai fais un test avec Msgbox = ListView1.ListItems(i).ListSubItems(3).Text, elle me donne bien le text, je ne comprends pas pourquoi je n'arrive pas à supprimer cette ligne.
A+
Dernière édition: