Bonjour à toutes et à tous,
Dans un TCD, je n’arrive pas à tester la présence d’un champ et du coup, mon code plante quand la feuille ne contient pas ce champ.
Qui peut me dire comment on écrit en VBA quelque chose comme « si le PivotFiled(‘’ Produit’’) n’existe pas, alors … »
Merci d’avance pour vos lumières
xxxxxxx Actuellement, j’ai ça xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Ajuster_Largeur_Colonne_Produit()
If ActiveSheet.PivotTables.Count > 0 Then
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Produit").LabelRange.Select
With Selection
. ColumnWidth = 60
End With
End If
End Sub
Dans un TCD, je n’arrive pas à tester la présence d’un champ et du coup, mon code plante quand la feuille ne contient pas ce champ.
Qui peut me dire comment on écrit en VBA quelque chose comme « si le PivotFiled(‘’ Produit’’) n’existe pas, alors … »
Merci d’avance pour vos lumières
xxxxxxx Actuellement, j’ai ça xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Ajuster_Largeur_Colonne_Produit()
If ActiveSheet.PivotTables.Count > 0 Then
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Produit").LabelRange.Select
With Selection
. ColumnWidth = 60
End With
End If
End Sub