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
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