Macro et cellules protégées

Bonjour ,
j’ai une petite requête a vous soumettre ,j’ai un tableau avec formules et macro dans lequel je souhaite protéger les cellules contenants des formules ,or ces mêmes cellules sont intégrées
INVENTAIRES JOURNALIERS 2021.xlsm (215,4 Ko)
aux macro ,donc je n’arrive plus a faire fonctionner mes macro quand j’enclenche la protection !!
Merci d’avance !!
Franck

Bonjour Franck,

Dans le code, il faut enlever la protection, modifier les cellules, remettre la protection

@+

Donc il faut intégrer a ma macro un code qui avant que la macro s’exécute ,enlève la protection ,exécute la macro et réactive la protection une fois la macro terminée ?
Je vais essayer et je te dis .
Franck .

1 J'aime

Bonjour ,
Voila ce que ca donne et ca fonctionne:
Sub Mamacro()

’ MaMacro


ActiveSheet.Unprotect « Mot de passe »

Range("B3:E19").Select
Selection.ClearContents
Range("G3:H19").Select
Selection.ClearContents
Range("J3:K19").Select
Selection.ClearContents
Range("M3").Select
ActiveCell.FormulaR1C1 = ""
Range("M3:N19").Select
Selection.ClearContents
Range("P3:P19").Select
Selection.ClearContents
Columns("H:M").Select
Range("H2").Activate
Columns("H:M").EntireColumn.Hidden = True

ActiveSheet.Protect « Mot de passe »

End Sub

Merci NonoDu45 de m’avoir mis sur la voie !!
Bon week-end ,
Franck .

Bonjour Franck,

Mieux vaut éviter d’utiliser des « Select » qui ralentissent l’exécution du code :stuck_out_tongue:

Voilà ce que ça donne :wink:
Sub Mamacro()

’ MaMacro

ActiveSheet.Unprotect « Mot de passe »
Range(« B3:E19 »).ClearContents
Range(« G3:H19 »).ClearContents
Range(« J3:K19 »).ClearContents
Range(« M3 »).FormulaR1C1 = «  »
Range(« M3:N19 »).ClearContents
Range(« P3:P19 »).ClearContents
Columns(« H:M »).EntireColumn.Hidden = True
ActiveSheet.Protect « Mot de passe »
End Sub

@+

Merci du conseil :wink:
Je vais corriger ca illico presto !!
Franck .

Bonjour,
Il y a plus court

Sub Mamacro()
  ActiveSheet.Unprotect "Mot de passe"
  Range("B3:E19,G3:H19,J3:K19,M3:N19,P3:P19").ClearContents
  Columns("H:M").EntireColumn.Hidden = True
  ActiveSheet.Protect "Mot de passe"
End Sub

Bonjour,

Tout à fait @Mimimathy, mais passer déjà de Select à directement un ClearContents, c’est pas mal :stuck_out_tongue_winking_eye: :joy:

Bonjour ,
effectivement la proposition de Mimimathy allège fortement la macro !!
Merci pour ces infos précieuses !
Franck.