Macro et cellules protégées

[af291]

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

[NonoDu45]

Bonjour Franck,

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

@+

[af291]

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 .

[af291]

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 .

[NonoDu45]

Bonjour Franck,

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

Voilà ce que ça donne
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

@+

[af291]

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

[Mimimathy]

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

[NonoDu45]

Bonjour,

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

[af291]

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