Lancer une macro en double clic

[BRUNO62]

Bonjour,

Je cherche à lancer cette macro en double clic quand je suis sur la feuille équipt.
Avez vous une idée ?
Par avance merci
A+


Sub croise()
'

Cells.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"équipt!A:L").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique1"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").SmallGrid = False
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields:= _
Array("Pos. tr.", "Données")
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Nºde série ")
.Orientation = xlDataField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Part service")
.Orientation = xlDataField
.Caption = "Somme Part service"
.Position = 2
.Function = xlSum
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Pl.entret.bis")
.Orientation = xlDataField
.Position = 3
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Val. Forf.")
.Orientation = xlDataField
.Caption = "Somme Val. Forf."
.Function = xlSum
End With
Application.CommandBars("PivotTable").Visible = False
Range("B4").Select
End Sub

 

[Macpoy]

Re : Lancer une macro en double clic

bonjour le forum, BRUNO62

à mettre dans le code de la feuille concernée

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
croise
End Sub

@plus

 

[BRUNO62]

Re : Lancer une macro en double clic

Macpoy,

Merci, c'est OK.
A+