Suppression d une ligne de list box

Le 02/01/2014 à 20:36

Bonjour,

Apres avoir termine mon fichier qui contenait le bloc de suppression de ligne ci dessous.le pb que j ai actuellement c `est le bloquage au niveau vba pour la commande Ws.Range("A" & Ligne & ":I" & Ligne).Delete Shift:=xlUp.le message dis que la commande ne peut pas etre execute si le fichier est partage.

j`a cherche j`ai trouve que c `as peut marche par la commande Ws.Rows(....).Delete mais je me suis pas arrive a l`inclure sur mon code.

Merci de bien vouloir m`aider sur ce pb.

Private Sub CommandButton1_Click()

Dim Ligne As Long

If Me.ListBox2.ListIndex = -1 Then Exit Sub

If MsgBox("Etes-vous certain de vouloir supprimer l`enregistrement ", vbQuestion + vbYesNo) = vbYes Then

Ligne = Me.ListBox2.Column(9, Me.ListBox2.ListIndex)

Ws.Range("A" & Ligne & ":I" & Ligne).Delete Shift:=xlUp

DernCellVide

ThisWorkbook.Save

End If

Unload Me

End Sub

Le 03/01/2014 à 11:00
Ws.Range("A" & Ligne & ":I" & Ligne).row.Delete
Rechercher des sujets similaires à "suppression ligne list box"