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 :

[debutante] Pivot table Range


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau membre du Club
    Inscrit en
    Mars 2005
    Messages
    27
    Détails du profil
    Informations forums :
    Inscription : Mars 2005
    Messages : 27
    Points : 26
    Points
    26
    Par défaut [debutante] Pivot table Range
    Bonjour,
    j'aimerais creer une pivot table a partir d'un tableau .
    J'ai defini une zone (Range) mais je prenais parfois des cellules vides dans mon pivot table ce qui la rend tres lente.J
    'aimerais pouvoir définir mon range a partir du code VB.
    Une zone du genre Sheet1!A$1:Z$nbligne
    nbligne est determiné dans mon code VB.
    j'espere que ma question est claire.
    merci bcp pour votre aide.

  2. #2
    Expert éminent sénior


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Points : 20 038
    Points
    20 038
    Par défaut
    pour la selection de range pour un pivot table tu as CurrentRegion...

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Range("A1").CurrentRegion.select
    qui équivaut à ce placer sur la cellule A1 puis actionner les touches CTRL * ...

    qui sélectionne .. toutes les cellules non vide adjacente à A1...



  3. #3
    Nouveau membre du Club
    Inscrit en
    Mars 2005
    Messages
    27
    Détails du profil
    Informations forums :
    Inscription : Mars 2005
    Messages : 27
    Points : 26
    Points
    26
    Par défaut
    J'ai essayé sauf que ça me selectionne aussi des cellules vides

  4. #4
    Expert éminent sénior


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Points : 20 038
    Points
    20 038
    Par défaut
    Citation Envoyé par nawel
    J'ai essayé sauf que ça me selectionne aussi des cellules vides
    oui c'est possible si elle sont entourées de cellules adjaçante à A1...

    comment est disposé ton tableau..

    tu peu aussi utiliser Cells( NumeroLigne,NumerodeColonne..)

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    iNumerodeligne=2  'Numero dernier ligne..
    iNumerodeColonne = 4 'Numero derniere colonne
    Range("A1",Cells(iNumerodeligne,iNumerodeColonne)).Select

  5. #5
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Points : 15 543
    Points
    15 543
    Par défaut
    Alors tu as des formules dans tes cellules "vides" ! Vérifie.

    A+

Discussions similaires

  1. 2 pivot table sur la meme feuille
    Par hassanb83 dans le forum Excel
    Réponses: 1
    Dernier message: 16/03/2007, 08h08
  2. savoir si le pivot table existe
    Par amel95140 dans le forum Général VBA
    Réponses: 2
    Dernier message: 17/10/2006, 13h47
  3. Test valeur cellule pivot table
    Par ArnaudRenaud dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 21/09/2006, 08h00
  4. [PivotTable]faire automatiquement un pivot table
    Par megapacman dans le forum Access
    Réponses: 1
    Dernier message: 06/06/2006, 15h29
  5. OWC, Pivot table, AddCalculatedField et MDX
    Par Immobilis dans le forum ASP
    Réponses: 2
    Dernier message: 25/10/2005, 22h12

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