Masquer une page excel (condition)

Résolu/Fermé
redeyes6 - 7 juil. 2008 à 16:24
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 - 8 juil. 2008 à 13:18
Bonjour,

voila ce que je cherche à faire sur excel:

1) j'ai un calcul de pourcentage dans une cellule: a
2) si a<70%, je cache une sélection de cellule pour ne pas l'imprimer
3) si a>70%, je cache une autre selection de cellule pour ne pas l'imprimer.

En fait, suivant le résultat de a, je voudrais choisir la page à imprimer dans une note final qui serait sur une feuille excel différentes de celle du calcul.

Est-ce possible?

merci.
A voir également:

4 réponses

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 257
7 juil. 2008 à 17:10
Bonjour,

veux-tu cacher une sélection de cellules (des lignes...) ou une feuile ?
Ce n'est pas pareil..

eric
0
Bonjour,

Une sélection de cellule
0
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 257
8 juil. 2008 à 09:25
Bonjour,

colle ces 2 macros dans le code de ta feuille :
Sub masquer()
    If [A1].Value < 0.7 Then
        Rows("6:10").EntireRow.Hidden = True
        Rows("11:15").EntireRow.Hidden = False
    Else
        Rows("6:10").EntireRow.Hidden = False
        Rows("11:15").EntireRow.Hidden = True
    End If
End Sub
Sub afficher()
        Rows("6:10").EntireRow.Hidden = False
        Rows("11:15").EntireRow.Hidden = False
End Sub


Si tu appelles 'masquer' les lignes 6 à 10 ou 11 à 15 se masquent en fonction du résultat dans A1.
'afficher permet de réafficher la totalité des lignes.
Tu peux leur affecter un raccourcis clavier par menu 'outils / macro / macros...' bouton 'options'
eric
0
Bonjour,

ca marche!
merci beaucoup pour ton aide.
0
Bonjour,

En fait pour un petit nombre de ligne ca marche mais avec le code suivant:
Sub masquer()
If [DeDi].Value < 0.7 Then
Rows("534:590").EntireRow.Hidden = True
Rows("591:647").EntireRow.Hidden = False
Else
Rows("534:590").EntireRow.Hidden = False
Rows("591:647").EntireRow.Hidden = True
End If
End Sub
Sub afficher()
Rows("6:10").EntireRow.Hidden = False
Rows("11:15").EntireRow.Hidden = False
End Sub

Il m'indique une erreur au niveau de la ligne que j'ai souligné.
0
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 257
8 juil. 2008 à 13:18
Il faut etre plus précis sur l'erreur, pour moi aucun lien avec le nombre de lignes.
Par contre si DeDi est un nom défini sur le feuille il faut l'écrire entre " ", si c'est une variable vba il faut laisser comme ça.
eric
0