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

[Philippe Tulliez]

Bonjour,
.ColumnWidth est une propriété de l'objet Range et renvoie ou définit la largeur de toutes les colonnes de la plage spécifiée et évidemment que pour définir la hauteur d'une ou plusieurs lignes d'une plage il y a également une propriété sinon tu ne pourrais pas le faire manuellement. Cette propriété est .RowHeight.
Si tu avais utilisé l'enregistreur de macros tu aurais pu le constater par toi même et il était inutile de laisser un classeur à télécharger.

[gibtoul]

Bonjour Philippe

J'ai modifié le code comme ceci mais ca pas l'air de fonctionner

Je suis pas un pro de VBA, d'ou mon tatonnement pour trouver uns solution

Te remercie pour ton aide

A+

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
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
    Rows(Cpt1 + Cpt2).RowHeigh = t(Cpt2)
    Next Cpt2
Next Cpt1
Application.ScreenUpdating = True
End Sub

[Philippe Tulliez]

Bonjour,
Comme ceci ce serait mieux non ?

Code :

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

Rows(Cpt1 + cpt2).RowHeight = t(cpt2)

[gibtoul]

effectivement avec cette correction cela fonctionne

Je ne suis vraiement pas doué

je te remercie

a+

[Philippe Tulliez]

Bonjour,
Un langage informatique est très sensible à la syntaxe et à la parfaite orthographe de ses propriétés, ses méthodes et ses mots clés.
Heureusement que ce n'est pas comme cela dans la vie courante sinon il y aurait beaucoup d'accidents