Cacher des lignes automatiquement

Bonjour,

J'ai un classeur avec plusieurs feuilles, je voudrais que seul les
lignes qui contiennent un nom soit visible, j'ai donc cherche sur
google et j'ai trouve ceci
Sub LigneCacher()
Dim L As Integer
For L = 10 To 35
If Range("A" & L) = "" Then
Rows(L).Hidden = True
End If
Next L
End Sub

mais le probleme est que dans mes cellules il y a cette formule ='Liste
du personnel'!A5 donc les lignes ne se cachent pas que faire?

Merci

--
("|`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
(_Y_.)' ._ ) `._ `. ``-..-'
_..`--'_..-_/ /--'_.' ,'
(il),-'' (li),' ((!.-'

Salut

et en essayant avec
If Range("A" & L) = 0 Then Rows(L).Hidden = True

a+
rural thierry

"Jacquouille Le Gaulois" <jdg74.gaulois@tiscali.fr> a écrit dans le message
Merci cela fonctionne, mais petit soucis encore, lorque que je rajoute

Bonjour,

J'ai un classeur avec plusieurs feuilles, je voudrais que seul les
lignes qui contiennent un nom soit visible, j'ai donc cherche sur
google et j'ai trouve ceci
Sub LigneCacher()
Dim L As Integer
For L = 10 To 35
If Range("A" & L) = "" Then
Rows(L).Hidden = True
End If
Next L
End Sub

mais le probleme est que dans mes cellules il y a cette formule ='Liste
du personnel'!A5 donc les lignes ne se cachent pas que faire?

Merci

--
("|`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
(_Y_.)' ._ ) `._ `. ``-..-'
_..`--'_..-_/ /--'_.' ,'
(il),-'' (li),' ((!.-'

ru-th a pensé très fort :

Salut

et en essayant avec
If Range("A" & L) = 0 Then Rows(L).Hidden = True

a+
rural thierry

"Jacquouille Le Gaulois" <jdg74.gaulois@tiscali.fr> a écrit dans le
message

Merci cela fonctionne, mais petit soucis encore, lorque que je rajoute
quelqu un dans ma liste les lignes ne se re affiche pas

Bonjour,

J'ai un classeur avec plusieurs feuilles, je voudrais que seul les
lignes qui contiennent un nom soit visible, j'ai donc cherche sur
google et j'ai trouve ceci
Sub LigneCacher()
Dim L As Integer
For L = 10 To 35
If Range("A" & L) = "" Then
Rows(L).Hidden = True
End If
Next L
End Sub

mais le probleme est que dans mes cellules il y a cette formule ='Liste
du personnel'!A5 donc les lignes ne se cachent pas que faire?

Merci

--
("|`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
(_Y_.)' ._ ) `._ `. ``-..-'
_..`--'_..-_/ /--'_.' ,'
(il),-'' (li),' ((!.-'

--
("|`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
(_Y_.)' ._ ) `._ `. ``-..-'
_..`--'_..-_/ /--'_.' ,'
(il),-'' (li),' ((!.-'

re-

pourquoi ne pas permettre dans l'évenement sheet activate
quelque chose comme :

Range("A10:z35").AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd,
Criteria2:="<>"

a+
rural thierry

"Jacquouille Le Gaulois" <jdg74.gaulois@tiscali.fr> a écrit dans le message
de news: mesnews.c3747d42.2467a80a.19.4614@tiscali.fr...

ru-th a pensé très fort :

Salut

et en essayant avec
If Range("A" & L) = 0 Then Rows(L).Hidden = True

a+
rural thierry

"Jacquouille Le Gaulois" <jdg74.gaulois@tiscali.fr> a écrit dans le message
Merci cela fonctionne, mais petit soucis encore, lorque que je rajoute

quelqu un dans ma liste les lignes ne se re affiche pas

Bonjour,

J'ai un classeur avec plusieurs feuilles, je voudrais que seul les
lignes qui contiennent un nom soit visible, j'ai donc cherche sur
google et j'ai trouve ceci
Sub LigneCacher()
Dim L As Integer
For L = 10 To 35
If Range("A" & L) = "" Then
Rows(L).Hidden = True
End If
Next L
End Sub

mais le probleme est que dans mes cellules il y a cette formule ='Liste
du personnel'!A5 donc les lignes ne se cachent pas que faire?

Merci

--
("|`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
(_Y_.)' ._ ) `._ `. ``-..-'
_..`--'_..-_/ /--'_.' ,'
(il),-'' (li),' ((!.-'

--
("|`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
(_Y_.)' ._ ) `._ `. ``-..-'
_..`--'_..-_/ /--'_.' ,'
(il),-'' (li),' ((!.-'