XL 2016 Problème pour masquer les formules

S

scoubidou35

XLDnaute Occasionnel
Bonjour à tous,
J'ai un tableau avec des formules et un code VBA pour ajouter automatiquement un ligne quand la ligne précédente est utilisé.
Je voulais protéger les formules contre la maladresse en les masquant.
Dans pour cela j'ai sélectionné la feuille entière et j'ai décocher "verrouillé" dans mise en forme cellules/Protection
Puis j'ai sélectionné les cellules avec des formules et j'ai sélectionné "Masqué" dans mise en forme cellules/protection
Enfin j'ai protéger la feuille avec un mot de passe (dans le fichier joint il n'y a pas de mot de passe à entrer)

résultat mes formules sont masquées mais lorsque je clique en dehors du tableau pour rajouter une ligne en fait le code VBA ne fonctionne plus.

Y a t-il une solution ou pas?

Merci d'avance

Bonne journée
 

Pièces jointes

  • FICHIER TEST .xlsm
    99.9 KB · Affichages: 20
Solution
fanch55
Pour un appel universel depuis plusieurs feuilles ou onglets,
Mettre le code suivant dans un module :
VB: 
Public Sub Sheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean, Tabref As ListObject)
    Select Case True
        Case Not Application.Intersect(Target, Tabref.HeaderRowRange) Is Nothing
        Case Application.Intersect(Target, Tabref.DataBodyRange) Is Nothing
        Case Else
            Cancel = True 'empêche l'affichage du menu d'Excel
            With Application.CommandBars("Cell")
                With .Controls.Add(msoControlButton, 1, , 1, True)
                    .FaceId = 1088: .Caption = "Supprimer la ligne de Table"
                    .OnAction = "'Do_Tab " & "[" & Tabref & "].listobject" & "'"...
Trier par date Trier par votes
fanch55

fanch55

XLDnaute Barbatruc
Salut,
C'est un peu dangereux d'essayer de créer une nouvelle ligne de table en cliquant en dehors de celle-ci, c'est un geste qu'on a tendance à faire systématiquement pour faire réagir Excel .

Ceci dit, vous pouvez faire un Me.unprotect avant d'ajouter votre ligne et refaire aussitôt un Me.protect avec toutes les options idoines.
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Bonjour scoubidou35,

Il faut ôter la protection de la feuille en début de macro :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Unprotect "" 'inscrire le mot de passe entre les guillemets
'-------
Protect "" 'inscrire le mot de passe entre les guillemets
End Sub
Edit : salut fanch55, une nouvelle fois la page XLD n'était pas à jour.

A+
 
Dernière édition:
Vote positif 0 Vote négatif
S

scoubidou35

XLDnaute Occasionnel
job75 à dit:
Bonjour scoubidou35,

Il faut ôter la protection de la feuille en début de macro :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Unprotect "" 'inscrire le mot de passe entre les guillemets
'-------
Protect "" 'inscrire le mot de passe entre les guillemets
End Sub
Edit : salut fanch55, une nouvelle fois la page XLD n'était pas à jour.

A+
Cliquez pour agrandir...
Bonsoir job75,
Je viens de tester en mettant unprotect "" et protect "" (je protège la feuille sans mot de passe pour l'exemple ;)) comme vous me l'avez indiqué et ça fonctionne merci mais j'ai un problème. J'ai coché la possibilité de supprimer des lignes mais quand je veux le faire les lignes supprimer lignes du tableau et colonne du tableau sont grisées. Je pense que c'est lié au faite qu'il s'agisse d'un tableau...y a t-il une solution ?
Merci
 

Pièces jointes

  • FICHIER TEST .xlsm
    100.5 KB · Affichages: 5
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Bonjour scoubidou35,

Il suffit de préciser les options de protection :
VB: 
Private Sub Worksheet_selectionchange(ByVal Target As Range)
Unprotect "" 'inscrire le mot de passe entre les guillemets
'-------
Protect "", AllowFormattingRows:=True, AllowInsertingColumns:=True, _
    AllowInsertingRows:=True, AllowDeletingColumns:=True, AllowDeletingRows:=True
End Sub
A+
 
Vote positif 0 Vote négatif
fanch55

fanch55

XLDnaute Barbatruc
Bonsoir @scoubidou35 ,@job75 ,

Job a tout à fait raison,.
Cependant, j'ai remarqué que pour les tables structurées,
le protect permet seulement d'agir sur la ligne entière mais pas pour la ligne de table.
Personnellement, je n'ai pas essayé en faisant un menu contextuel qui pourrait être la solution en rajoutant au protect le userinterfaceonly=true ... 🤔
 
Vote positif 0 Vote négatif
S

scoubidou35

XLDnaute Occasionnel
job75 à dit:
Bonjour scoubidou35,

Il suffit de préciser les options de protection :
VB: 
Private Sub Worksheet_selectionchange(ByVal Target As Range)
Unprotect "" 'inscrire le mot de passe entre les guillemets
'-------
Protect "", AllowFormattingRows:=True, AllowInsertingColumns:=True, _
    AllowInsertingRows:=True, AllowDeletingColumns:=True, AllowDeletingRows:=True
End Sub
A+
Cliquez pour agrandir...
Bonjour Job,
Je viens de tester et je ne peux toujours pas supprimer une ligne dans le tableau.
 
Vote positif 0 Vote négatif
S

scoubidou35

XLDnaute Occasionnel
fanch55 à dit:
Bonsoir @scoubidou35 ,@job75 ,

Job a tout à fait raison,.
Cependant, j'ai remarqué que pour les tables structurées,
le protect permet seulement d'agir sur la ligne entière mais pas pour la ligne de table.
Personnellement, je n'ai pas essayé en faisant un menu contextuel qui pourrait être la solution en rajoutant au protect le userinterfaceonly=true ... 🤔
Cliquez pour agrandir...
Bonjour fanch55,
Je viens de tester le code de Job et en effet il semblerai que le protect ne fonctionne pas pour supprimer les lignes du tableau.
J'ai même rajouter userinterfaceonly:=true au code et rien ne change.
 
Vote positif 0 Vote négatif
fanch55

fanch55

XLDnaute Barbatruc
A tester en l'intégrant dans le code de la feuille AMENDEMENT ET FERTILISATION

VB: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Select Case True
        Case Not Application.Intersect(Target, [Tab_Fertilisation[#Headers]]) Is Nothing
        Case Application.Intersect(Target, [Tab_FERTILISATION[#Data]]) Is Nothing
        Case Else
            Cancel = True 'empêche l'affichage du menu d'Excel
            With Application.CommandBars("Cell")
                With .Controls.Add(msoControlButton, 1, , 1, True)
                    .Caption = "Supprimer la ligne de Table"
                    .FaceId = 1088
                    .OnAction = Me.CodeName & ".Sup_Tab"
                End With
                With .Controls.Add(msoControlButton, 1, , 1, True)
                    .Caption = "Ajouter une ligne de Table içi"
                    .FaceId = 1142
                    .OnAction = Me.CodeName & ".Add_Tab"
                End With
                With .Controls.Add(msoControlButton, 1, , 1, True)
                    .Caption = "Ajouter une ligne en fin de Table"
                    .FaceId = 1145
                    .OnAction = "'" & Me.CodeName & ".Add_Tab ""True""'"
                    .BeginGroup = True
                End With
                .ShowPopup
                For Each Control In .Controls
                    If Not Control.BuiltIn Then Control.Delete
                Next
            End With
    End Select
End Sub
Sub Sup_Tab()
    Frow = Selection.Row
    Trow = [Tab_FERTILISATION[#Data]].Row
    Me.Unprotect
        Application.EnableEvents = False
            [Tab_FERTILISATION].Rows(Frow - Trow + 1).Delete
        Application.EnableEvents = True
    Me.Protect
End Sub
Sub Add_Tab(Optional En_Fin As Boolean)
    Frow = Selection.Row
    Trow = [Tab_FERTILISATION[#Data]].Row
    Me.Unprotect
        Application.EnableEvents = False
            If En_Fin Then
                [Tab_FERTILISATION].ListObject.ListRows.Add
            Else
                [Tab_FERTILISATION].ListObject.ListRows.Add Frow - Trow + 1
            End If
        Application.EnableEvents = True
    Me.Protect
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
fanch55

fanch55

XLDnaute Barbatruc
Après simplification :
( c'est imparfait car il ne tient pas compte des sélections multiples, mais c'est un exemple ...:cool: )
Code: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Select Case True
        Case Not Application.Intersect(Target, [Tab_Fertilisation[#Headers]]) Is Nothing
        Case Application.Intersect(Target, [Tab_FERTILISATION[#Data]]) Is Nothing
        Case Else
            Cancel = True 'empêche l'affichage du menu d'Excel
            With Application.CommandBars("Cell")
                With .Controls.Add(msoControlButton, 1, , 1, True)
                    .FaceId = 1088: .Caption = "Supprimer la ligne de Table"
                    .OnAction = Me.CodeName & ".Do_Tab"
                End With
                With .Controls.Add(msoControlButton, 1, , 1, True)
                    .FaceId = 1142: .Caption = "Ajouter une ligne de Table içi"
                    .OnAction = Me.CodeName & ".Do_Tab"
                End With
                With .Controls.Add(msoControlButton, 1, , 1, True)
                    .FaceId = 1145: .Caption = "Ajouter une ligne en fin de Table"
                    .OnAction = Me.CodeName & ".Do_Tab"
                    .BeginGroup = True
                End With
                .ShowPopup
                For Each Control In .Controls
                    If Not Control.BuiltIn Then Control.Delete
                Next
            End With
    End Select
End Sub
Sub Do_Tab()

Me.Unprotect
    Application.EnableEvents = False
    Frow = Selection.Row
    Trow = [Tab_FERTILISATION[#Data]].Row
    Select Case CommandBars.ActionControl.FaceId
    Case 1088: [Tab_FERTILISATION].Rows(Frow - Trow + 1).Delete             ' Supprimer
    Case 1142: [Tab_FERTILISATION].ListObject.ListRows.Add Frow - Trow + 1  ' Ajouter içi
    Case 1145: [Tab_FERTILISATION].ListObject.ListRows.Add                  ' Ajouter en fin de table
    End Select
    Application.EnableEvents = True
Me.Protect

End Sub
 
Vote positif 0 Vote négatif

Discussions similaires

M
  • Résolu(e)
XL 2021 Problème formule
Réponses
7
Affichages
293
MORAD AIT
M
Q
  • Question
XL 2019 vba pour effacer résultat cellules de plusieurs fichiers a partir d'un fichier distant
Réponses
6
Affichages
197
Phil69970
Phil69970
L
  • Question
Microsoft 365 masquer colonne + MDP
Réponses
2
Affichages
456
l.et.lilou
L
jaclam
  • Question
Microsoft 365 Tableau
2
Réponses
24
Affichages
924
jaclam
jaclam
C
  • Résolu(e)
XL 2021 Mise en forme conditionnelle si *mot* dans cellule
Réponses
10
Affichages
298
TooFatBoy
TooFatBoy
W
  • Question
XL 2016 Mise en forme conditionnelle des cellules
Réponses
2
Affichages
234
mapomme
mapomme
La_Mouette
  • Question
XL 2021 Poids fichier - formules -> VBA
Réponses
13
Affichages
508
La_Mouette
La_Mouette
A
  • Résolu(e)
Microsoft 365 Suppression d'une ligne d'un tableau avec une macro
Réponses
13
Affichages
727
Alain 79
A
T
  • Résolu(e)
XL 2021 Masquer des colonnes et affichage avec MDP
Réponses
11
Affichages
717
ThomAnalyses
T
E
  • Question
Microsoft 365 Mise en forme conditionnelle d'une ligne avec critère.
Réponses
9
Affichages
335
TooFatBoy
TooFatBoy

Membres actuellement en ligne

12 membres et 81 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 168
Messages
2 116 933
Membres
112 923
dernier inscrit
ferganih