Copier/coller hauteur des lignes

[Mi_]

Bonsoir le forum,

Dans le menu Collage spécial, il y a l'option 'Largeur des colonnes'.

Par contre il n'y a pas 'Hauteur des lignes'.

J'ai besoin de copier/coller l'hauteur des lignes d'une feuille à l'autre. En fait c'est plus simple, uniquement le paramètre ligne affichée/cachée et ce sur les 240 premières lignes.

J'ai bricolé le code suivant mais qui met un temps fou à s'exécuter :

Sub CopierHauteurLignes()
Application.ScreenUpdating = False

Dim Cellule As Range
For Each Cellule In Sheets(''Feuil1').Range('A1:A240')
i = Cellule.Row
If Cellule.EntireRow.Hidden = True Then
Sheets('Feuil2').Rows(i).EntireRow.Hidden = True
Else
Sheets(''Feuil2').Rows(i).EntireRow.Hidden = False
End If
Next Cellule

Application.ScreenUpdating = True

End Sub

Avez-vous des idées comment faire cela de manière plus simple et/ou plus rapide ?

Merci pour tout conseil,
Mi_

 

[ODVJ]

Bonsoir,

tu sélectionnes les lignes (1 à 240) et tu fais un copier/collagespécial format :

Rows('1:240').Select
Selection.Copy
Sheets('Feuil3').Select
Range('A1').Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

le défaut c'est que ça te copie plus que la hauteur des lignes.
Pour y remédier, si tu veux un format vierge en dehors des hauteurs de lignes, tu refais un copier/collage spécial format des colonnes d'une feuille vierge dans ta feuille de destination


cordialement

Message édité par: odvj, à: 30/05/2006 02:46