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

[eric72]

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]

Bonsoir


Sans fichier exemple, je teste à l'aveugle... 🙄
Et cela fonctionne sur mon PC

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

 

[eric72]

Bonsoir
Désolé je dois partir mais je testerais demain
Merci beaucoup , je vous tiendrais au courant
Eric