Bonjour chers amis.
J'ai besoin que vous m'aidiez svp. J'ai crée plusieurs formulaire pour une fiche de paie mais je rame sur les options modifier et supprimer. En effet, le code que j'ai fait entrer dans le VBA me donne l'erreur suivante : La méthode Delete de la classe Range a échoué.
Voici le code en question :
If MsgBox("Etes-vous sûr de vouloir supprimer ce salarié ?", vbYesNo + vbCritical, "Suppression du salarié") Then
If Not IsError(Application.Match(ComboBox1, Sheets("Base de données").Range("A:A"), 0)) Then
ligne = Application.Match(ComboBox1, Sheets("Base de données").Range("A:A"), 0)
MsgBox ligne
Sheets("Base de données").Rows(ligne).EntireRow.Delete
End If
End If
Merci d'avance pour votre aide.