masquer formules

[sasha]

bonjour
j'ai retrouvé dans un forum une macro pour masquer les formules d'une plage de cellule mais je n'arrive pas à la faire fonctionner dans ma page excel-
Sub Masquer_Formules()
Dim plg As Range
Set plg = Application.InputBox _
("Sélectionner une Plage/Cellule", , , , , , , 8)
plg.FormulaHidden = True
plg.Locked = True
ActiveSheet.Protect
End Sub

Sub Deverrouiller()
ActiveSheet.Unprotect
End Sub
sans doute je l'ai placé au mauvais endroit, je suis bien nulle en VBA...ma plage de formules à masquer est C1:C4
est ce que quelqu'un peut m 'aider pas à pas ?? merci de votre aide
ps : est ce possible de sélectionner des plages non adjacentes ?

sasha

 

[JBARBE]

Re : masquer formules

Bonjour à tous,

La macro marche si l'on ne sélectionne qu'une cellule et non une plage avec Inputbox et avec la protection de la feuille !

Le fait de déprotéger la feuille remet la formule !

Serveur en maintenance (Erreur 503)


bonne journée!

 

[JCGL]

Re : masquer formules

Bonjour à tous,
Salut JBARBE,

Peux-tu essayer dans un module standard :

Option Explicit

Sub Masquer_Formules()
    Dim Lig&
    ActiveSheet.Unprotect
    For Lig = 1 To 4
        Cells(Lig, 3).FormulaHidden = True
    Next
    ActiveSheet.Protect
End Sub

A+ à tous

 

[JBARBE]

Re : masquer formules

Une autre macro possible :

Sub Masquer_Formules()
Dim plg As Range
Set plg = Range("C1:C4")
plg.FormulaHidden = True
plg.Locked = True
ActiveSheet.Protect
End Sub

bonne journée

 

[JCGL]

Re : masquer formules

Bonjour à tous,

JBARBE : Je pense qu'il est nécessaire de déprotéger la feuille avant de lancer ta procédure

A+ à tous

 

[sasha]

Re : masquer formules

merci à tous

je vais tester toutes vos idées

sasha