R rudymagny XLDnaute Occasionnel 17 Avril 2006 #1 Rebonjour forum, je sais que pour les colonnes s'autosize, il faut faire ça: Columns('B:AF').EntireColumn.AutoFit mais ou placer ce bout de code? merci d'avance
Rebonjour forum, je sais que pour les colonnes s'autosize, il faut faire ça: Columns('B:AF').EntireColumn.AutoFit mais ou placer ce bout de code? merci d'avance
porcinet82 XLDnaute Barbatruc 17 Avril 2006 #2 Salut Rudymagny, Un petit exemple valant mieux qu'un long discours, je te propose de regarde le fichier joint. A noter toutefois qu'il faut utiliser le code suivant (avec le nom de la feuille) : Code: Worksheets('designation').Columns('A:I').AutoFit [file name=Rudymagny.zip size=8011]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Rudymagny.zip[/file] @+ Pièces jointes Rudymagny.zip 7.8 KB · Affichages: 24 Vote positif 0 Vote négatif
Salut Rudymagny, Un petit exemple valant mieux qu'un long discours, je te propose de regarde le fichier joint. A noter toutefois qu'il faut utiliser le code suivant (avec le nom de la feuille) : Code: Worksheets('designation').Columns('A:I').AutoFit [file name=Rudymagny.zip size=8011]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Rudymagny.zip[/file] @+
R rudymagny XLDnaute Occasionnel 17 Avril 2006 #3 bonjour porcinet82! Merci de ta réponse! Mais si je veux le faire à l'ouverture de la feuille? Vote positif 0 Vote négatif
porcinet82 XLDnaute Barbatruc 17 Avril 2006 #4 re, Je te conseil a ce moment la de mettre carrement le code dans le module ThisWorkbook, ce qui te donnera ceci : Code: Private Sub Workbook_Open() Worksheets('feuil1').Columns('A:F').AutoFit End Sub Ainsi, le format de tes colonnes sera adaptées a chaque ouverture de ton fichier. Sinon tu peux utiliser (a mettre dans le module de la feuille 1): Code: Private Sub Worksheet_Activate() Worksheets('feuil1').Columns('A:F').AutoFit End Sub Le format de tes colonnes sera adaptées a chaque fois que la feuille 1 sera activée. Voili, voilou, @+ Vote positif 0 Vote négatif
re, Je te conseil a ce moment la de mettre carrement le code dans le module ThisWorkbook, ce qui te donnera ceci : Code: Private Sub Workbook_Open() Worksheets('feuil1').Columns('A:F').AutoFit End Sub Ainsi, le format de tes colonnes sera adaptées a chaque ouverture de ton fichier. Sinon tu peux utiliser (a mettre dans le module de la feuille 1): Code: Private Sub Worksheet_Activate() Worksheets('feuil1').Columns('A:F').AutoFit End Sub Le format de tes colonnes sera adaptées a chaque fois que la feuille 1 sera activée. Voili, voilou, @+
R rudymagny XLDnaute Occasionnel 17 Avril 2006 #5 Merci porcinet82! C ce que je cherchais! Merci et bonne journée Vote positif 0 Vote négatif