Masquer ligne si colonne A<>""

natbru · 21 Janvier 2006

Re bonjour à tous,

De nouveau un problème avec une boucle, (les premières sont toujours difficiles, il parait, lol) :

Je cherche à masquer une ligne si la colonne A de cette même ligne contient 'X'.

Voici mon code (erroné sans aucun doute)

Code:

Sub masquer()
 
    Dim tablo As Range
    Dim C As Range
    
    Set tablo = Columns('A')
   
        For Each C In tablo
         
            If C.Value = 'X' Then Rows('C:C').Select
            Selection.EntireRow.Hidden = True
        
        Next C
   
End Sub

Merci de votre réponse.

natbru · 21 Janvier 2006

Oups désolé, j'ai oublié de joindre le fichier exemple. [file name=Classeur1_20060121112807.zip size=8179]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060121112807.zip[/file]

JC de Lorient · 21 Janvier 2006

salut

essaye ce code :
Sub masquer()
Dim cell As Range
Dim C
For Each cell In Range('A1:A' & Range('A65536').End(xlUp).Row)
If cell.Value = 'X' Then
Range(cell.Address).EntireRow.Hidden = True
End If
Next cell
End Sub

JC

natbru · 21 Janvier 2006

Bonjour JC,

Merci pour ton code, ca marche imppecable.

A bientôt.

Masquer ligne si colonne A<>""

natbru

XLDnaute Occasionnel

natbru

XLDnaute Occasionnel

Pièces jointes

JC de Lorient

XLDnaute Impliqué

natbru

XLDnaute Occasionnel

Discussions similaires