Derniere colonne
Bonjour chers tous
je voudrais savoir comment rediger mon code pour sélectionner les colonnes allant de B à la dernière colonne utilisée sur ma feuille
Un exemple:
Columns("B:X").select..........Ici "X" est la dernière colonne
Merci
Bonjour KTM,
dcol : dernière colonne ; ligne d'en-têtes du tableau : 5 (par exemple)
dcol = Cells(5, Columns.Count).End(xlToLeft).Column
essaye d'éviter .Select ... et de faire directement le travail voulu !
dhany
Merci dhany
En fait je voudrais ecrire ce code ci dessous mais en faisant intervenir la dernière colonne
Dim col As Range
For Each col In Columns("B:X")
col.AutoFit
If col.ColumnWidth < 12 Then col.ColumnWidth = 12
Next
Bonjour,
@KTM
Public Sub XXX()
Dim lastCol As Long
Const xlRW As Long = 1 'Ligne de référence
With ActiveSheet
lastCol = .Cells(xlRW, .Columns.Count).End(xlToLeft).Column
.Cells(xlRW, 2).Resize(, lastCol - 1).ColumnWidth = 12
End With
End Sub@KTM
je te propose ce code VBA :
Option Explicit
Sub Essai()
Dim n%, i%: Application.ScreenUpdating = 0
'remplace 3 par le n° ligne de la ligne d'en-têtes !
n = Cells(3, Columns.Count).End(xlToLeft).Column
Columns(2).Resize(, n - 1).AutoFit
For i = 2 To n
With Columns(i)
If .ColumnWidth < 12 Then .ColumnWidth = 12
End With
Next i
End Subtu peux tester avec ce fichier (qui contient la même macro) :
regarde la largeur actuelle des colonnes ; puis fais Ctrl e
⚠ le code VBA de Jean-Eric comporte un bug :
il met une largeur de 12 pour toutes les colonnes, y compris celles dont la largeur est plus grande que 12.
(je précise cela pour qu'il ne s'étonne pas que je propose un code VBA plus long que le sien)
dhany
Bonjour,
@Dhany,
Un petit rappel de février 2019!...
Chassez le naturel, il revient au galop.
merci pour ton retour !
sauf si tu as autre chose à demander, merci de passer le sujet en résolu : clique sur à droite de (coin haut droit du post) ➯ ; ça permet aussi de clôturer le fil de la discussion (toi seul peut le faire, car c'est toi qui a créé ce sujet).
dhany