Masquer lignes dernieres lignes vides

[jacfld49]

Bonsoir le forum,

je me suis récupérer un code qui me servait pour un autre fichier, je l'ai adapter à une feuille de mon Fichier, mais j'aurais voulu l'adapter pour qu'il fonctionne pour toutes les feuilles de mon fichier sans avoir à le recopier autant de fois qu'il y a de feuilles.En faite, je voudrais qu'il fonctionne pour la feuille active.
voici le code

Code :

1
2
3
4
5
6
7
8
Sub yaMasque()
  Dim yaC As Range
  For Each yaC In ThisWorkbook.Sheets("1103").Range("A1:A104")
  ThisWorkbook.Sheets("1103").Unprotect "SERGE"
     If IsEmpty(yaC) Then yaC.EntireRow.Hidden = True
     ThisWorkbook.Sheets("1103").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="SERGE"
  Next
End Sub

merci
jacky

[Gorfael]

Salut jacfld49 et le forum

Code :

1
2
3
4
5
6
7
8
9
Sub yaMasque()
Dim yaC As Range
For Each yaC In ActiveSheet.Range("A1:A104")
    ActiveSheet.Unprotect "SERGE"
    If IsEmpty(yaC) Then yaC.EntireRow.Hidden = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="SERGE"
Next
 
End Sub

A+

[jacfld49]

Bonjour Gorfaél et le forum,

est il possible que le code ne masque que les dernieres lignes
ex: j'ai des données de A1 à A85 et je voudrais masquer les lignes de A86 à A104.
merci
jacky

[Gorfael]

Salut jacfld49 et le forum

est il possible que le code ne masque que les dernieres lignes
ex: j'ai des données de A1 à A85 et je voudrais masquer les lignes de A86 à A104.

C'est pas déjà ce qu'il fait ?
Pour chaque cellule de la plage A1:A104, si la cellule est vide, la cacher.
C'est l'algorithme de la macro.
A+

[jacfld49]

Bonjour le Forum, Gorfael,

Oui, je sais que c'est ce que fais mon code et justement, j'aurais voulu qu'il soit lègerement modifiés pour qu'il ne me masque que les dernières lignes non vides, je sais que c'est possible car je l'ai déja vu mais je ne retrouve pas ce code alors, j'ai fais avec le mien , mais comme j'ai une cellule fusionnée, il la considère vide (cellule A4,A5 sont fusionnées jusqu'a O4,O5) et donc me masque la cellule A5 et du coup il me manque des donées sur les cellules Q5 et suivantes qui elles ne sont pas fusionnées. c'est donc pour cela que je voulais que le code me masque que les dernières lignes jusqu'a 104.
merci
jacky

[jacfld49]

re, le forum, Gorfaél,

merci , j'ai contourné le problème de mes cellules associées en mattant une ecriture invisible et du coup , le code masque que les lignes de A86 à A104.

jacky