Variable pour delete ?

bonjour a vous tous

je me trouve devant une interrogation pourquoi ce code demande une variable à "delete

Private Sub sup_civil_Click()
    Me.ListBox1.ListIndex = Delete
End Sub

et quelle variable existe t'il pour delete ?où y a t'il une erreur?

voici le code complet

Option Explicit
Private Sub ajout_civil_Click()
Dim i As Integer
i = Sheets("client").Range("O65536").End(xlUp).Row
Sheets("client").Range("O" & i + 1).Value = TextBox1.Value
End Sub

Private Sub quit_Click()
Unload Me
End Sub

Private Sub sup_civil_Click()
    Me.ListBox1.ListIndex = Delete
End Sub

Private Sub UserForm_Initialize()
Me.ListBox1.Font.Size = 12
Me.ListBox1.Font.Name = "arial"
Dim tableau As Variant
Dim l As Variant

     l = Sheets("client").Range("O65536").End(xlUp).Row
     tableau = Sheets("client").Range("O2:O" & l).Value
     ListBox1.List() = tableau
End Sub

Pascal

Bonsoir

Que veux tu faire exactement ?

Si pour effacer toutes les valeurs

Me.ListBox1.Clear

Si c'est pour n'avoir pas de sélection

Ton code ressemble à celui-ci

Me.ListBox1.ListIndex= -1

Si c'est pour enlever un élément

Me.ListBox1.RemoveItem 0    ' Suppression du 1er élément

bonsoir banzai

je veux supprimer une donnée sélectionnée dans la listbox et en même temps sur la feuille, je te joints un extrait du fichier

l'usf s'initialise bien , l'ajout de civilité aussi, juste la suppression, il est sur je peux le faire en dur sur la feuille

Pascal

Bonsoir

Remplaces ta macro actuelle par celle-ci

Private Sub sup_civil_Click()
  If Me.ListBox1.ListIndex = -1 Then
    MsgBox "Faites un choix d'abord"
    Exit Sub
  End If
  Sheets("client").Range("O" & Me.ListBox1.ListIndex + 2).Delete shift:=xlShiftUp
  Me.ListBox1.RemoveItem Me.ListBox1.ListIndex
End Sub

bonsoir Baanzai64

merci beaucoup c'est tout a fait ce que j'essayais de faire mais d'abord dans la listbox

Pascal