bouton "supprimé"

[petchy]

Bonjour le Forum
j'ai un bouton "supprimé"
il me supprime bien tous se qui a dans les textbox,et sur la ligne.Mais je voudrais qu'il me supprime carrément la ligne.Est ce possible.

Private Sub CommandButton8_Click()
Dim Msg As String

ListBox1.Value = ""
With WsBase
.Range("B" & NomLBindex).Value = ""
.Range("C" & NomLBindex).Value = ""
.Range("D" & NomLBindex).Value = ""
.Range("E" & NomLBindex).Value = ""
End With
Unload Me
End If
End Sub

Merci
Petchy

 

[vincent]

bonsoir

pour supprimer la ligne entiere remplace
.Range("B" & NomLBindex).Value = ""
.Range("C" & NomLBindex).Value = ""
.Range("D" & NomLBindex).Value = ""
.Range("E" & NomLBindex).Value = ""
par

.rows(NomLBindex).delete

bonne soirée

@+Vincent

 

[petchy]

Re

merci Vincent,ça fonctionne
bonne soirée

@ plus
petchy