Dim plage As Range Set plage = Range("A1:G10") plage.RowHeight = 4 For i = 2 To plage.Rows.Count Step 2 plage.Rows(i).RowHeight = 40 Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionCet exemple montre comment définir toutes les autres lignes de la feuille Sheet1 sur une hauteur de 4 points.
Visual Basic pour Applications
For Each rw In Worksheets("Sheet1").Rows
If rw.Row Mod 2 = 0 Then
rw.RowHeight = 4
End If
Next rw