IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

TCD PivotSelect capricieux [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre expérimenté Avatar de CODYCO
    Homme Profil pro
    Webplanneur
    Inscrit en
    Avril 2009
    Messages
    217
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Webplanneur
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 217
    Par défaut TCD PivotSelect capricieux
    Bonjour à tous.

    Bien entendu avant de publier j'ai chercher dans tous les sens. D'autant plus que mon code fonctionne ... Mais...(bien entendu il y a un mais) ...
    pas toujours ...

    Je m'explique, je créer trois TCD, pour chacun je récupère les coordonnées des données dans une variable, pour les deux premier pas de soucis mais le troisieme ne veut pas et me renvoi une erreur :
    "Erreur d'exécution 1004 la formule est incomplete. Vérifiez qu'un crochet de fin ] ne manque pas." ??

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
     
    ActiveWorkbook.Worksheets("Listing").PivotTables("Tableau croisé dynamique1"). _
            PivotCache.CreatePivotTable TableDestination:="Listing!R" & Line & "C5", TableName:= _
            "Tableau croisé dynamique3", DefaultVersion:=xlPivotTableVersion14
     
            'Définie les éléments à croisé
            ActiveWorkbook.ShowPivotTableFieldList = True
            With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Niveau Urgence" _
            )
            .Orientation = xlRowField
            .Position = 1
            If PivotItems = "" Then
            .PivotItems("(blank)").Visible = False
            End If
            End With
     
            'Définie les éléments à croisé
            ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _
            PivotTables("Tableau croisé dynamique3").PivotFields("Montant HT"), _
            "Somme de Montant HT", xlSum
            With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
            "Somme de Montant HT")
            .NumberFormat = "# ##0,00 €"
            End With
     
    'C'est cette ligne de code qui marche pour les deux précedant qui là ne marche pas
            ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotSelect "Niveau Urgence", _
            xlDataAndLabel + xlFirstRow, True
     
            TCD_Urg = Selection.Address
    D'avance merci.

  2. #2
    Membre expérimenté Avatar de CODYCO
    Homme Profil pro
    Webplanneur
    Inscrit en
    Avril 2009
    Messages
    217
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Webplanneur
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 217
    Par défaut Comme un grand
    Bon j'ai résolu tout seul

    PivotSelect "Niveau Urgence[All]"

    Pourquoi le All pour celui là je ne sais pas mais ca marche.

    Merci Quand même

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [JSP] Upload de fichier capricieux
    Par enguerran dans le forum Servlets/JSP
    Réponses: 5
    Dernier message: 19/06/2006, 09h05
  2. tableau tcd sans page web
    Par krapoulos dans le forum Langage SQL
    Réponses: 1
    Dernier message: 28/02/2006, 11h23
  3. [VBA][EXCEL] Mise à jour de TCD en macro
    Par Scuriolus dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 07/12/2005, 13h30
  4. [VB Excel] Problème avec le nom automatique des TCD
    Par RedBurn dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 03/12/2005, 13h30
  5. Login capricieux
    Par Sylvain James dans le forum XMLRAD
    Réponses: 2
    Dernier message: 30/04/2003, 01h46

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo