Microsoft 365 la méthode delete de la classe range a échoué

eric72

XLDnaute Accro
Bonsoir,
Petit souci avec cette erreur sur ce code :
Private Sub btnSuppr_Click()

Var = Sheets("Echéancier").Range("a:a").End(xlDown).Row + 1
r = MsgBox("voulez vous supprimer ce salarié de l'effectif", vbYesNo)
If r <> 6 Then Exit Sub
Selection.EntireRow.Delete
UserForm_Initialize
End Sub

Je ne trouve pas la raison malgré mes recherches.
Quelqu'un aurait il une idée
Merci beaucoup
Eric
 

Staple1600

XLDnaute Barbatruc
Bonsoir


Sans fichier exemple, je teste à l'aveugle... :rolleyes:
Et cela fonctionne sur mon PC
VB:
Private Sub CommandButton1_Click()
Dim r
'Va_r = Sheets(1).Cells(Rows.Count, 1).End(3)(2).Row
r = MsgBox("voulez vous supprimer ce salarié de l'effectif", vbYesNo)
If r <> 6 Then Exit Sub
Selection.EntireRow.Delete
'UserForm_Initialize
End Sub
 

Discussions similaires