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
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
A voir également:
- Masquer une page excel (condition)
- Excel cellule couleur si condition texte - Guide
- Supprimer une page word - Guide
- Imprimer tableau excel sur une page - Guide
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
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
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
veux-tu cacher une sélection de cellules (des lignes...) ou une feuile ?
Ce n'est pas pareil..
eric
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
8 juil. 2008 à 09:25
Bonjour,
colle ces 2 macros dans le code de ta feuille :
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
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
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é.
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é.
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
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
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