MAJ de largeur de colonnes avec une boucle do while

Bonjour,

Je souhaite imposer les largeurs de colonnes d'un tableau en utilisant une boucle do while car le nombre de colonnes peut varier en fonction de l'utilisation. Pour cela je recherche la synthaxe pour incrémenter ma boucle avec des lettres ...

il faudrait donc remplacer le programme ci-dessous :

Columns("A:A").ColumnWidth = 60 'colonne Event circonstances

Columns("B:B").ColumnWidth = 10 'colonne operateur

Columns("C:C").ColumnWidth = 15 'colonne operateur

.....

par

num_col =A

do while cells(1,num_col)<>"" 'tant qu'il existe des colonnes renseignées sur le tableau

Columns("num_col:num_col").ColumnWidth = tab_col(num_col) 'colonne Event circonstance

loop

est il possible d'avoir une aide??

Merci pour votre retour.

Cordialement,

Fred

Bonjour et bienvenue sur le forum

Je ne suis pas sûr d'avoir compris mais essaie ce code :

Sub MiseàjourLargeurColonnes()

    i = 0
    While Cells(1, i + 1).Value <> ""
        i = i + 1
        If i Mod 3 = 1 Then
            Columns(i).ColumnWidth = 60
        ElseIf i Mod 3 = 2 Then
            Columns(i).ColumnWidth = 10
        Else
            Columns(i).ColumnWidth = 15
        End If
    Wend

End Sub

Bye !

Bonjour,

Merci pour ton retour tres rapide. Ca fonctionne tres bien, en fait il me manquait la synthaxe Columns(i).. J'ai pu faire une boucle sur le nombre de colonnes désiré.

Bonne journée