Discussion :

[damsmut]

Bonjour,


Avec l'évenement :

Code :

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

1
2
3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
End Sub

Comment savoir si le double clic a été fait dans une cellule normale ou dans une cellule d'un tableau croisé dynamique ?


Comment savoir cela ?

Merci


Dams'

[mercatog]

Une proposition

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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Pt As PivotTable
Dim i As Integer
 
i = ActiveSheet.PivotTables.Count
If i > 0 Then
    Set Pt = ActiveSheet.PivotTables(1)
    If Not Intersect(Target, Pt.TableRange2) Is Nothing Then
        Cancel = True
        MsgBox "appartient au TCD"
    Else
        MsgBox "n'appartient pas au TCD"
    End If
    Set Pt = Nothing
Else
    MsgBox "aucun TCD sur la feuille"
End If
End Sub

[Edit]
Une autre proposition qui utilise la gestion des erreur

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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Pt As PivotTable
 
On Error Resume Next
Set Pt = Target.PivotTable
On Error GoTo 0
 
If Not Pt Is Nothing Then
    Cancel = True
    MsgBox "appartient au TCD"
    Set Pt = Nothing
Else
    MsgBox "N'appartient pas au TCD"
End If
End Sub

[damsmut]

merci beaucoup c'est parfait.


peux tu juste m'expliquer à quoi sert la ligne :

Code :

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

Cancel = True

[damsmut]

c'est bon j'ai trouvé, je me réponds :

Le paramètre Cancel désactive l'action associée à une macro évènementielle.

Le double clic vous permet d'éditer la cellule (Le curseur clignote dans la cellule). Spécifiez Cancel = True pour empêcher l'édition.