ColumnWidths secondaire ()
Faible targ comme gamme, cel comme gamme
Sur le résumé d'erreur après
Placer le targ = l'Application.InputBox (« choisir svp la gamme que vous voulez rapporter des largeurs de colonnes pour », dactylographier : =8)
Sur l'erreur 0 GoTo
Si le targ n'est rien puis sortir le sous-marin
Application.ScreenUpdating = faux
Placer le targ = le targ. Rangées (1)
Avec Worksheets.Add (ensuite : =Worksheets (Worksheets.Count))
Pour chaque cel dans le targ. Cellules
. Cellules (1, cel. Colonne) = cel.EntireColumn.ColumnWidth
Après
Extrémité avec
Application.ScreenUpdating = rectifient
Sous-marin d'extrémité
|