Discussion :

[Maxou 10]

Bonsoir a tous,

j'aimerais savoir si je peux sélectionné en VBA une ligne de tableau avec etireRow ou autre ?
voila mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim zone As Range
    Set zone = ActiveCell.EntireRow.ListObjects("Tableau1")

Merci et bonne soirée

[78chris]

Bonjour

Il faut se référer au ListRow

Selon ton exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Target.ListObject Is Nothing Then
        Dim zone As Range
        With Target.ListObject
            Set zone = .ListRows(Target.Row - .Range.Row).Range
        End With
    End If

[Maxou 10]

Une fois de plus vous avez assuré... cela fonctionne parfaitement.

Un grand merci

Je mets mon code entier pour ceux que ça intéresse....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim zone As Range
 
        If Not Intersect(Target, Range("Cartes")) Is Nothing Then
 
        Cells.FormatConditions.Delete
 
        With Target.ListObject
            Set zone = .ListRows(Target.Row - .Range.Row).Range
        End With
 
        With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE(" & zone.Cells(1).Address(False, False) & ")=" & ActiveCell.Row)
        .Interior.Color = 9420794
        .Font.Bold = True
        zone.Font.Size = 14
        End With
 
        Else
        Cells.FormatConditions.Delete
 
    End If
End Sub

Bonne soirée