merinos
XLDnaute Accro
Je viens de découvrir une astuce ... merci Ce lien n'existe plus
Tout en noir...
Et en couleur...
Mais comme c'est joli... et la différence?
(J'ai ajouté des espace afin que le forum ne reconnaisse pas le code)
[ code ] ... [ /code ]
[ code= vb ] ... [ / code ]
Je rêve juste de retrouver la même chose dans excel....
Merinos
Tout en noir...
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Range("client_selector"), Target) Is Nothing And Target.Count = 1 Then
' ***
ActiveSheet.PivotTables("PivotTable2").PivotFields("unique").CurrentPage = Range("client_selector").Value
' ***
Else
'***
Me.ComboBox1.Visible = False
'***
End If
End Sub
Et en couleur...
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Range("client_selector"), Target) Is Nothing And Target.Count = 1 Then
' ***
ActiveSheet.PivotTables("PivotTable2").PivotFields("unique").CurrentPage = Range("client_selector").Value
' ***
Else
'***
Me.ComboBox1.Visible = False
'***
End If
End Sub
Mais comme c'est joli... et la différence?
(J'ai ajouté des espace afin que le forum ne reconnaisse pas le code)
[ code ] ... [ /code ]
[ code= vb ] ... [ / code ]
Je rêve juste de retrouver la même chose dans excel....
Merinos