Astuces Excel
  1. Astuces Excel
  3. Ajout de champ sur le tableau pivot à l'aide de VBA
Intereting Posts
Excel – count uniques dans une gamme basée sur un autre champ Le crash s'est produit en dehors de Java Virtual Machine en erreur de code natif lors de l'édition de files Excel Définir les propriétés de la colonne dans Excel en utilisant PHP Sélection d'une large gamme de valeur dans Excel VBA Erreur de compilation de tableau attendue dans excel VBA Remplissage de text ou ajustement de largeur automatique dans la colonne Excel à l'aide de ColdFusion La macro Excel ne se met pas à jour correctement SUMIFS commençant par Macro Excel pour sauvegarder sous la valeur de la cellule Exporter vers CSV via PHP Utilisation de Index / Max / If pour find plusieurs valeurs dans le tableau et get le résultat de la valeur correspondante le plus élevé affiché Supprimer le button de la ligne en supprimant d'autres lignes à la place Comment appeler une macro à partir d'une autre feuille de calcul? Excel VBA. Effectue les modifications de la fonction. à , Déplacement de colonnes vers des lignes dans la plage sélectionnée par l'user avec un script VBA

Ajout de champ sur le tableau pivot à l'aide de VBA

 
ActiveSheet.PivotTables("PivotTable5").AddDataField ActiveSheet.PivotTables( _ "PivotTable5").PivotFields(range("hidy!B" & pos).Value), "Sum of " & range("hidy!B" & pos).Value, xlSum

Bonjour, je supporte les champs du tableau pivot selon le contrôle déroulant des users. Mais dans le code ci-dessus, je reçois un message d'erreur "incapable d'get la propriété pivot de la class pivotable". Je suis très nouveau pour VBA excel, aidez-moi à comprendre

Modifiez votre code à ceci: 

 ActiveSheet.PivotTables("PivotTable5").AddDataField ActiveSheet.PivotTables( _ "PivotTable5").PivotFields(Sheets("hidy").Range("B" & pos).Value), _ "Sum of " & Sheets("hidy").Range("B" & pos).Value, xlSum

Le problème est que vous faites reference à la valeur de la cellule Bpos partir de la Sheet hidy manière incorrecte.
Pour améliorer encore votre code, essayez de passer les feuilles à une variable comme ceci: 

 Dim ws1 As WorkSheet, ws2 As Worksheet Set ws1 = Thisworkbook.Sheets("Sheetwithpivot") 'change to your actual sheet Set ws2 = Thisworkbook.Sheets("hidy") 'sheet with dropdown ws1.PivotTables("PivotTable5").AddDataField ws1.PivotTables( _ "PivotTable5").PivotFields(ws2.Range("B" & pos).Value), _ "Sum of " & ws2.Range("B" & pos).Value, xlSum

De cette façon, vous éviterez les Runtime errors .