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_
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_