Je m'efforce, sans succ=E8s, d'appliquer un champ dynamique
sur la liste-source d'un TCD EXISTANT.
Quelle que soit la manoeuvre, Excel me r=E9pond obstin=E9ment :
"Le nom du champ dynamique n'est pas valide.
Pour cr=E9er un tableau crois=E9 dynamique, vous devez utiliser
des donn=E9es sous forme de liste avec des =E9tiquettes de
colonnes. Si vous changez le nom d'un champ dynamique, il
vous faut taper un nouveau nom pour le champ "
Ceci, entre nous, ne veut rien dire... Je veux bien taper
n'importe quoi, mais je ne comprends pas bien !!
Existe-t-il une solution pour recr=E9er le TCD sans =EAtre
oblig=E9 de recommencer depuis le d=E9but le long et minutieux
processus de cr=E9ation de la liste
Bonjour, Si je copie les codes dans la feuille du TCD, la macro ne s'active pas à l'ajout de données. Si je copie les codes dans la feuille des données, la macro s'active à l'ajout de données mais j'obtiens une erreur. -------------------------- Erreur d'exécution '1004' Impossible de la propriété Pivot Tables de la classe Worksheet. -------------------------- Le débuggeur m'amène sur la ligne : ActiveSheet.PivotTables("Poste").RefreshTable Bien sûr, la feuille de données qui contient la macro ne contient pas de TCD ! Je tourne en rond. Une solution ? Merci., Céline
"Daniel.M" a écrit dans le message de news:
Salut Céline,
J'ai copié la macro dans This Worbook.
Plutôt dans le module de la FEUILLE. (Important)
---------------------------------------------------- Private Sub Worksheet_Change(ByVal zz As Range) x = zz.Column: y = zz.Row: If x > 11 Then Exit Sub If Application.CountA(Range(zz.Offset(0, -x + 1).Address & ":K" & y)) > > 11 Then ActiveSheet.PivotTables("LeNomDuTCD").RefreshTable
End Sub ---------------------------------------------------- Questions : La ligne de code ActiveSheet.PivotTables("LeNomDuTCD").RefreshTable vient à la suite de Then ?
If Application.CountA(Cells(y,1).Resize(1,11)) = 11 Then ActiveSheet.PivotTables("Poste").RefreshTable End If
J'ai changé ("LeNomDuTCD") par ("Poste"). Je garde les guillemets ? Oui.
Quels sont les autres éléments à adapter ?
J'en vois pas d'autres pour les éléments fournis.
Salutations,
Daniel M.
Bonjour,
Si je copie les codes dans la feuille du TCD, la macro ne s'active pas à
l'ajout de données.
Si je copie les codes dans la feuille des données, la macro s'active à
l'ajout de données mais j'obtiens une erreur.
--------------------------
Erreur d'exécution '1004'
Impossible de la propriété Pivot Tables de la classe Worksheet.
--------------------------
Le débuggeur m'amène sur la ligne :
ActiveSheet.PivotTables("Poste").RefreshTable
Bien sûr, la feuille de données qui contient la macro ne contient pas de
TCD !
Je tourne en rond.
Une solution ?
Merci.,
Céline
"Daniel.M" <prenom.maher@bigfoot.inutil.com> a écrit dans le message de
news: eCajLiKcDHA.620@TK2MSFTNGP11.phx.gbl...
Salut Céline,
J'ai copié la macro dans This Worbook.
Plutôt dans le module de la FEUILLE. (Important)
----------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
x = zz.Column: y = zz.Row: If x > 11 Then Exit Sub
If Application.CountA(Range(zz.Offset(0, -x + 1).Address & ":K" &
y)) > > 11 Then ActiveSheet.PivotTables("LeNomDuTCD").RefreshTable
End Sub
----------------------------------------------------
Questions :
La ligne de code ActiveSheet.PivotTables("LeNomDuTCD").RefreshTable
vient à la suite de Then ?
If Application.CountA(Cells(y,1).Resize(1,11)) = 11 Then
ActiveSheet.PivotTables("Poste").RefreshTable
End If
J'ai changé ("LeNomDuTCD") par ("Poste"). Je garde les guillemets ?
Oui.
Bonjour, Si je copie les codes dans la feuille du TCD, la macro ne s'active pas à l'ajout de données. Si je copie les codes dans la feuille des données, la macro s'active à l'ajout de données mais j'obtiens une erreur. -------------------------- Erreur d'exécution '1004' Impossible de la propriété Pivot Tables de la classe Worksheet. -------------------------- Le débuggeur m'amène sur la ligne : ActiveSheet.PivotTables("Poste").RefreshTable Bien sûr, la feuille de données qui contient la macro ne contient pas de TCD ! Je tourne en rond. Une solution ? Merci., Céline
"Daniel.M" a écrit dans le message de news:
Salut Céline,
J'ai copié la macro dans This Worbook.
Plutôt dans le module de la FEUILLE. (Important)
---------------------------------------------------- Private Sub Worksheet_Change(ByVal zz As Range) x = zz.Column: y = zz.Row: If x > 11 Then Exit Sub If Application.CountA(Range(zz.Offset(0, -x + 1).Address & ":K" & y)) > > 11 Then ActiveSheet.PivotTables("LeNomDuTCD").RefreshTable
End Sub ---------------------------------------------------- Questions : La ligne de code ActiveSheet.PivotTables("LeNomDuTCD").RefreshTable vient à la suite de Then ?
If Application.CountA(Cells(y,1).Resize(1,11)) = 11 Then ActiveSheet.PivotTables("Poste").RefreshTable End If
J'ai changé ("LeNomDuTCD") par ("Poste"). Je garde les guillemets ? Oui.
Quels sont les autres éléments à adapter ?
J'en vois pas d'autres pour les éléments fournis.
Salutations,
Daniel M.
Daniel.M
Salut Céline,
Si je copie les codes dans la feuille des données, la macro s'active à l'ajout de données mais j'obtiens une erreur.
Exact. Ton code doit être dans la feuille DATA.
-------------------------- Erreur d'exécution '1004' Impossible de la propriété Pivot Tables de la classe Worksheet. -------------------------- Le débuggeur m'amène sur la ligne : ActiveSheet.PivotTables("Poste").RefreshTable Bien sûr, la feuille de données qui contient la macro ne contient pas de TCD ! Une solution ?
Quel est le nom de la feuille qui contient le TCD? Mettons que c'est "Armande"
Si je copie les codes dans la feuille des données, la macro s'active à
l'ajout de données mais j'obtiens une erreur.
Exact. Ton code doit être dans la feuille DATA.
--------------------------
Erreur d'exécution '1004'
Impossible de la propriété Pivot Tables de la classe Worksheet.
--------------------------
Le débuggeur m'amène sur la ligne :
ActiveSheet.PivotTables("Poste").RefreshTable
Bien sûr, la feuille de données qui contient la macro ne contient pas de
TCD !
Une solution ?
Quel est le nom de la feuille qui contient le TCD? Mettons que c'est
"Armande"
Si je copie les codes dans la feuille des données, la macro s'active à l'ajout de données mais j'obtiens une erreur.
Exact. Ton code doit être dans la feuille DATA.
-------------------------- Erreur d'exécution '1004' Impossible de la propriété Pivot Tables de la classe Worksheet. -------------------------- Le débuggeur m'amène sur la ligne : ActiveSheet.PivotTables("Poste").RefreshTable Bien sûr, la feuille de données qui contient la macro ne contient pas de TCD ! Une solution ?
Quel est le nom de la feuille qui contient le TCD? Mettons que c'est "Armande"
Merci Daniel, Le tout fonctionne très bien. Merci beaucoup. J'ai d'autres questions, mais je les garde pour une autre fois. Merci encore, Céline
"Daniel.M" a écrit dans le message de news:
Salut Céline,
Si je copie les codes dans la feuille des données, la macro s'active à
l'ajout de données mais j'obtiens une erreur.
Exact. Ton code doit être dans la feuille DATA.
-------------------------- Erreur d'exécution '1004' Impossible de la propriété Pivot Tables de la classe Worksheet. -------------------------- Le débuggeur m'amène sur la ligne : ActiveSheet.PivotTables("Poste").RefreshTable Bien sûr, la feuille de données qui contient la macro ne contient pas de
TCD ! Une solution ?
Quel est le nom de la feuille qui contient le TCD? Mettons que c'est "Armande"
Merci Daniel,
Le tout fonctionne très bien.
Merci beaucoup.
J'ai d'autres questions, mais je les garde pour une autre fois.
Merci encore,
Céline
"Daniel.M" <prenom.maher@bigfoot.inutil.com> a écrit dans le message de
news: OG6QUzMcDHA.456@TK2MSFTNGP10.phx.gbl...
Salut Céline,
Si je copie les codes dans la feuille des données, la macro s'active
à
l'ajout de données mais j'obtiens une erreur.
Exact. Ton code doit être dans la feuille DATA.
--------------------------
Erreur d'exécution '1004'
Impossible de la propriété Pivot Tables de la classe Worksheet.
--------------------------
Le débuggeur m'amène sur la ligne :
ActiveSheet.PivotTables("Poste").RefreshTable
Bien sûr, la feuille de données qui contient la macro ne contient
pas de
TCD !
Une solution ?
Quel est le nom de la feuille qui contient le TCD? Mettons que c'est
"Armande"
Merci Daniel, Le tout fonctionne très bien. Merci beaucoup. J'ai d'autres questions, mais je les garde pour une autre fois. Merci encore, Céline
"Daniel.M" a écrit dans le message de news:
Salut Céline,
Si je copie les codes dans la feuille des données, la macro s'active à
l'ajout de données mais j'obtiens une erreur.
Exact. Ton code doit être dans la feuille DATA.
-------------------------- Erreur d'exécution '1004' Impossible de la propriété Pivot Tables de la classe Worksheet. -------------------------- Le débuggeur m'amène sur la ligne : ActiveSheet.PivotTables("Poste").RefreshTable Bien sûr, la feuille de données qui contient la macro ne contient pas de
TCD ! Une solution ?
Quel est le nom de la feuille qui contient le TCD? Mettons que c'est "Armande"
