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

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Mars 2005
    Messages
    27
    Détails du profil
    Informations forums :
    Inscription : Mars 2005
    Messages : 27
    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


    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
    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
    Membre averti
    Inscrit en
    Mars 2005
    Messages
    27
    Détails du profil
    Informations forums :
    Inscription : Mars 2005
    Messages : 27
    Par défaut
    J'ai essayé sauf que ça me selectionne aussi des cellules vides

  4. #4
    Expert éminent


    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
    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
    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