Excel si cellule vide masquer une succession de lignes
Résolu
mlenoir18
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
mlenoir18 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
mlenoir18 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je voudrais masquer/afficher des pages avant impression sur un fichier excel ce qui revient à masquer des plages de lignes précises en fonction d'un criètre. Le tout dans une macro.
Par exemple si B45=vide masquer 48 à 90; si C45= vide masquer 91 à 133.
B45 et C45 peuvent être toutes les vides, toutes les deux remplies, C45 remplie B45 vide et inversement.
Auriez-vous des suggestions?
Merci de votre aide
Je voudrais masquer/afficher des pages avant impression sur un fichier excel ce qui revient à masquer des plages de lignes précises en fonction d'un criètre. Le tout dans une macro.
Par exemple si B45=vide masquer 48 à 90; si C45= vide masquer 91 à 133.
B45 et C45 peuvent être toutes les vides, toutes les deux remplies, C45 remplie B45 vide et inversement.
Auriez-vous des suggestions?
Merci de votre aide
A voir également:
- Masquer les lignes vides excel
- Liste déroulante excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
- Excel trier par ordre alphabétique en gardant les lignes - Guide
- Déplacer colonne excel - Guide
2 réponses
Bonjour,
se mettre sur la feuille concernée faire Alt F 11 pour accéder à l'éditeur et coller ce code qui se déclenchera au clic sur les cellule concernées:
se mettre sur la feuille concernée faire Alt F 11 pour accéder à l'éditeur et coller ce code qui se déclenchera au clic sur les cellule concernées:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B45:C45")) Is Nothing Then
If Range("B45") = "" Then
Rows("48:90").EntireRow.Hidden = True
Else
Rows("48:90").EntireRow.Hidden = False
End If
If Range("C45") = "" Then
Rows("91:133").EntireRow.Hidden = True
Else
Rows("91:133").EntireRow.Hidden = False
End If
End If
End Sub
