Sub SigneMoins7_Cliquer()
With ActiveSheet
.Cells.RowHeight = .Cells.RowHeight - 5
End With
End Sub
Sub SignePlus5_Cliquer()
[QUOTE="Nico_J, post: 20638825, member: 208211"]
ou avec signe + et -, j'avais pas fais attention.
[CODE=vb]Sub SigneMoins7_Cliquer()
With ActiveSheet
.Cells.RowHeight = .Cells.RowHeight - 5
End With
End Sub
Sub SignePlus5_Cliquer()
With ActiveSheet
.Cells.RowHeight = .Cells.RowHeight + 5
End With
End Sub