cacher tableau

[jeff]

bonjour a tous

je voudrait rendre visible ou invisible des parties d'un tableau selon si oui ou non certaines cellules ont un "x" ou pas
merci d'avance
jeff

 

[vgendron]

Re : cacher tableau

Bonjour et bienvenu...

et tu espères sincèrement avoir une solution toute faite avec si peu d'information?
c'est un peu comme quand tu rentres chez le boucher: "Bonjour, je voudrais de la viande..."

 

[DoubleZero]

Re : cacher tableau

Bonjour à toutes et à tous,

Bienvenue sur XLD, jeff.

Merci de bien vouloir déposer un fichier exemple, sans aucune donnée confidentielle, comportant deux onglets :

- l'un, avec les valeurs telles qu'elles apparaissent ;

- l'autre, avec le résultat souhaité.

A bientôt

 

[jeff]

Re : cacher tableau

fichier envoyé
desole pour l'oublie

 

[DoubleZero]

Re : cacher tableau

Re-bonjour, bonjour, vgendron,

fichier envoyer...

Fichier envolé...

A bientôt

 

[jeff]

Re : cacher tableau

sur message de base

 

[DoubleZero]

Re : cacher tableau

Re-bonjour,

Un essai avec ces deux codes, logés dans un module standard.

Option Explicit
Public c As Range
Sub X_masquer()
    For Each c In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
        If c.Value = "X" Then c.Font.Color = c.Interior.Color
    Next
End Sub
Sub X_afficher()
    For Each c In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
        If c.Value = "X" Then c.Font.ColorIndex = 1
    Next
End Sub

A bientôt

 

[jeff]

Re : cacher tableau

merci
c'est une macro c'est bien ça
donc je vais dans créer une macro
que je nomme macro1
puis je colle ta macro

c'est bien la procédure a faire

puis ça ne fonctionne pas
j'ai loupé quelque chose mais quoi

 

[gosselien]

Re : cacher tableau

Bonjour,

ALT F11, insertion module et tu y colles le code de Double0 (que je salue)

Pour le faire fonctionner F8 au pas à pas ou F5 en vitesse normale


P.


P.

 

[DoubleZero]

Re : cacher tableau

Re-bonjour, bonjour, gosselien ,

Voir le fichier joint.

A bientôt