Bonjour à toutes et tous,
J'ai un programme qui fonctionne bien, et en voulant l'adapter pour un autre fichier,
J'ai un code qui ne fonctionne plus
voilà le code en question qui me permet de supprimer les données d'une ligne
de la colonne B à G
Private Sub CmbSupprimer_Click()
Dim Ligne As Long
If Me.ListBox1.ListIndex = -1 Then
MsgBox "Veuillez choisir un contact"
Else
If MsgBox("Voulez-vous supprimer ce contact ?", vbCritical + vbYesNo + vbDefaultButton2, _
"Opération irréversible") <> vbYes Then Exit Sub
MsgBox "Cette action est irréversible"
Range("B" & Ligne).Resize(1, 7).ClearContents 'Effacer colonnes B à G
Ws.Rows(Me.ListBox1.List(Me.ListBox1.ListIndex, 4)).Delete
Unload Me
End If
End Sub
Je joins également le fichier pour tester
Je dois m'absenter pour une séances de chimiothérapie, je reviens cet après-midi.
Merci de bien vouloir m'aider encore une fois
Amicalement
Pierrot