Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA tableau croisé dynamique Endxldown

  • Initiateur de la discussion Initiateur de la discussion rocky9
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

R

rocky9

Guest
Bonjour,

Avec l'enregistreur de macro, après avoir selectionné rapport de tableau croisé dynamique, je selectionne le tableau avec ctrl+shift+bas puis droite pour avoir un endxldown et right.

Le problème c'est qu'il me donne le code suivant qui selectionne des cellules et ne permet pas à ma macro d'adapter la selection sur un tableau plus grand.

Code:
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'Matrice Detaillee'!R4C1:R11617C9").CreatePivotTable _
        TableDestination:="", TableName:="Tableau croisé dynamique1", _
        DefaultVersion:=xlPivotTableVersion10

Il y a R4C1:R11617C9 et non R4C1:end(xldown) et end(xlright)

Comment faire svp ?
 
Re : VBA tableau croisé dynamique Endxldown

Bonjour à tous,

Peux-tu essayer avec :
A + à tous
 
Re : VBA tableau croisé dynamique Endxldown

Bonjour et merci pour la reponse,

Lorsque je change

Set Plage = Feuil1.[A4].CurrentRegion

par le nom de la feuille où l'on selectionne

Set Plage = Matrice Detaillee.[A4].CurrentRegion

Cela me fait une fin d'instruction à cette ligne.

Sur la suite ça ne marche pas non plus
 
Dernière modification par un modérateur:
Re : VBA tableau croisé dynamique Endxldown

J'ai reussi par le code suivant:


Merci pour l'aide
Bonne journée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
  • Question Question
Réponses
1
Affichages
761
M
Réponses
2
Affichages
3 K
V
Réponses
69
Affichages
9 K
V
Réponses
4
Affichages
1 K
J
Réponses
4
Affichages
2 K
jmten92
J
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…