Microsoft 365 Worksheet_SelectionChange appartenance à un TCD

[Laurent78]

Bonjour à Tous,

Je n'ai pas trouvé sur le forum (peut-être ai-je mal cherché).

Existe t il un moyen (simple) de tester que la cellule sélectionnée, lors du déclenchement de l'évènement Worksheet_SelectionChange, se trouve dans un TCD (sachant bien évidement que le TCD peut être mis à jour et que le nombre de lignes peut donc changer) ?
Merci
Bon vendredi
Laurent

 

[chris]

Bonjour

Dans le module de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Surface As Range
'Vérifie où se situe la selection
    For Each TCD In ActiveSheet.PivotTables
        Set Surface = TCD.TableRange1
        If Not Intersect(Target, Surface) Is Nothing Then
            MsgBox "je suis dans un TCD"
            Exit Sub
        End If
    Next
End Sub

 

[Laurent78]

Bonjour

Dans le module de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Surface As Range
'Vérifie où se situe la selection
    For Each TCD In ActiveSheet.PivotTables
        Set Surface = TCD.TableRange1
        If Not Intersect(Target, Surface) Is Nothing Then
            MsgBox "je suis dans un TCD"
            Exit Sub
        End If
    Next
End Sub

C'est la propriété TableRange1 qui me manquait le plus. Merci Chris