VBA : ajuster des colonnes
Résolu/Fermé
VBA
-
6 avril 2012 à 16:47
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 - 6 avril 2012 à 19:26
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 - 6 avril 2012 à 19:26
A voir également:
- Vba ajuster largeur colonne
- Déplacer une colonne excel - Guide
- Colonne word - Guide
- Additionner colonne excel - Guide
- Triez la liste comme sur cette illustration (attention, on ne voit que le début …). quel est le mot formé par les 6 dernières lettres de la colonne code ? - Forum Excel
- Paramétrez l'impression de ce document de telle sorte que les 5 colonnes occupent toute la largeur de la page (orientation portrait, format a4). combien de pages seront imprimées ? ✓ - Forum Excel
3 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
6 avril 2012 à 17:31
6 avril 2012 à 17:31
Bonjour,
Code a adapter a votre besoin.
Sub test()
'derniere colonne utilisée de la feuille
dercol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
'Lettre de la Colonne en fonction de son numero
lc = Split(Cells(2, dercol).Address, "$")(1)
'Ajuste colonnes
Columns("A:" & lc).EntireColumn.AutoFit
End Sub
Bonne suite
Code a adapter a votre besoin.
Sub test()
'derniere colonne utilisée de la feuille
dercol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
'Lettre de la Colonne en fonction de son numero
lc = Split(Cells(2, dercol).Address, "$")(1)
'Ajuste colonnes
Columns("A:" & lc).EntireColumn.AutoFit
End Sub
Bonne suite
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
6 avril 2012 à 19:26
6 avril 2012 à 19:26
Salut,
tu aurais pu également mettre ce code dans la propriété de la feuille (clic sur l'onglet de ta feuille/Visualiser le code)
le déplacement de la souris dans une cellule entre la colonne 1 (A) et 7 (G) et les lignes 3 et 30 règle automatiquement la largeur de la colonne la largeur par défaut des colonnes inactives est 5 à adapter
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column >= 1 And Target.Column <= 7 And Target.Row >= 3 And Target.Row <= 30 Then
Columns("A:G").ColumnWidth = 5
Me.Columns(Target.Column).EntireColumn.AutoFit
End If
End Sub
tu aurais pu également mettre ce code dans la propriété de la feuille (clic sur l'onglet de ta feuille/Visualiser le code)
le déplacement de la souris dans une cellule entre la colonne 1 (A) et 7 (G) et les lignes 3 et 30 règle automatiquement la largeur de la colonne la largeur par défaut des colonnes inactives est 5 à adapter
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column >= 1 And Target.Column <= 7 And Target.Row >= 3 And Target.Row <= 30 Then
Columns("A:G").ColumnWidth = 5
Me.Columns(Target.Column).EntireColumn.AutoFit
End If
End Sub
