Microsoft 365 Cacher certaine valeurs ? Superposer tableau? Valeurs invisibles?

[jean 8]

Bonjour à tous, et déjà merci à tous les gens qui prendront juste le temps de me lire !! Je suis un extrême débutant sur excel et j'aimerai vraiment arriver à mes fin alors je vous demande de l'aide après de nombreuse heures à chercher… Sur cette feuille j'ai fait en sorte qu'à chaque fois que je change de couleur sur le tableau le nombre de cellules bleu soit décompté et additionné. Pour cela j'ai créer (recopier sur des tutos youtube...) 3 function sur VBA : code couleur/ nbrCouleur/ Sommecouleur et c'est top !!! Mais mon problème est que j'aimerais cacher toutes les données du tableau 1 pour que ne soit visibles que les écritures du tableau 2 mais bien sûr garder mes formules du tableau active... Est ce possible?
Merci

 

[patricktoulon]

il existe une petite astuce pour masquer des valeurs par formule ou en dur dans les cellule
c'est le numberformat textuel forcé (string imposé)
démonstration
j'ai une plage de cellules avec des nombres et des chaines de caratères
je veux masquer les nombres sans perdre la valeur des cellules
voila mon tableau exemple

maintenant je vais masquer les données avec format cellule/personalisée chaine string absolue)
allez c'est parti

voila on voit plus les valeur mais elle y sont
format cellule / personnalisé et " ""blablabla"""
vous mettez ce que vous voulez a la place de blablabla

et si on devait tout masquer
il faut prendre en compte tout les occurrence de type possible

1. les nombre positifs
2. les nombres negatifs
3. les valeurs zero
4. les valeurs texte

ainsi on aurait un number format comme ceci
nombre positifs ; nombres negatifs ; zero ; texte

""toto 2 frittes""";" ""toto -1 fritte""";" ""toto 0 fritte""";" ""titi la courge"""

j'appelle ça une obfusqiation cellulaire

LOL

 

[sylvanu]

Bonjour tout le monde,
@patrick, c'est ce que je fait au post #10. Mais ça fait une palanquée de mise en forme pour un tableau.
Et comme il va y avoir beaucoup de tableau, j'ai bien peur qu'XL pète un plomb. ( voir post #14 )
car chaque cellule à une mise en forme particulière. Sinon ce ne serait pas rigolo.

Peut être une autre approche plus "light" s'il y a beaucoup de tableaux.
On "espionne" la valeur en S7 qui donne le nombre de cellules bleues.
Si ce nombre change on duplique la mise en forme du tableau 1 sur le tableau 2.
Avec dans la Feil1 :

Public msValeurSave
Sub Worksheet_Calculate()
    If [S7].Value <> msValeurSave Then
        msValeurSave = [S7]
        C = ActiveCell.Address
        Application.EnableEvents = False
        Range("B6:N18").Copy
        Range("B21:N33").Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        Range(C).Select
    End If
 Application.EnableEvents = True
End Sub

Vous avez en permanence un miroir des formats sur Tableau1 et tableau2.

Sur ma feuille de calcul je vais avoir énormément de tableau comme celui ci,

Il faudra enrichir la macro pour chaque tableau.

 

[jean 8]

Au top, merci encore a vous de prendre tu temp...
Alors du coup je suis partie sur la solution de Patrick, j'ai passé une bonne heure a le faire et c'est nickel !!
J'ai fait des copié collée (20) de ce tableau et pour l'instant ça tient bien la route. Merci à vous, vous me libérez d'un pois.

 

[patricktoulon]

re
pour quoi faire en plusieurs fois ???
tu selectionne ta plage ou tes plages ou toutes les cllules que tu veux d'un coup et click droit et format cellule --> tu connais la suite

 

[jean 8]

re
pour quoi faire en plusieurs fois ???
tu selectionne ta plage ou tes plages ou toutes les cllules que tu veux d'un coup et click droit et format cellule --> tu connais la suite

Par ce qu'elle avais toutes un texte différent...

et au passage vous sauriez pas pourquoi ce code que j'ai placé dans ma feuille me fait buger mon copier collée ????

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

 

[patricktoulon]

re
ben pour moi c'est évident
tu surcharge l'uc avec un event déclenché par un autre

 

[jean 8]

Merci a tous, c'est tout bon pour moi, je vais clore le sujet.