Redimensionnement auto des colonnes

voila un petit exemple en VB


Sub Macro3()
If Cells(1, 2) = '' Then
Columns('B:B').ColumnWidth = 0
Else
Columns('B:B').ColumnWidth = 5
End If
End Sub


le programme test si la cellule B1 (1=ligne,2=colonne) est vide
si c'est le cas la largeur est de 0
sinon, la largeur est mise à 5

j'espère que cela répond à votre attente

bonne fin de journée