Bonsoir à toutes et à tous,
je cherche l'instruction qui me permettra d'intervenir sur la largeur de la colonne d'un TCD contenant le champ "genre"
Mon code plante sur l'instruction .ColumnWidth = 25
En fait, je voudrais balayer toutes les feuilles de mon classeur et si le tcd contient le champ "genre", alors dimensionner la colonne à 25
Je n'arrive pas :
1) à tester si la feuille contient un TCD avec le champ "genre"
2) accéder à ce champ pour en régler la taille
Qui peut me dire ce qui ne va pas dans mon code ?
D'avance, un grand merci
xxxxxxxxxxxxxxxxxxxxxxxxxx ci-dessous mon code xxxxxxxxxxxxxxxxxx
Sub régler_colonne_genre()
Dim sh As Long
For sh = 1 To Sheets.Count ' on démarre de la 1ère feuille
Sheets(sh).Select
If ActiveSheet.PivotTables.Count > 0 Then
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Genre")
.ColumnWidth = 25
End With
End If
Next ' feuille suivante
End Sub
je cherche l'instruction qui me permettra d'intervenir sur la largeur de la colonne d'un TCD contenant le champ "genre"
Mon code plante sur l'instruction .ColumnWidth = 25
En fait, je voudrais balayer toutes les feuilles de mon classeur et si le tcd contient le champ "genre", alors dimensionner la colonne à 25
Je n'arrive pas :
1) à tester si la feuille contient un TCD avec le champ "genre"
2) accéder à ce champ pour en régler la taille
Qui peut me dire ce qui ne va pas dans mon code ?
D'avance, un grand merci
xxxxxxxxxxxxxxxxxxxxxxxxxx ci-dessous mon code xxxxxxxxxxxxxxxxxx
Sub régler_colonne_genre()
Dim sh As Long
For sh = 1 To Sheets.Count ' on démarre de la 1ère feuille
Sheets(sh).Select
If ActiveSheet.PivotTables.Count > 0 Then
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Genre")
.ColumnWidth = 25
End With
End If
Next ' feuille suivante
End Sub