Redimensionner 1 colonne sur 3

bonjour,

un problème basique pour vous les experts.

Je cherche comme indiqué dans le titre a redimensionner 1 colonne sur 3 dans une feuille ou une partie .

j'arrive avec le code ci dessous à faire le décalage et le l'élargissement de la colonne mais je ne sais pas faire la boucle pour automatiser.

merci d'avance

Sub resize()

Dim i As Variant

    For i = Cells(1, 1) To Cells(1, Column.Count)
    ActiveCell.ColumnWidth = 50
    ActiveCell.Offset(0, 3).Activate

  Next i

End Sub

Bonjour

Essaye :

Sub resize()
Dim x As Integer, i As Integer

 x = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
    For i = 1 To x Step 3
    Columns(i).ColumnWidth = 50
  Next i

End Sub

Amicalement

Nad

merci Nad,

je vais essayer cela demain ,il est tard chez moi.

le STEP dans le code permet le décalage de 3 cellules vers la droite?

bonne journée

Re

Le step indique de combien le i doit être incrémenté à la prochaine boucle

For i = 1 To x

1ère boucle, i vaut 1

2ème boucle, i vaut 2

For i = 1 To x Step 3

1ère boucle, i vaut 1

2ème boucle, i vaut 1+3 soit 4

Nad

merci pour tout