Copier un onglet vers un autre sans les lignes masquées, avec la mise en forme.

[WDAndCo]

Bonsoir le Forum,
J'ai trouvé ce code sur ce forum, mais il ne fonctionne pas comme je voudrais.

Sub Macro1()
With Worksheets("FicheM")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.EntireRow.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Feuil2").Range("A1")
End With
End With
End Sub

Je voudrais copier un onglet dans le quel certaines ligne ont étaient masquées avec

Rows("49:50").Select: Selection.EntireRow.Hidden = True

par exemple. Sur un nouveau onglet avec uniquement les lignes affichés du 1er avec si possible la mise en forme.

D'avance merci de l'aide apporté.

Dominique

Edit : Je vous ai mis un Exemple

 

[laurent950]

Re : Copier un onglet vers un autre sans les lignes masquées, avec la mise en forme.

Bonsoir WDandCO,

peut être que le code est celui-ci ?

Sub Macro1()
With Worksheets("Feuil1") ' Remplacer ("FicheM") par ("Feuil1")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.EntireRow.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Feuil2").Range("A1")
End With
End With
End Sub

 

[TempusFugit]

Re : Copier un onglet vers un autre sans les lignes masquées, avec la mise en forme.

Bonjour


Ceci fonctionne sur mon PC
(Mettre le nom des feuilles adéquats)

Sub Test()
Feuil1.[A1].CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Feuil2.[A1]
End Sub

 

[Si...]

Re : Copier un onglet vers un autre sans les lignes masquées, avec la mise en forme.

salut

et ainSI... ?

Sub Test()
  Feuil1.Cells.SpecialCells(xlCellTypeVisible).Copy Feuil2.[A1]
End Sub

 

[WDAndCo]

Re : Copier un onglet vers un autre sans les lignes masquées, avec la mise en forme.

Bonsoir et merci pour vos réponses, mais

Avec la solution de laurent950 j'ai :

Erreur d’exécution '9' L'indice n’appartient pas à la sélection'

Avec la solution de TempusFugit et celle de Si... j'ai :

Erreur d’exécution '1004' Impossible de modifier une cellule fusionnée.'

Dominique

 

[Bebere]

Re : Copier un onglet vers un autre sans les lignes masquées, avec la mise en forme.

bonjour

sous excel 2003
le code de Tempusfugit est bon

celui de Si comme suit

Sub Test()
Feuil1.UsedRange.SpecialCells(xlCellTypeVisible).Copy Feuil2.[A1]
End Sub

à bientôt

 

[TempusFugit]

Re : Copier un onglet vers un autre sans les lignes masquées, avec la mise en forme.

Bonjour


Dans le fichier Exemple, il n'y avait pas de cellules fusionnées.

Et effectivement, j'utilise Excel 2003.

CurrentRegion s'utilise si pas de cellules vides dans la plage de cellules à traiter, ce qui était le cas dans le fichier exemple.

 

[WDAndCo]

Re : Copier un onglet vers un autre sans les lignes masquées, avec la mise en forme.

Bonsoir le Forum

Merci pour vos réponses.

J'ai contourné le probleme de la façon suivante :

Je copie la page disons maitre et la colle dans le même classeur puis je masque les lignes que je n'ai pas besoin sur cette nouvelle feuille , puis il me reste a effacer les ligne masqués !

J’espère trouver sur ce forum la solution de l'effacement de lignes masquées.

Encore merci, a bientôt, car j'aurais de nouveau besoin de vous.

Dominique

 

[Bebere]

Re : Copier un onglet vers un autre sans les lignes masquées, avec la mise en forme.

bonjour
et avec ce code

Sub Test()
Dim Rng As Range

Set Rng = Feuil1.UsedRange
  Rng.SpecialCells(xlCellTypeVisible).Copy Feuil2.[A1]
  
End Sub