Bonjour à tous [XL2000]
J'ai essayé en vain les filtres élaborés et les TCD mais je n'arrive à
rien. Merci pour l'aide, siouplait.
J'ai en Feuille 1 :
-colonne A, des noms de structures S1, .. Sn,
-colonne B, certains lignes contenant le mot "total"
-puis 12 colonnes non voisines s'appelant "HS.mai", "HS.juin", par
exemple (HS. et le nom d'un mois), dans lesquelles se trouvent les
valeurs V à copier,
-et, 2 colonnes à gauche de chacune de ces colonnes "HS.etc", une
colonne appelée "AdmisEn" où est inscrit, donc 2 cellules à gauche de la
valeur copiée, un mois M (en texte).
La Feuille 2 comprend :
-colonne A, la liste des structures S1, .. Sn existantes en col A de la
Feuille 1,
-colonne C, pour chaque structure, la liste des 12 en-têtes "HS.mai",
"HS.juin" de la Feuille 1,
Je cherche à copier en Feuille 2 les valeurs V correspondant à chaque
structure et chaque "HS.mois" dans la colonne dont l'entête est le mois
M (qui était 2 cellules à gauche de la valeur V en Feuille 1).
Le modèle sur cjoint.
http://cjoint.com/?0kkegAUPJZI
Bonjour et Merci C'est supersympa d'avoir consacré du temps à ce décryptage. J'étais arrivé à faire ce que je voulais, mais sans tout comprendre. Même si cela reste compliqué, en aprticulier les notions de tableau intermédiaire (array?) Ainsi, si mes données avaient été en colonne, comment aurais-je du adapter Admis(100, 2) Bonne soirée cordialement J@@
Le 11/10/2010 11:39, Charabeuh a écrit :
Bonsoir,
le fichier avec commentaires: http://www.cijoint.fr/cjlink.php?file=cj201010/cijx8zsSye.xls
"J@@" a écrit dans le message de groupe de discussion : i8th91$mdh$
Le TCD se met en place, mais la dernière instruction somme plante : ActiveSheet.PivotTables("TabloX").AddDataField ActiveSheet. _ PivotTables("TabloX").PivotFields("Valeur"), _ "Somme de Valeur", xlSum erreur 438 Propriété ou méthode non gérée par cet objet
L'enregistreur m'a donné ceci, qui fonctionne : With ActiveSheet.PivotTables("TabloX").PivotFields("Valeur") .Orientation = xlDataField .Position = 1 End With
Une autre question, stp : J'ai la dernière colonne en DT de Feuille 1 que je souhaiterai aussi récupérer dans le TCD,(si possible tout à droite) comment faire : je ne comprends pas bien le déroulement du code ConstruireBD.(si tu as la patience de le commenter :-)
Merci beaucoup @+ J@@
Le 10/10/2010 11:56, Charabeuh a écrit :
Bonsoir,
Effacer ce paramètre et sa valeur ?
"J@@" a écrit dans le message de groupe de discussion : i8tcff$9q5$
Le message d'erreur est "variable non définie" pour xlPivotTableVersion10
Rien trouvé d'utile sur Google Que faire? J@@
Bonjour
et Merci
C'est supersympa d'avoir consacré du temps à ce décryptage.
J'étais arrivé à faire ce que je voulais, mais sans tout comprendre.
Même si cela reste compliqué, en aprticulier les notions de tableau
intermédiaire (array?)
Ainsi, si mes données avaient été en colonne, comment aurais-je du
adapter Admis(100, 2)
Bonne soirée
cordialement
J@@
Le 11/10/2010 11:39, Charabeuh a écrit :
Bonsoir,
le fichier avec commentaires:
http://www.cijoint.fr/cjlink.php?file=cj201010/cijx8zsSye.xls
"J@@" <kjg@hy.gg> a écrit dans le message de groupe de discussion :
i8th91$mdh$1@speranza.aioe.org...
Le TCD se met en place, mais la dernière instruction somme plante :
ActiveSheet.PivotTables("TabloX").AddDataField ActiveSheet. _
PivotTables("TabloX").PivotFields("Valeur"), _
"Somme de Valeur", xlSum
erreur 438 Propriété ou méthode non gérée par cet objet
L'enregistreur m'a donné ceci, qui fonctionne :
With ActiveSheet.PivotTables("TabloX").PivotFields("Valeur")
.Orientation = xlDataField
.Position = 1
End With
Une autre question, stp :
J'ai la dernière colonne en DT de Feuille 1 que je souhaiterai aussi
récupérer dans le TCD,(si possible tout à droite) comment faire : je
ne comprends pas bien le déroulement du code ConstruireBD.(si tu as la
patience de le commenter :-)
Merci beaucoup
@+
J@@
Le 10/10/2010 11:56, Charabeuh a écrit :
Bonsoir,
Effacer ce paramètre et sa valeur ?
"J@@" <kjg@hy.gg> a écrit dans le message de groupe de discussion :
i8tcff$9q5$2@speranza.aioe.org...
Le message d'erreur est
"variable non définie" pour xlPivotTableVersion10
Bonjour et Merci C'est supersympa d'avoir consacré du temps à ce décryptage. J'étais arrivé à faire ce que je voulais, mais sans tout comprendre. Même si cela reste compliqué, en aprticulier les notions de tableau intermédiaire (array?) Ainsi, si mes données avaient été en colonne, comment aurais-je du adapter Admis(100, 2) Bonne soirée cordialement J@@
Le 11/10/2010 11:39, Charabeuh a écrit :
Bonsoir,
le fichier avec commentaires: http://www.cijoint.fr/cjlink.php?file=cj201010/cijx8zsSye.xls
"J@@" a écrit dans le message de groupe de discussion : i8th91$mdh$
Le TCD se met en place, mais la dernière instruction somme plante : ActiveSheet.PivotTables("TabloX").AddDataField ActiveSheet. _ PivotTables("TabloX").PivotFields("Valeur"), _ "Somme de Valeur", xlSum erreur 438 Propriété ou méthode non gérée par cet objet
L'enregistreur m'a donné ceci, qui fonctionne : With ActiveSheet.PivotTables("TabloX").PivotFields("Valeur") .Orientation = xlDataField .Position = 1 End With
Une autre question, stp : J'ai la dernière colonne en DT de Feuille 1 que je souhaiterai aussi récupérer dans le TCD,(si possible tout à droite) comment faire : je ne comprends pas bien le déroulement du code ConstruireBD.(si tu as la patience de le commenter :-)
Merci beaucoup @+ J@@
Le 10/10/2010 11:56, Charabeuh a écrit :
Bonsoir,
Effacer ce paramètre et sa valeur ?
"J@@" a écrit dans le message de groupe de discussion : i8tcff$9q5$
Le message d'erreur est "variable non définie" pour xlPivotTableVersion10
