Selection EntireRow tableau

Version imprimable

27/04/2021, 21h43
Maxou 10

Selection EntireRow tableau
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:

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

Bonjour

Il faut se référer au ListRow

Selon ton exemple

Code:

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

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:

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