Discussion :

[gibtoul]

Bonjour à tous

J'utilise le code suivant pour formater la taille des colonnes.

Est -il possible dans le meme espritde pouvoir formater aussi la taille de ligne

Merci pour votre aide

A bientot

Gibtoul

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub COL()
Dim t()
Dim Cpt1 As Long
Application.ScreenUpdating = False
t = Array(5, 7, 10, 3)
For Cpt1 = 2 To 21 Step 4
  For Cpt2 = 0 To 3
    Columns(Cpt1 + Cpt2).ColumnWidth = t(Cpt2)
    Next Cpt2
Next Cpt1
Application.ScreenUpdating = True
End Sub