Paramétrer la largeur des colonnes

[Razy]

Salut,

Espérons que qq'un puisse m'aider à trouver une solution plus belle que celle que j'ai. Voilà: à partir d'une flexgrid VB, je lance Excel, j'y écrit des données et notamment la valeur d'un angle pouvant varier de 1 à 180°. Ce que je souhaite, c'est que la largeur des colonnes pour les angles 1, 10, 20, 30 ... et 180° soit de 4 tandis que pour les autres valeurs, elle soit de 1. j'ai donc écrit le code suivant:

'on change la largeur des colonnes à 1
objWorkSheet.Columns("E:GB").columnwidth = 1


objWorkSheet.Columns("E:E").columnwidth = 4
objWorkSheet.Columns("N:N").columnwidth = 4
objWorkSheet.Columns("X:X").columnwidth = 4
objWorkSheet.Columns("AH:AH").columnwidth = 4....

N'y-a-t-il pas un autre moyen de figer la largeur des colonnes E, N, X,...etc à 4 plutôt que d'écrire une ligne de code pour chaque colonne??

Merci

PS: je fais cela en VB et non en VBA pour lequel la ligne Range("E:E,N:N,X:X,AH:AH....").Select aurait suffit à mon bonheur..

 

[Lord Nelson]

Salut Razy,

Tu dois pouvoir boucler, comme ça :

Dim I As Integer
For I = 5 To 34 Step 10
objWorkSheet.Columns(I).ColumnWidth = 4
Next

Il suffit de prendre les colonnes en numérique : 5 pour E, 15 pour O...

A+
LN

 

[Razy]

Ok,

Merci ... c'est vrai que cela me permet de gagner une dizaine de lignes de code.. Parfois, j'ai du mal à trouver les trucs les plus simples.