Bonjour à tous,
Je viens vers vous, car j'ai besoin que l'on m'éclaire sur mon problème de verrouillage.
Vous trouverez ci-dessous une macro, qui est censée déverrouiller la feuille, créer mon numéro +1, et remettre la protection de la feuille.
Mais la protection ne se remet jamais !
Merci d'avance de vos réponses !
Sub NouveauNuméroRC02()
'Enlever protection de la feuille
ActiveSheet.Unprotect ("MDP")
'Créer numéro + 1
On Error GoTo NuméroUn
N = Right(Range("J2").Value, 3)
Range("J2").Value = "NC" & Format(Date, "yyyymmdd") & "-" & Format(N + 1, "000")
Exit Sub
NuméroUn:
Range("J2").Value = "NC" & Format(Date, "yyyymmdd") & "-" & Format(1, "000")
Resume Next
'Remettre protection de la feuille
ActiveSheet.Protect ("MDP")
End Sub