Masquage lignes simples/fusionnées fonction valeur 1ere col Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
L
Llaw
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 21 avril 2014
Version d'Excel : 2013 FR

Message par Llaw » 21 avril 2014, 22:06

Bonjour à tous,

Tout d'abord désolé d'avance si ce sujet existe dans un précédent post, mais je ne trouve pas la solution à mon problème.

Dans une feuille excel, je souhaite masquer en cliquant sur un bouton toutes les lignes dont la date contenue dans la colonne A est antérieure à la date du jour. Je ne suis pas très doué en programmation/macro et j'ai chipé du code à droite à gauche. Je pensais avoir trouvé quelque chose qui fonctionne, mais certaines cellules de la colonne A sont fusionnées, c'est précisément ce qui pose problème. Il est important pour moi que certaines cellules soient fusionnées, et elles peuvent être de différentes "hauteurs". En espérant avoir été le plus clair possible.

Voir le fichier ci-joint.

Merci beaucoup de votre aide.
Test Masquage lignes dont contenu de la 1ère colonne est inférieur à valeur demandée.xlsm
(20.96 Kio) Téléchargé 19 fois
Avatar du membre
oyobrans
Membre impliqué
Membre impliqué
Messages : 1'018
Appréciations reçues : 15
Inscrit le : 27 septembre 2013
Version d'Excel : 2016

Message par oyobrans » 22 avril 2014, 01:04

Bonsoir,
For i = 3 To dls
       ' On récupère la hauteur de la fusion dont fait partie la cellule
       ' (hauteur = 1 si la cellule n'appartient pas à une plage fusionnée)
       hauteur = Range("A" & i).MergeArea.Rows.Count
       ' Si la date indiquée est passée
       If Range("A" & i).Value < Date Then
              ' On masque les lignes de la fusion dont elle fait partie
              ' (Ligne unique si la cellule n'appartient pas à une plage fusionnée)
              Range("A" & i).MergeArea.Rows.Hidden = True
       End If
       ' On augmente la valeur de i pour passer à la prochaine ligne à analyser
       i = i + hauteur - 1
Next i
Modifié en dernier par oyobrans le 14 décembre 2014, 01:34, modifié 1 fois.
Cordialement.

Aide-toi et le ciel t'aidera.
[ GIF animé de Dave Whyte ]
L
Llaw
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 21 avril 2014
Version d'Excel : 2013 FR

Message par Llaw » 22 avril 2014, 09:06

Bonjour,

Génial, exactement ce sont j'ai besoin. Merci beaucoup! :D

Cordialement.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message