Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

ecrire dans une cellule malgré la protection de la feuille

altinea

XLDnaute Accro
Bonjour le Forum,

Je souhaiterai pouvoir, malgré la protection de la feuille, que mon code puisse inscrire les infos voulues dans la cellule.

Il s(agit de cellules verrouillées, d'autres ne le sont pas. Par contre ces cellules ne doivent pas êtres modifiables par l'utilisateur.

pourriez vous m'aider. ça bug où le code est en bleu

***Valisation des Checkbox, information inscrite dans celle du jour J ***
Private Sub CommandButton20_Click()
Dim Activité As String, i As Integer, Cel As Range
'nombre de checkbox, si on supprime ou on rajoute, penser à modifier le nombre ici
For i = 1 To 28
If Controls("CheckBox" & i) = True Then Activité = Activité & Controls("CheckBox" & i).Caption & ", "
Next
If Activité = "" Then GoTo Sortie
'plage de donnée spécifiée pour la prise en compte des calculs
For Each Cel In Range("E5:AY35")
If Cel.Value = Date Then Cel.Offset(0, 1) = Left(Activité, Len(Activité) - 2)
Next Cel
'desactive l'unserform
Sortie:
Unload tableau_bord_Psst
End Sub


Merci pour votre aide
 

Chris401

XLDnaute Accro
Re : ecrire dans une cellule malgré la protection de la feuille

Bonjour

Il te suffit de déverrouiller la feuille de temps de l'exécution de la macro

En début de code

Activesheet.Unprotect

En fin de code

Activesheet.Protect

Cordialement
Chris
 

altinea

XLDnaute Accro
Re : ecrire dans une cellule malgré la protection de la feuille

Bonjour, merci pour votre aide CHALET53, Chris401, j'ai suivi vos conseil, j'ai juste mis le nom de la feuille concernée.
Bonne journée à vous
 

Victor21

XLDnaute Barbatruc
Re : ecrire dans une cellule malgré la protection de la feuille

Bonjour, altinea.

Solution (Traduction Goo..le) préconisée par Chip PEARSON (Lien ici) :
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…