XL 2019 Cellule verrouillée et feuille protégée

[sersib]

Bonjour,
J'ai une cellule verrouillée qui se renseigne par le biais d'un bouton avec une macro.
Quand je protège la feuille, la cellule ne se renseigne plus
Y'a t'il une solution ou astuce ?
Merci beaucoup.

 

[Gégé-45550]

Bonjour,
J'ai une cellule verrouillée qui se renseigne par le biais d'un bouton avec une macro.
Quand je protège la feuille, la cellule ne se renseigne plus
Y'a t'il une solution ou astuce ?
Merci beaucoup.

Bonjour,
La macro activée par le bouton doit :

1. Déprotéger la feuille (MaFeuille.Unprotect motdepasse)
2. Renseigner la cellule cible
3. Reprotéger la feuille (MaFeuille.Protect motdepasse)

Cordialement,

 

[sersib]

Bonjour,
La macro activée par le bouton doit :

1. Déprotéger la feuille (MaFeuille.Unprotect motdepasse)
2. Renseigner la cellule cible
3. Reprotéger la feuille (MaFeuille.Protect motdepasse)

Cordialement,

Merci @Gégé-45550 , je comprends mais je vois pas trop où et comment ?
La macro:

Private Sub CommandButton2_Click()
Dim nf As String
deb = "FC" & Right(Year(Now), 2) & Right(Month(Now) + 100, 2) & "-"
On Error Resume Next
canal = FreeFile
Open chemin & "C:\Test\num.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 7) = deb Then
nf = deb & Format(Val(Right(nf, 2) + 1), "00")
Else
nf = CStr(deb & "01")
End If
Open chemin & "C:\Test\num.txt" For Output As #canal
Print #canal, nf
Close #canal
Sheets("Test").[E4] = nf
End Sub

 

[Gégé-45550]

Merci @Gégé-45550 , je comprends mais je vois pas trop où et comment ?
La macro:

Private Sub CommandButton2_Click()
Dim nf As String
deb = "FC" & Right(Year(Now), 2) & Right(Month(Now) + 100, 2) & "-"
On Error Resume Next
canal = FreeFile
Open chemin & "C:\Test\num.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 7) = deb Then
nf = deb & Format(Val(Right(nf, 2) + 1), "00")
Else
nf = CStr(deb & "01")
End If
Open chemin & "C:\Test\num.txt" For Output As #canal
Print #canal, nf
Close #canal
Sheets("Test").[E4] = nf
End Sub

Re
NB : Pour insérer du code, c'est mieux d'utiliser la balise adéquate (</> ci-dessus)
Comme ça :

Private Sub CommandButton2_Click()

Dim nf As String

deb = "FC" & Right(Year(Now), 2) & Right(Month(Now) + 100, 2) & "-"

On Error Resume Next

canal = FreeFile

Open chemin & "C:\Test\num.txt" For Input As #canal

Input #canal, nf

Close #canal

If Left(nf, 7) = deb Then

nf = deb & Format(Val(Right(nf, 2) + 1), "00")

Else

nf = CStr(deb & "01")

End If

Open chemin & "C:\Test\num.txt" For Output As #canal

Print #canal, nf

Close #canal
Sheets("Test").Unprotect motdepasse ' <= c'est ici que ça se passe ; remplacer motdepasse par le vrai password
Sheets("Test").[E4] = nf
Sheets("Test").Protect motdepasse 'c'est ici que ça finit
End Sub

Cordialement,

 

[sersib]

Merci @Gégé-45550 ça fonctionne.
Ok pour la balise </> , c'est noté
Merci

 

[Gégé-45550]

Merci @Gégé-45550 ça fonctionne.
Ok pour la balise </> , c'est noté
Merci

Si la réponse vous a convenu, merci de la taguer comme solution (Cliquer sur la coche verte dans le bandeau droit en face de la réponse).
Cordialement,