Pb macro et ligne masquée

[fif2208]

Bonjour tout le monde,

J'ai créé une macro qui copie le format et les formules de la deuxième ligne d'une feuille. Voici le code de cette macro :

Sub Macro2()

Rows("2:2").Select
Selection.Copy
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B65536").End(xlUp).Offset(1, 0).Select
End Sub

Le problème est que si je masque cette deuxième ligne, la macro ne fonctionne plus.
Comment faire pour qu'elle fonctionne avec cette deuxième ligne masquée?

Je vous remercie.

 

[Fred0o]

Re : Pb macro et ligne masquée

Bonjour fif2208,

En fait d'après ton code, si la ligne copiée est masquée, la nouvelle ligne sera aussi masquée. il suffit donc de la démasquer :

Sub Macro2()
    Rows("2:2").Select
    Selection.Copy
    Range("A65536").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
    ActiveCell.EntireRow.Hidden = False
    Application.CutCopyMode = False
    Range("B65536").End(xlUp).Offset(1, 0).Select
End Sub

A+

 

[fif2208]

Re : Pb macro et ligne masquée

Merci Fred0o pour ta réponse, maintenant cela fonctionne parfaitement.

Bonne fin de week end à tous.