Masquer certaines lignes à l'ouverture d'un fichier

[Tophe2]

Bonjour le forum,

Voilà j'ai un fichier qui reprend les données présentes dans de nombreux fichiers (par liaison, très lourd) plus de 1000 lignes et 700 colonnes environs.

En pièce jointe un tout petit exemple du fichier sans liaison. Comment faire pour qu'à l'ouverture on puisse masquer les lignes si en colonne A il est noté "Salarie1 ou Salarie2 ..." et au contraire si un nom est présent on laisse afficher.

Merci
Bonne Journée
Cordialement.
Christophe.

 

[DL_13]

Re : Masquer certaines lignes à l'ouverture d'un fichier

Bonjour

à tester dans un module standard

Option Compare Text

Sub Cacheligne()
Dim DerLig As Long, i As Integer
DerLig = Range("A65530").End(xlUp).Row
For i = DerLig To 2 Step -1
   If Cells(i, 1).Value = "salarie1" Or Cells(i, 1).Value = "salarie2" Then _
   Range(Rows(i).Address & ":" & Rows(i).Offset(2, 0).Address).RowHeight = 0
Next i
End Sub

et dans le ThisWorkBook

Private Sub Workbook_Open()
Cacheligne
End Sub

Attention! les cellules fusionnées peuvent provoquer des erreurs
Bonne journée

 

[Tophe2]

Re : Masquer certaines lignes à l'ouverture d'un fichier

Bonjour DL_13

Effectivement cela fonctionne, j'ai oublié de dire que je peux avoir jusqu'à 20 Salariés par fichier excel.
Est il possible d'avoir si la cellule contient "salarie" ou "Salar" alors on masque j'ai essayé en modifiant ton écriture dans ce sens mais cela ne fonctionne pas.
Merci encore pour ton aide
Christophe

 

[DL_13]

Re : Masquer certaines lignes à l'ouverture d'un fichier

Re

Remplace cette ligne de code

If Cells(i, 1).Value = "salarie1" Or Cells(i, 1).Value = "salarie2" Then _
   Range(Rows(i).Address & ":" & Rows(i).Offset(2, 0).Address).RowHeight = 0

par celle ci

If Cells(i, 1).Value Like "salarie*" Then Range(Rows(i).Address & ":" & Rows(i).Offset(2, 0).Address).RowHeight = 0

Bonne journée