Mise en évidence des cellules non protégées

Salut,

dans le cadre d'une feuille où certaines données doivent être insérées à la main, et où d'autres cellules contiennent des titres de données ou le résultat de formules préconfigurées appliquées aux données insérées, j'ai réussi à déverrouiller les cellules à compléter manuellement.

Ensuite, en protégeant la feuille, les cellules non déverrouillées (titres et formules) sont protégées.

Ce que j'aimerais, c'est pouvoir mettre en forme les cellules non protégées (qui sont donc à compléter par l'utilisateur).

Jusque là, c'est assez simple... il suffit de mettre un arrière plan de couleur.

Mais j'aimerais surtout que cette "mise en forme" ne soit visible qu'à l'écran, et non à l'impression.

il y a moyen?

Bonjour à tous,

une suggestion :

https://www.excel-pratique.com/~files/doc/cellulesColorees.xls

amicalement

Claude.

Bonsoir

Dans le fichier joint, tu cliques sur le bouton

les cellules déverrouillées sont en vert, via une mise en forme conditionnelle

tu cliques sur le bouton, les mises en forme conditionnelles sont supprimées, l'impression est lancée, et celles-ci sont remises

le code :

Sub impr_sans_couleur_cellules_verrouillées()
With ActiveSheet
    .Unprotect "bibi"
    .[A1].Select
    .PageSetup.PrintArea = "$A$1:$F$20"
        With .Range("A1:F20")
            .FormatConditions.Delete
    ActiveSheet.PrintPreview
            .FormatConditions.Add Type:=xlExpression, Formula1:= _
                "=CELLULE(""protege"";A1)=0"
            .FormatConditions(1).Interior.ColorIndex = 4
        End With
    .Protect "bibi"
End With
End Sub

le fichier :

https://www.excel-pratique.com/~files/doc/cell_protegees.xls

Claude : Je vois ce que ça fait (et c'est utile) mais COMMENT tu le fais??

Edit:

Merci Felix

Re-

Tout d'abord, la couleur pour la cellule est issue d'une mise en forme conditionnelle

Format/Mise en Forme Conditionelle

Ensuite, la formule :

=CELLULE("protege";C4)=0

permet de mettre en couleur, les cellules non protégées

Ta feuille est protégée, par un mot de passe : "bibi" (sans les guillemets)

donc, en appuyant sur le bouton, on enlève le mot de passe, on supprime les mises en forme conditionnelle, on imprime, on remet les mises en forme conditionnelle, et on remet le mot de passe pour protéger la feuille

re,

salut felix,

Dans ma solution :

1-Tu sélectionne les cellules ou du dois écrire (en gardant appuyée la touche Ctrl) ,

2- tu nomme cette sélection "saisie" par exemple

avantage : si tu appelle le nom "saisie", le curseur passe d'une sélection à la suivante.

ceci peut être ajouté dans la macro.:

Sub écriture()
    ActiveSheet.Unprotect ' Password:="dudu"
    Range("saisie").Select
        With Range("q1")
            If .Value = 1 Then
                Range("saisie").Interior.ColorIndex = 6
                .Value = 2
                Else
                Range("saisie").Interior.ColorIndex = xlNone
                .Value = 1
                 Range("a1").Activate
            End If
         End With
    ActiveSheet.Protect ' Password:="dudu"
End Sub

bonne soirée

Claude.

Re

Claude :

avantage : si tu appelle le nom "saisie", le curseur passe d'une sélection à la suivante.

ceci peut être ajouté dans la macro.:

avec la mienne, le simple fait d'appuyer sur Tab, te déplace d'une cellule à l'autre....

Et je n'utilise pas de cellule intermédiaire

Et ce n'est pas un concours

Et toutes les solutions sont à découvrir