masquer formules

sasha · 22 Mars 2015

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 · 22 Mars 2015

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 · 22 Mars 2015

Re : masquer formules

Bonjour à tous,
Salut JBARBE,

Peux-tu essayer dans un module standard :

VB:

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 · 22 Mars 2015

Re : masquer formules

Une autre macro possible :

Code:

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 · 22 Mars 2015

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 · 22 Mars 2015

Re : masquer formules

merci à tous

je vais tester toutes vos idées

sasha

masquer formules

sasha

XLDnaute Occasionnel

JBARBE

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Pièces jointes

JBARBE

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

sasha

XLDnaute Occasionnel

Discussions similaires