Yücel
XLDnaute Junior
Bonjour,
Je souhaiterai adapter le code ci-dessous uniquement au tableau nommé "Tableau1" et non à toute la colonne "F"
Merci pour votre aide.
Je souhaiterai adapter le code ci-dessous uniquement au tableau nommé "Tableau1" et non à toute la colonne "F"
VB:
Private Sub Worksheet_SelectionChange(ByVal target As Range)
Application.ScreenUpdating = False
Columns("F").ColumnWidth = 11.67
If Not Intersect(Range("F10:F1000"), target) Is Nothing And target.Count = 1 Then
Columns(target.Column).ColumnWidth = 50
End If
End Sub
Merci pour votre aide.