Copier la hauteur des lignes et la largeur des colonnes en utilisant VBA dans Microsoft Excel
Avec les macros ci-dessous, vous pouvez copier les hauteurs de ligne et les largeurs de colonne d’une plage à une autre.
Private Sub CopyRowHeigths(TargetRange As Range, SourceRange As Range) Dim r As Long With SourceRange For r = 1 To .Rows.Count TargetRange.Rows(r).RowHeight = .Rows(r).RowHeight Next r End With End Sub Private Sub CopyColumnWidths(TargetRange As Range, SourceRange As Range) Dim c As Long With SourceRange For c = 1 To .Columns.Count TargetRange.Columns(c).ColumnWidth = .Columns(c).ColumnWidth Next c End With End Sub
Exemple:
CopyColumnWidths(Range("E1:H1"), Range("A1:D1")) CopyColumnWidths(Worksheets("Sheet2").Range("A1:D1"), _ Worksheets("Sheet1").Range("A1:D1"))