XL 2016 Adapter code VBA a un tableau et non colonne entière

[Yücel]

Bonjour,

Je souhaiterai adapter le code ci-dessous uniquement au tableau nommé "Tableau1" et non à toute la colonne "F"

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.

 

[Yücel]

J'oubliais seulement la colonne "F" du tableau et non de toute la feuille.

Merci d'avance.

 

[Phil69970]

Bonjour Yucel, le forum

Une largeur de colonne s'applique à toute la même colonne et il est impossible de mettre seulement x ligne de cette colonne d'une largeur et les suivantes d'une autre largeur.

@Phil69970

 

[Yücel]

Bonjour Phil69970,

Étonnant pourtant lorsque je clique sur le cellule F9 rien ne se passe car la macro ne se lance qu'à partir de la F10. Je voulais seulement que lorsque je clique sur la colonne F du tableau uniquement, que la colonne F s'élargisse. Car là tout fonctionne bien sauf que lorsque je clique sur la cellule F50 alors que mon tableau se termine à la cellule F30 et bien la colonne s'élargie.

il doit forcement y avoir une solution pour que la macro se lance uniquement pour le tableau.

Merci à vous.

 

[Phil69970]

Yucel, le forum

Si tu es en F9 le code fait :

Columns("F").ColumnWidth = 11.67

et quand tu es de F10 à F1000

If Not Intersect(Range("F10:F1000")

Ta macro fait ce pour quoi elle a été programmé.

@Phil69970

 

[Yücel]

ok j'ai compris. merci bien

 

[Yücel]

Bonsoir

Peut-on alors adapter la macro non pas pour : Range("F10:F1000") mais de F10 jusqu'à la dernière cellule non vide de la colonne F ??

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 précieuse aide.

 

[Phil69970]

Yucel, le forum

Ceci devrait correspondre à votre demande :

Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim Derlig As String

Application.ScreenUpdating = False
Columns("F").ColumnWidth = 11.67

Derlig = Range("F" & Rows.Count).End(xlUp).Row

If Not Intersect(Range("F10:F" & Derlig), target) Is Nothing And target.Count = 1 Then
    Columns(target.Column).ColumnWidth = 50
End If

End Sub

@Phil69970

 

[Yücel]

Super merci bcp Phil69970 !!!

Très bonne soirée à vous 😀

 

[Staple1600]

Bonsoir le fil,

Si j'ai bien compris le but recherché
Une autre façon de faire

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Column = 6 Then
If T.Count > 1 Then Exit Sub
Columns(T.Column).ColumnWidth = IIf(T.Row >= 10, 50, 11.67)
End If
End Sub