Discussion :

[Knocky]

Bonjour a tous,

Voila je vous explique mon probleme, j'ai un excel sur lequel je doit entrer soit un 0 soit un 1 dans la cellule D3, si je met un 0 je voudrais masquer les cellules D12 a D74 et si je met un 1 dans la cellule D3 je voudrais alors que les cellules E12 a E74 soit masquer. Je cherche depuis ce matin en creant different macro mais je n'arrive pas a y parvenir, l'un d'entre vous pourrait-il m'aider s'il vous plait?

Desole pour les accents, je travail sur un QWERTY et je ne le maitrise pas encore.

Si vous souhaitez plus d'information sur mon probleme demandez moi.

Merci d'avance!

[Pellouaille]

Hello Knocky,

Un petit coup de mise en forme conditionnelle la dessus va te permettre d'afficher ou non les valeurs des cellules:

Si D3 = 0 ALORS DE D12 A D74 FORCE LA POLICE COULEUR BLANCHE
Si D3 = 1 ALORS DE E12 A E74 FORCE LA POLICE COULEUR BLANCHE

Tuto de SilkyRoad:

http://silkyroad.developpez.com/Exce...onditionnelle/

Cordialement,

Pellouaille

[Knocky]

Salut Pellouaille,

Merci pour ta reponse, cependant le fait de rendre les caracteres des cellules blancs ne convient pas a mon boss, je recherche un moyen ne pas faire apparaitre le contenu des cellules sans les rendres blanches.

[DeathZarakai]

Tu ne peux pas masquer à ma connaissance juste une cellule, ne serait-ce que pour une question d'affichage sur ton classeur.

Tu peux par contre masquer une colonne entièrement.

Code :

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

1
2
3
4
5
6
7
8
9
10
If Range("C3").Value = 0 Then
        Columns(, 4).Hidden = True
        Columns(, 5).Hidden = False
    ElseIf Range("C3").Value = 1 Then
        Columns(, 4).Hidden = False
        Columns(, 5).Hidden = True
    Else
        Columns(, 4).Hidden = False ' raffiche tout si D3 vide
        Columns(, 5).Hidden = False
    End If

Tu peux ensuite soit mettre ce code dans un module a activer, ou alors tu le met sur la feuille en question avec une activation sur "Change" chaque changement sur la feuille.

DeathZarakai.

P.S. : je viens de réalisé, faudrait décaler cette fameuse case D3 car cette macro la masquerait en cas de "0" saisie.
P.S.2 : j'ai décaler la vérification sur C3 comme tu l'as précisé pendant que je te répondais.

[Stanler]

Bonjour Knocky,

Tu souhaites que ta macro se déclenche comment ? Dès que tu entres 0 ou 1 en D3 ? Ou tu préfères un bouton d'activation ?

Ça devrait donner quelque chose comme :

Code :

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

1
2
3
4
5
6
If Range("D3") = "1" then 
Range("E12:E74").Hidden = True
End If
If Range("D3") = "0" then 
Range("D12:D74").Hidden = True
End If

(Je n'ai pas testé ce code, je te laisse le faire.)

TROLL = ON
PS : Explique à ton BOSS que s'il n'est pas content il peux coder lui même !
TROLL = OFF

[Knocky]

Salut Stanler, merci pour ta reponse.

J'ai decaler la cellule contenant le 0 ou le 1 a la cellule C3 et ai applique le changement au macro que tu m'as propose, cela donne donc ceci

Code :

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

1
2
3
4
5
6
If Range("C3") = "1" Then
Range("E12:E74").Hidden = True
End If
If Range("C3") = "0" Then
Range("D12:D74").Hidden = True
End If

Cependant, lorsque je tente d'appliquer le macro, excel me repond: erreur 400.

Sur un autre forum l'on me dit qu'il est impossible de cacher uniquement des cellules, et qu'il est seulement possible de cacher des lignes ou des colonnes entieres, sais tu si cette information est correcte? Si oui sait tu comment rendre la colonne D invisible si C3=1 et la colonne E invisible si C3=0?

merci.

Merci DeathZarakai, j'ai repondu avant de voir ton post, j'essaie ca dessuite

[Stanler]

DeathZarakai, évidement ^^

Le but de mon code était de montrer à Knocky qu'il n'avait pas de sens pour les deux raisons que tu as évoqué :
On ne masque pas une cellule, mais soit des colonnes, soit des lignes.
Il ne vaut mieux pas masquer la colonne dans laquelle est comprise notre commande pour le masquage / démasquage des colonnes

Knocky, est ce que le codes est assez rapide pour ton fichier ? Surtout quand tu affiches les colonnes, en fait. (D'ailleurs, tu as un code pour afficher toutes les colonnes/lignes masquées ?)

[DeathZarakai]

Désoler j'ai fait une faute, retire les virgules dans les Columns, cela devrait marcher ainsi, enfin ça marche chez moi.


Le code final serait donc

Code :

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

1
2
3
4
5
6
7
8
9
10
    If Range("C3").Value = 0 Then
        Columns(4).Hidden = True
        Columns(5).Hidden = False
    ElseIf Range("C3").Value = 1 Then
        Columns(4).Hidden = False
        Columns(5).Hidden = True
    Else
        Columns(4).Hidden = False ' raffiche tout si D3 vide
        Columns(5).Hidden = False
    End If

DeathZarakai.

P.S. : Utilise les balise des codes quand tu veux mettre du code (le # lors de l'élaboration de ton message)

[Knocky]

Merci DeathZarakai!!!!!!!!!

Ton dernier code marche a merveille!!
Merci a vous pour votre aide vous etes au top!