Erreur d’exécution ‘1004

Bonjour à tous,

Au moment d’actualiser mon tcd, cette erreur apparait.

Erreur d’exécution ‘1004’ :

Si vous utilisez un filtre élaboré, sélectionnez une plage de cellules qui contient au moins deux lignes de données puis cliquez à nouveau sur la commande Filtre élaboré.

En fait, en vérifiant l’assistant tableau dynamique, la plage où se trouvent les données est modifiées : au lieu d’être 'Procédures en cours'!$B$4:$W$39, il est noté 'Procédures en cours'!$B$467:$W$467

Ce qui est bizarre, c'est que sur 2 tcd, seulement un à ce problème.

Que faire ?

Merci de votre aide !

Bonjour,

Comment as tu définit la plage de ta base de données et puis je vois la macro qui actualise ton TCD ?

A te lire

Dan

est-ce qu'on peut modifier la source du TCD directement sans en refaire un? je pense que oui en cliquant sur le menu assistant TDC... et à partir de là, reselectionner la bonne plage...

Pourquoi pas même selectionner l'intrégalité des colonnes de B:W ?

bonjour le forum,

souri84, tu nous dis :

Pourquoi pas même selectionner l'intrégalité des colonnes de B:W ?

Aïe, le fichier va prendre des dimensions pharaoniques

fais un essai avec deux fichiers :

1 er fichier

• 1 tableau 22 colonnes 30 lignes et un TCD de ce tableau uniquement
• Enregistre (taille 35 Ko)

2 ème fichier

• même tableau mais TCD incluant l'intégralité des 32 colonnes (B:W)
• Enregistre (taille 5 773 Ko (plus de 5 Mo))

Je ne pense pas que ce soit une bonne idée

Voici la marcro : Sub essai()

'

' essai Macro

' Macro enregistrée le 17/10/2007 par sxk9156

'

'

Rows("5:5").Select

Selection.Insert Shift:=xlDown

Range("B6").Select

Selection.Copy

Range("B5:W5").Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

Range("A5").Select

ActiveCell.FormulaR1C1 = "1"

Range("A6").Select

ActiveCell.FormulaR1C1 = "2"

Range("A5:A6").Select

Selection.AutoFill Destination:=Range("A5:A64"), Type:=xlFillDefault

Range("A5:A64").Select

ActiveWindow.SmallScroll Down:=-60

Range("B5").Select

End Sub

Elle me sert juste à ajouter une ligne à mon tableau.

Je ne sais pas si cela à une importance, mais j'ai aussi besoin de supprimer des lignes pour les balancer sur un autre tableau (celui où mon tcd marche !)

Souris, c'est ce que je fais en modifiant à chaque fois la plage de mon tableau de base, mais bon, c'est pas terrible.

Je vais quitter la société, et j'ai envie de laisser un tableau simple à utiliser, sans trop de modification !

En fait, ma macro marche très bien jusqu'à ce que je supprime des lignes de mon tableau de base et lorsque j'utilise une 2nde macro voir plus bas). Et là, le message d'erreur apparatit. :s

Sub Macro1()

'

' Macro1 Macro

' Macro enregistrée le 25/10/2007 par sxk9156

'

'

Range("B12").Select

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh

Range("D13").Select

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh

End Sub

il est vrai que la taille des fichiers n'est plus optimisées... mais si le tableau reçoit des informations régulières... enfin le problème n'est pas là...

Bonsoir,

Modifie ta macro ESSAI comme suit :

Sub essai()
Rows("5:5").Insert Shift:=xlDown
Range("B6").Copy
Range("B5:W5").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A5") = "1"
Range("A6") = "2"
Range("A5:A6").AutoFill Destination:=Range("A5:A64"), Type:=xlFillDefault
Range("B5").Select
End Sub

Pour tes TCD, "Range("B12").Select" se trouve sur quelle feuille et est-ce la première cellule du TCD ?

Quelle est la plage définie à l'assistant à l'étape 1 ?

si c'est Procédures en cours'!$B$4:$W$39 comme tu le dis, cela ne devrait pas changer d'autant que par les $, les cellules sont figées.

Au vu de ce que tu écris, tu dois faire une manipulation qui te fait varier ta plage. Donne une explication.

A te lire

Dan

Bonsoir,

Pour mon compte personnel, lorsque j'ai l'erreur 1004, c'est en en général voire en principe l'accès a une zone de données protégée d'un classeur

C'est peu être une idée de recherche (je m’excuse, j'ai pas tout lu dans le détail)

Cordialement

Alain