Je réalise une macro de création de tableau croisé dynamique et je voudrais
que ma macro me demande où sélectionner les données et où insérer le tableau
croisé dynamique. Mais celle-ci ne fonctionne pas ... Je crois que le
dysfonctionnement vient des 4 dernières lignes.
Merci par avance pour votre aide.
Sub
Set MaPlage = Application.InputBox(prompt:="Sélectionnez une plage de
cellules", Title:="Plage de cellules", Left:=500, Top:=300, Type:=8)
Set MaCellule = Application.InputBox(prompt:="Sélectionnez l’emplacement de
destination", Title:="Cellule", Left:=500, Top:=300, Type:=8)
Merci énormément Garette pour ton aide et tes explications, toutefois, je ne suis pas un expert dans l'utilisation des userforms alors je souhaiterai faire sans ces derniers de manière à tout comprendre.
Encore merci.
Esteban,
Je crois avoir trouvé. en fait il s'agit de problemes d'adressages : - Des données en format R1C1 pour les SourceData et TableDestination - De la feuille dans laquelle la PivotTable est créée
Dans l'exemple joint, j'utilise un UserForm mais on peut peut etre l'utiliser avec les InputBox. Pour pallier le Pb R1C1 => Range(MaCellule) Pour pallier le pb Feuille PivotTable => Mafeuille = Range(MaCellule).Parent.Name http://cjoint.com/?cAssnsPSIv
A+
"Daniel" a écrit dans le message de news:
En mode manuel, si le tableau est sur une autre feuille, tu n'as psa le choix de la cellule. Daniel "esteban" a écrit dans le message de news:
Bonjour,
en fait, je cherche à placer mon tableau croisé dynamique dans un autre onglet, c'est pourquoi, ma macro ne fonctionne pas.
Si quelqu'un a la solution, ...
Merci par avance.
Esteban,
Ici http://cjoint.com/?cAmkoC0Yh3 un exemple qui fonctionne. J'ai des pb de fonctionnement si : - je change les noms de champs - si un TCD du meme nom exixte deja dans la feuille - si je cherche à le mettre dans un autre onglet
Merci énormément Garette pour ton aide et tes explications,
toutefois, je ne suis pas un expert dans l'utilisation des userforms alors
je souhaiterai faire sans ces derniers de manière à tout comprendre.
Encore merci.
Esteban,
Je crois avoir trouvé.
en fait il s'agit de problemes d'adressages :
- Des données en format R1C1 pour les SourceData et TableDestination
- De la feuille dans laquelle la PivotTable est créée
Dans l'exemple joint, j'utilise un UserForm mais on peut peut etre
l'utiliser avec les InputBox.
Pour pallier le Pb R1C1 => Range(MaCellule)
Pour pallier le pb Feuille PivotTable => Mafeuille =
Range(MaCellule).Parent.Name
http://cjoint.com/?cAssnsPSIv
A+
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
e102eubWHHA.896@TK2MSFTNGP05.phx.gbl...
En mode manuel, si le tableau est sur une autre feuille, tu n'as psa le
choix de la cellule.
Daniel
"esteban" <esteban@discussions.microsoft.com> a écrit dans le message de
news: 73ED0654-4D95-4761-9653-EDD7E800D644@microsoft.com...
Bonjour,
en fait, je cherche à placer mon tableau croisé dynamique dans un autre
onglet,
c'est pourquoi, ma macro ne fonctionne pas.
Si quelqu'un a la solution, ...
Merci par avance.
Esteban,
Ici http://cjoint.com/?cAmkoC0Yh3 un exemple qui fonctionne.
J'ai des pb de fonctionnement si :
- je change les noms de champs
- si un TCD du meme nom exixte deja dans la feuille
- si je cherche à le mettre dans un autre onglet
Merci énormément Garette pour ton aide et tes explications, toutefois, je ne suis pas un expert dans l'utilisation des userforms alors je souhaiterai faire sans ces derniers de manière à tout comprendre.
Encore merci.
Esteban,
Je crois avoir trouvé. en fait il s'agit de problemes d'adressages : - Des données en format R1C1 pour les SourceData et TableDestination - De la feuille dans laquelle la PivotTable est créée
Dans l'exemple joint, j'utilise un UserForm mais on peut peut etre l'utiliser avec les InputBox. Pour pallier le Pb R1C1 => Range(MaCellule) Pour pallier le pb Feuille PivotTable => Mafeuille = Range(MaCellule).Parent.Name http://cjoint.com/?cAssnsPSIv
A+
"Daniel" a écrit dans le message de news:
En mode manuel, si le tableau est sur une autre feuille, tu n'as psa le choix de la cellule. Daniel "esteban" a écrit dans le message de news:
Bonjour,
en fait, je cherche à placer mon tableau croisé dynamique dans un autre onglet, c'est pourquoi, ma macro ne fonctionne pas.
Si quelqu'un a la solution, ...
Merci par avance.
Esteban,
Ici http://cjoint.com/?cAmkoC0Yh3 un exemple qui fonctionne. J'ai des pb de fonctionnement si : - je change les noms de champs - si un TCD du meme nom exixte deja dans la feuille - si je cherche à le mettre dans un autre onglet
Garette
Bonsoir,
Voici un code qui fonctionne avec les InputBox...
Sub Test2() Set MaPlage = Application.InputBox(prompt:="Sélectionnez une plage de cellules", Title:="Plage de cellules", Left:P0, Top:00, Type:=8) Set MaCellule = Application.InputBox(prompt:="Sélectionnez l'emplacement de destination", Title:="Cellule", Left:P0, Top:00, Type:=8) Mafeuille = CStr(MaCellule.Parent.Name)
Sheets(Mafeuille).PivotTables("Tableau croisé dynamique1").PivotFields("M"). _ Orientation = xlDataField End Sub
"esteban" a écrit dans le message de news:
Merci énormément Garette pour ton aide et tes explications, toutefois, je ne suis pas un expert dans l'utilisation des userforms alors je souhaiterai faire sans ces derniers de manière à tout comprendre.
Encore merci.
Esteban,
Je crois avoir trouvé. en fait il s'agit de problemes d'adressages : - Des données en format R1C1 pour les SourceData et TableDestination - De la feuille dans laquelle la PivotTable est créée
Dans l'exemple joint, j'utilise un UserForm mais on peut peut etre l'utiliser avec les InputBox. Pour pallier le Pb R1C1 => Range(MaCellule) Pour pallier le pb Feuille PivotTable => Mafeuille >> Range(MaCellule).Parent.Name http://cjoint.com/?cAssnsPSIv
A+
"Daniel" a écrit dans le message de news:
En mode manuel, si le tableau est sur une autre feuille, tu n'as psa le choix de la cellule. Daniel "esteban" a écrit dans le message de news:
Bonjour,
en fait, je cherche à placer mon tableau croisé dynamique dans un autre onglet, c'est pourquoi, ma macro ne fonctionne pas.
Si quelqu'un a la solution, ...
Merci par avance.
Esteban,
Ici http://cjoint.com/?cAmkoC0Yh3 un exemple qui fonctionne. J'ai des pb de fonctionnement si : - je change les noms de champs - si un TCD du meme nom exixte deja dans la feuille - si je cherche à le mettre dans un autre onglet
Bonsoir,
Voici un code qui fonctionne avec les InputBox...
Sub Test2()
Set MaPlage = Application.InputBox(prompt:="Sélectionnez une plage de
cellules", Title:="Plage de cellules", Left:P0, Top:00, Type:=8)
Set MaCellule = Application.InputBox(prompt:="Sélectionnez l'emplacement de
destination", Title:="Cellule", Left:P0, Top:00, Type:=8)
Mafeuille = CStr(MaCellule.Parent.Name)
Sheets(Mafeuille).PivotTables("Tableau croisé dynamique1").PivotFields("M").
_
Orientation = xlDataField
End Sub
"esteban" <esteban@discussions.microsoft.com> a écrit dans le message de
news: C5366745-CD8D-4C5A-A579-DAB409FAE2B2@microsoft.com...
Merci énormément Garette pour ton aide et tes explications,
toutefois, je ne suis pas un expert dans l'utilisation des userforms alors
je souhaiterai faire sans ces derniers de manière à tout comprendre.
Encore merci.
Esteban,
Je crois avoir trouvé.
en fait il s'agit de problemes d'adressages :
- Des données en format R1C1 pour les SourceData et TableDestination
- De la feuille dans laquelle la PivotTable est créée
Dans l'exemple joint, j'utilise un UserForm mais on peut peut etre
l'utiliser avec les InputBox.
Pour pallier le Pb R1C1 => Range(MaCellule)
Pour pallier le pb Feuille PivotTable => Mafeuille >> Range(MaCellule).Parent.Name
http://cjoint.com/?cAssnsPSIv
A+
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
e102eubWHHA.896@TK2MSFTNGP05.phx.gbl...
En mode manuel, si le tableau est sur une autre feuille, tu n'as psa le
choix de la cellule.
Daniel
"esteban" <esteban@discussions.microsoft.com> a écrit dans le message
de
news: 73ED0654-4D95-4761-9653-EDD7E800D644@microsoft.com...
Bonjour,
en fait, je cherche à placer mon tableau croisé dynamique dans un
autre
onglet,
c'est pourquoi, ma macro ne fonctionne pas.
Si quelqu'un a la solution, ...
Merci par avance.
Esteban,
Ici http://cjoint.com/?cAmkoC0Yh3 un exemple qui fonctionne.
J'ai des pb de fonctionnement si :
- je change les noms de champs
- si un TCD du meme nom exixte deja dans la feuille
- si je cherche à le mettre dans un autre onglet
Sub Test2() Set MaPlage = Application.InputBox(prompt:="Sélectionnez une plage de cellules", Title:="Plage de cellules", Left:P0, Top:00, Type:=8) Set MaCellule = Application.InputBox(prompt:="Sélectionnez l'emplacement de destination", Title:="Cellule", Left:P0, Top:00, Type:=8) Mafeuille = CStr(MaCellule.Parent.Name)
Sheets(Mafeuille).PivotTables("Tableau croisé dynamique1").PivotFields("M"). _ Orientation = xlDataField End Sub
"esteban" a écrit dans le message de news:
Merci énormément Garette pour ton aide et tes explications, toutefois, je ne suis pas un expert dans l'utilisation des userforms alors je souhaiterai faire sans ces derniers de manière à tout comprendre.
Encore merci.
Esteban,
Je crois avoir trouvé. en fait il s'agit de problemes d'adressages : - Des données en format R1C1 pour les SourceData et TableDestination - De la feuille dans laquelle la PivotTable est créée
Dans l'exemple joint, j'utilise un UserForm mais on peut peut etre l'utiliser avec les InputBox. Pour pallier le Pb R1C1 => Range(MaCellule) Pour pallier le pb Feuille PivotTable => Mafeuille >> Range(MaCellule).Parent.Name http://cjoint.com/?cAssnsPSIv
A+
"Daniel" a écrit dans le message de news:
En mode manuel, si le tableau est sur une autre feuille, tu n'as psa le choix de la cellule. Daniel "esteban" a écrit dans le message de news:
Bonjour,
en fait, je cherche à placer mon tableau croisé dynamique dans un autre onglet, c'est pourquoi, ma macro ne fonctionne pas.
Si quelqu'un a la solution, ...
Merci par avance.
Esteban,
Ici http://cjoint.com/?cAmkoC0Yh3 un exemple qui fonctionne. J'ai des pb de fonctionnement si : - je change les noms de champs - si un TCD du meme nom exixte deja dans la feuille - si je cherche à le mettre dans un autre onglet