Bonjour,
J'ai un Tableau croisé dynamique que j'aimerais filtrer pour n'avoir que élément numérique (0 à 9), car j'ai aussi des lettres de A à Z.
Serait-il possible de faire un code qui permet de tester l'élément, et s'il n'est pas numérique, alors le rendre invisible ?
Merci de votre aide !
J'ai un Tableau croisé dynamique que j'aimerais filtrer pour n'avoir que élément numérique (0 à 9), car j'ai aussi des lettres de A à Z.
Serait-il possible de faire un code qui permet de tester l'élément, et s'il n'est pas numérique, alors le rendre invisible ?
Code:
Dim pi As PivotItem
'Active tous les éléments
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Gauche component")
.EnableMultiplePageItems = True
.CurrentPage = "(All)" 'ou TOUS
End With
'PAr la suite, il faudrait que je cache les "non-numériques"
'J'ai donc testé avec ça, mais ca bug à la première ligne :(
For Each pi In ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Gauche component")
If Not IsNumeric(pi) Then
pi.Visible = False
End If
Next pi
Merci de votre aide !
Dernière édition: