Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Ajuster plusieurs colonnes

7 réponses
Avatar
GGAL
Bonjour,

Pour ajuster automatiquement les colonnes de A à M, on a
Sheets(1).Columns("A:M").AutoFit

Mais lorsque la dernière colonne n'est connue que par
dercol = Sheets(1).Range("iv1").End(xlToLeft).Column
Comment écrire la procédure ?
Merci d'avance,
Ggal

7 réponses

Avatar
Philippe.R
Bonjour,

Sub autolarge()
dercol = Range("iv1").End(xlToLeft).Column
Sheets(1).Range(Cells(1, 1), Cells(1, dercol)).Columns.AutoFit
End Sub

devrait pouvoir convenir
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"GGAL" a écrit dans le message de
news:
Bonjour,

Pour ajuster automatiquement les colonnes de A à M, on a
Sheets(1).Columns("A:M").AutoFit

Mais lorsque la dernière colonne n'est connue que par
dercol = Sheets(1).Range("iv1").End(xlToLeft).Column
Comment écrire la procédure ?
Merci d'avance,
Ggal



Avatar
papou
Bonjour
Par exemple :
With Worksheets(1)
.Range(Cells(1, 1), Cells(1,
.Range("IV1").End(xlToLeft).Column)).EntireColumn.AutoFit
End With

Cordialement
Pascal

"GGAL" a écrit dans le message de news:

Bonjour,

Pour ajuster automatiquement les colonnes de A à M, on a
Sheets(1).Columns("A:M").AutoFit

Mais lorsque la dernière colonne n'est connue que par
dercol = Sheets(1).Range("iv1").End(xlToLeft).Column
Comment écrire la procédure ?
Merci d'avance,
Ggal



Avatar
GGAL
Non ça ne marche pas
Par contre j'ai trouvé autre chose, un peu lourd à mon avis :

Sub autolarge()
dercol = Range("iv1").End(xlToLeft).Column
Sheets(1).Columns("a:" & CStr(Chr(65 + dercol - 1))).AutoFit
End Sub

Ggal


Bonjour,

Sub autolarge()
dercol = Range("iv1").End(xlToLeft).Column
Sheets(1).Range(Cells(1, 1), Cells(1, dercol)).Columns.AutoFit
End Sub

devrait pouvoir convenir
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"GGAL" a écrit dans le message de
news:
Bonjour,

Pour ajuster automatiquement les colonnes de A à M, on a
Sheets(1).Columns("A:M").AutoFit

Mais lorsque la dernière colonne n'est connue que par
dercol = Sheets(1).Range("iv1").End(xlToLeft).Column
Comment écrire la procédure ?
Merci d'avance,
Ggal







Avatar
papou
Je précise parce qu'il y retour à la ligne intempestif :
code sur 3 lignes

Cordialement
Pascal

"papou" a écrit dans le message de
news:
Bonjour
Par exemple :
With Worksheets(1)
.Range(Cells(1, 1), Cells(1,
.Range("IV1").End(xlToLeft).Column)).EntireColumn.AutoFit
End With

Cordialement
Pascal

"GGAL" a écrit dans le message de news:

Bonjour,

Pour ajuster automatiquement les colonnes de A à M, on a
Sheets(1).Columns("A:M").AutoFit

Mais lorsque la dernière colonne n'est connue que par
dercol = Sheets(1).Range("iv1").End(xlToLeft).Column
Comment écrire la procédure ?
Merci d'avance,
Ggal







Avatar
GGAL
Au temps pour moi, ça fonctionne à condition de préciser :
Sheets(1).Activate
De plus, c'est apparemment un peu plus rapide
Merci,

Ggal


Je précise parce qu'il y retour à la ligne intempestif :
code sur 3 lignes

Cordialement
Pascal

"papou" a écrit dans le message de
news:
Bonjour
Par exemple :
With Worksheets(1)
.Range(Cells(1, 1), Cells(1,
.Range("IV1").End(xlToLeft).Column)).EntireColumn.AutoFit
End With

Cordialement
Pascal

"GGAL" a écrit dans le message de news:

Bonjour,

Pour ajuster automatiquement les colonnes de A à M, on a
Sheets(1).Columns("A:M").AutoFit

Mais lorsque la dernière colonne n'est connue que par
dercol = Sheets(1).Range("iv1").End(xlToLeft).Column
Comment écrire la procédure ?
Merci d'avance,
Ggal












Avatar
Philippe.R
Curieux que ça ne fonctionne pas chez toi ; chez moi le test est
parfaitement concluant !
Inutile de remercier, c'est gratuit.
--
http://www.excelabo.net/mpfe/connexion.php" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/trombine.htm
Avec plus ou moins de plaisir
Philippe.R
"GGAL" a écrit dans le message de
news:
Non ça ne marche pas
Par contre j'ai trouvé autre chose, un peu lourd à mon avis :

Sub autolarge()
dercol = Range("iv1").End(xlToLeft).Column
Sheets(1).Columns("a:" & CStr(Chr(65 + dercol - 1))).AutoFit
End Sub

Ggal


Bonjour,

Sub autolarge()
dercol = Range("iv1").End(xlToLeft).Column
Sheets(1).Range(Cells(1, 1), Cells(1, dercol)).Columns.AutoFit
End Sub

devrait pouvoir convenir
--
http://www.excelabo.net/mpfe/connexion.php" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"GGAL" a écrit dans le message de
news:
Bonjour,

Pour ajuster automatiquement les colonnes de A à M, on a
Sheets(1).Columns("A:M").AutoFit

Mais lorsque la dernière colonne n'est connue que par
dercol = Sheets(1).Range("iv1").End(xlToLeft).Column
Comment écrire la procédure ?
Merci d'avance,
Ggal









Avatar
papou
Bonjour
Au temps pour moi, ça fonctionne à condition de préciser :
Sheets(1).Activate


Non, ça ne doit pas être obligatoire, si ça ne fonctionne pas sans cela,
alors il y a un autre problème.

Cordialement
Pascal

"GGAL" a écrit dans le message de news:

Au temps pour moi, ça fonctionne à condition de préciser :
Sheets(1).Activate
De plus, c'est apparemment un peu plus rapide
Merci,

Ggal


Je précise parce qu'il y retour à la ligne intempestif :
code sur 3 lignes

Cordialement
Pascal

"papou" a écrit dans le message de
news:
Bonjour
Par exemple :
With Worksheets(1)
.Range(Cells(1, 1), Cells(1,
.Range("IV1").End(xlToLeft).Column)).EntireColumn.AutoFit
End With

Cordialement
Pascal

"GGAL" a écrit dans le message de
news:

Bonjour,

Pour ajuster automatiquement les colonnes de A à M, on a
Sheets(1).Columns("A:M").AutoFit

Mais lorsque la dernière colonne n'est connue que par
dercol = Sheets(1).Range("iv1").End(xlToLeft).Column
Comment écrire la procédure ?
Merci d'avance,
Ggal