Discussion :

[PPN83]

Bonjour,

Un problème de plus, ce message d'erreur n'intervient qu'après avoir protégé la feuille, les cellules en question sont déverrouillées je n'y comprends rien !!!
feuille non protégée ça marche.
Merci de votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
    
    Sub Efface_catégorie_fonction() 'Efface la catégorie ou la fonction
    
    'catégorie
    
    For i = 2 To 4
    
        If ActiveSheet.OLEObjects("eva" & i).Object.Value = "" Then
        With ActiveSheet.OLEObjects("eva" & i).Object
            .BackColor = RGB(255, 255, 255)
            .SpecialEffect = fmSpecialEffectFlat
            .ShowDropButtonWhen = fmShowDropButtonWhenNever
        End With
            
        With ActiveSheet.OLEObjects("nb" & i).Object
            .BackColor = RGB(255, 255, 255)
            .SpecialEffect = fmSpecialEffectFlat
        End With
        Range("a29,c29").Select
        Selection.Font.ColorIndex = 2
      End If

Next
              
        If ActiveSheet.OLEObjects("eva2").Object.Value <> "" Then
        Range("a29,c29").Select
        Selection.Font.ColorIndex = 1
        End If
        
    
End Sub

[MarcelG]

Bonjour PPN33,

Hors VBA,

Tu remarqueras que sur une feuille protégée normalement (seulement sélection possible des cellules verrouillées et non verrouillées), tu ne peux changer le format de cellules même non verrouillées.

En VBA,

Une astuce consiste à autoriser le format de cellules lors de la protection, et éventuellement empêcher la sélection des cellules verrouillées.

Ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub essai()
With ActiveSheet
        .Protect AllowFormattingCells:=True
        .EnableSelection = xlUnlockedCells 'optionnel si tu ne souhaites pas que l'utilisateur modifie le format des cellules verrouillées
End With
 
Range("A29,C29").Font.ColorIndex = 2
End Sub

En espérant que cette proposition te sera utile.