Masquer ligne si colonne A<>""

[natbru]

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)

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]

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]

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]

Bonjour JC,

Merci pour ton code, ca marche imppecable.

A bientôt.