erreur 1004

[toutai]

bonjour,

jai un fichier excel qui me donen comme message ( voir image jointe) 🙁
que dois je faire?

merci de votre aide

 

[Douds68160]

Re : erreur 1004

Bonjour,

Sans fichier, difficile de répondre...

 

[toutai]

Re : erreur 1004

le fichie rfait 37 MO donc difficile à envoyer.
comment puis je faire?

 

[jeanpierre]

Re : erreur 1004

Bonjour toutai, Douds68160,

Déjà, d'après ton image, le code VBA est protégé, on risque de ne pas aller loin avec cela.

Ensuite, si pour les feuilles c'est pareil..... normal que tu aies ce message.

Dépose un extrait, déprotégé, avec simplement quelques lignes et la ou les feuilles sur lesquelles se produit cette erreur. Le tout zippé, on peut en mettre quand même pas mal sous 48.8Ko.

S'il dépasse encore, et en dernier recours, dépose le sur cijoint.fr et donne nous le lien.

Bonne journée.

Jean-Pierre

 

[fhoest]

Re : erreur 1004

Bonjour,
as tu accès au code vba
si oui ouvre l'editeur vba avec un autre fichier préalablement ,si l'erreur viens en ouvrant ton fichier si pas ouvre le avec ton fichier en cours,et note le code dans une balise code sur laquelle le debbugger s'arrete,si cela vient de la on pourra peutre t'aider,si pas il faudra alors essayer de trouver une solution pour envoyer ton fichier
A+

 

[toutai]

Re : erreur 1004

bonjour,

ci dessous le code:

Sub a()
'
' a Macro
' Macro enregistrée le 09/07/08 par to79674
'

'
Sheets("Indicateurs1").Select
Range("AU23").Select
ActiveCell.FormulaR1C1 = "=R2C47"
Range("AV23").Select
ActiveCell.FormulaR1C1 = "=R2C48"
Range("AX23").Select
ActiveCell.FormulaR1C1 = "=IF(R1C1=""Matière"",RC[-3],RC[-2])"
Range("AX24").Select
End Sub

cela se bloque sur la ligne violet.

 

[fhoest]

Re : erreur 1004

remoi, ps bonjour jeanpierre
es ce qu'il n'y a pas de faute d'orthographe sur le nom de la feuilles "indicateurs1",es ce qu'elle existe encore sur ton fichier et es ce que c'est ce fichier qui est actif lorsque tu lance la macro
A+

 

[fhoest]

Re : erreur 1004

encore moi,
met ce code:

Sub a()
With Sheets("Indicateurs1")
Range("AU23").FormulaR1C1 = "=R2C47"
Range("AV23").FormulaR1C1 = "=R2C48"
Range("AX23").FormulaR1C1 = "=IF(R1C1=""Matière"",RC[-3],RC[-2])"
Range("AX24").Select
End With
End Sub

A+

 

[fhoest]

Re : erreur 1004

bonsoir,
on apprécie d'avoir de l'aide mais on aime bien aussi avoir un retour quand on donne de l'aide merci de répondre aux postes ouvert...
bonne soirée😀

 

[toutai]

Re : erreur 1004

ce qui est bien normal!
pour le moment je nai pas testé vos réponse dc voilà pourquoi le stanbye

merci à tous

 

[fhoest]

Re : erreur 1004

ok
au plaisir.......
A+