Modif Code de Delete a Clearcontents??

[MuscatMimi]

Bonsoir a tous

J'aimerais savoir, s'il est possible, de modifier, .Delete, en .Clearcontent
pour ne pas supprimer la ligne ,mais la vider

Private Sub CommandButton7_Click()
Dim VarReponse As String, L As Long, Numlign As Long
Dim LstItem As ListItem

On Error Resume Next
Set LstItem = ListView1.SelectedItem
On Error GoTo 0

If LstItem Is Nothing Then
MsgBox "Pas de ligne sélectionnée"
Else
L = ListView1.SelectedItem.Index
End If

With ListView1
Numlign = Right(.ListItems(L).Key, Len(.ListItems(L).Key) - 1) 'N° ligne de la feuille
End With

VarReponse = MsgBox("Effacer la ligne ?", vbYesNo, "Alerte")
If VarReponse = vbNo Then Exit Sub

With Sheets("Data")
.Unprotect Password:="0000" '.Protect Password:="0000"
.Range("A" & Numlign & ":L" & Numlign).Delete Shift:=xlUp
.Protect Password:="0000"
End With
CommandButton3_Click 'réini

End Sub

Merci a tous a l'avance

 

[criscris11]

Re : Modif Code de Delete a Clearcontents??

Bonsoir,
Peut-être :

With Sheets("Data")
        .Unprotect Password:="0000" '.Protect Password:="0000"
        .Range("A" & Numlign & ":L" & Numlign).[B][COLOR=Red]ClearContents[/COLOR][/B]
        .Protect Password:="0000"
    End With

Bonne soirée.

ou :

With Sheets("Data")
        .Unprotect Password:="0000" '.Protect Password:="0000"
        .Range("A" & Numlign & ":L" & Numlign).[B][COLOR=Red]Select
          Selection.ClearContents
[/COLOR][/B]         .Protect Password:="0000"
    End With

 

[MuscatMimi]

Re : Modif Code de Delete a Clearcontents??

Bonsoir cricri11

Bravo, ça le fait bien ton exemple
Grand merci a toi

Bon we
A++++