lignes masquées

[alfazoulou]

Bonjour le forum,
je voudrais savoir comment trouver les lignes masquées de A1 à A65, les afficher et effacer leur contenu, SVP.
je pense qu'il faut utiliser For each cell in range mais je ne connais pas la syntaxe exacte. je débute, merci de votre compréhension.

 

[Pierrot93]

Re : lignes masquées

Bonjour Alfazoulou

si j'ai bien compris, essaye peut être comme ci dessous :

Option Explicit
Sub test()
Dim c As Range
For Each c In Range("A1:A65")
    If Rows(c.Row).Hidden Then Rows(c.Row).ClearContents
Next c
End Sub

bon après midi
@+

 

[alfazoulou]

Re : lignes masquées

Bonjour Alfazoulou

si j'ai bien compris, essaye peut être comme ci dessous :

Option Explicit
Sub test()
Dim c As Range
For Each c In Range("A1:A65")
    If Rows(c.Row).Hidden Then Rows(c.Row).ClearContents
Next c
End Sub

bon après midi
@+

super, merci beaucoup;
j'ai juste modifier légèrement ton code pour afficher les lignes avant de les effacer.
Dim c As Range
For Each c In Range("A1:A65")
If Rows(c.Row).Hidden Then Rows(c.Row).Hidden = False And Rows(c.Row).ClearContents
Next c
End Sub

@+