Redimensionnement auto des colonnes

[Piou]

Bonjour à tous, voila mon souci :

J'aimerais que quand une case d'une colonne est vide, que la largeur de cette dite colonne soit mises à 0...

Merci de bien vouloir aider un débutant.
Piou

 

[François]

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