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
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
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" <GGAL@discussions.microsoft.com> a écrit dans le message de
news:B01401E8-CD3E-4709-897B-8DAF25541F34@microsoft.com...
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
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
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
Bonjour
Par exemple :
With Worksheets(1)
.Range(Cells(1, 1), Cells(1,
.Range("IV1").End(xlToLeft).Column)).EntireColumn.AutoFit
End With
Cordialement
Pascal
"GGAL" <GGAL@discussions.microsoft.com> a écrit dans le message de news:
B01401E8-CD3E-4709-897B-8DAF25541F34@microsoft.com...
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
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
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
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
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" <GGAL@discussions.microsoft.com> a écrit dans le message de
news:B01401E8-CD3E-4709-897B-8DAF25541F34@microsoft.com...
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
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
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
Je précise parce qu'il y retour à la ligne intempestif :
code sur 3 lignes
Cordialement
Pascal
"papou" <cpasboncpapou@lapostecanonplus.net> a écrit dans le message de
news: uyacmbnLIHA.4476@TK2MSFTNGP06.phx.gbl...
Bonjour
Par exemple :
With Worksheets(1)
.Range(Cells(1, 1), Cells(1,
.Range("IV1").End(xlToLeft).Column)).EntireColumn.AutoFit
End With
Cordialement
Pascal
"GGAL" <GGAL@discussions.microsoft.com> a écrit dans le message de news:
B01401E8-CD3E-4709-897B-8DAF25541F34@microsoft.com...
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
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
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
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" <cpasboncpapou@lapostecanonplus.net> a écrit dans le message de
news: uyacmbnLIHA.4476@TK2MSFTNGP06.phx.gbl...
Bonjour
Par exemple :
With Worksheets(1)
.Range(Cells(1, 1), Cells(1,
.Range("IV1").End(xlToLeft).Column)).EntireColumn.AutoFit
End With
Cordialement
Pascal
"GGAL" <GGAL@discussions.microsoft.com> a écrit dans le message de news:
B01401E8-CD3E-4709-897B-8DAF25541F34@microsoft.com...
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
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
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
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
http://dj.joss.free.fr/trombine.htm
Avec plus ou moins de plaisir
Philippe.R
"GGAL" <GGAL@discussions.microsoft.com> a écrit dans le message de
news:777B4A32-A251-4A16-BB70-7532201940A6@microsoft.com...
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" <GGAL@discussions.microsoft.com> a écrit dans le message de
news:B01401E8-CD3E-4709-897B-8DAF25541F34@microsoft.com...
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
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
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
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" <GGAL@discussions.microsoft.com> a écrit dans le message de news:
267DC543-D04B-4B8D-BEF8-12A2C0961D4F@microsoft.com...
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" <cpasboncpapou@lapostecanonplus.net> a écrit dans le message de
news: uyacmbnLIHA.4476@TK2MSFTNGP06.phx.gbl...
Bonjour
Par exemple :
With Worksheets(1)
.Range(Cells(1, 1), Cells(1,
.Range("IV1").End(xlToLeft).Column)).EntireColumn.AutoFit
End With
Cordialement
Pascal
"GGAL" <GGAL@discussions.microsoft.com> a écrit dans le message de
news:
B01401E8-CD3E-4709-897B-8DAF25541F34@microsoft.com...
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
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