Définir largeur colonnes toutes les x colonnes

[chocococo]

Bonsoir à tout le forum,

Ai fait plusieurs recherches... peut-être suis-je passé au travers d'une ancienne discussion... ???

Je travaille sur un tableau très en largeur comme base de données. Pour éviter un travail fastidieux (redéfinir pas à pas chaque colonne choisies), je cherche à paramétrer la même largeur des colonnes de ce tableau toutes les 8 colonnes.

Du peu que je comprenne la programmation VBA, il semble falloir utiliser une boucle pour :
_ démarrer d'une colonne de référence (ActiveCell)
_ demander au système de définir la même largeur (30) toutes les 08 colonnes et ce, sur l'ensemble de la feuille.

Pourriez-vous m'aider svp ? En vous remerciant.

 

[frangy]

Bonsoir,

Essaye avec cette macro ...

Sub Test()
Dim Plage As Range
Dim Col As Integer, N As Integer
    Application.ScreenUpdating = False
    Set Plage = Application.InputBox("Sélectionnez la colonne de référence", Type:=8)
    Do
        Col = Plage.Column + N * 8
        N = N + 1
        If Col > Columns.Count Then Exit Do
        Columns(Col).ColumnWidth = 30
    Loop
    Application.ScreenUpdating = True
End Sub

Cordialement.

 

[chocococo]

Bonsoir Frangy,
Merci pour votre réponse, cela répond exactement à ma recherche. A bientôt