GNT sans publicité, site mobile, fonctionnalitées exclusives...

Erreur 1004 avec calculate

Le
xaier.domergue
Bonjour

Je veux faire un calcul sur une selection de cellule à l'aide d'une
fonction VBA.
J'ai donc paramètré mon execl en Calcul manule (outils - option - onglet
calcul - puis fonction calcul manuel)
J'ai donc créé une petite macro toute simple :

Sheets("Fiche 2").Select
Range("C13:E13").Select
Range("C13:E13").Calculate

Dans mon fichier, j'ai l'erreur "erreur d'execution 1004 - erreur définie
par l'application ou par l'objet".
Je ne comprends pas sachant que mon calcul est vraiment simple.
Pouvez vous m'aider
Xavier
Lire les 8 réponses

Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #3271091
Bonjour Xaier,

Essaie ceci :
'-----------------------------
With Worksheets("Fiche 2")
With .Range("C13:E13")
.Calculate
End With
End With
'-----------------------------


Ton code est probablement écrit dans un module de Feuille et non dans un module standard. si c'est le cas, il faudrait que tu
adoptes une syntaxe comme celle-ci :

Sheets("Fiche 2").Select
Sheets("Fiche 2"). Range("C13:E13").Calculate


Salutations!


"xaier.domergue"
Bonjour

Je veux faire un calcul sur une selection de cellule à l'aide d'une
fonction VBA.
J'ai donc paramètré mon execl en Calcul manule (outils - option - onglet
calcul - puis fonction calcul manuel)
J'ai donc créé une petite macro toute simple :

Sheets("Fiche 2").Select
Range("C13:E13").Select
Range("C13:E13").Calculate

Dans mon fichier, j'ai l'erreur "erreur d'execution 1004 - erreur définie
par l'application ou par l'objet".
Je ne comprends pas sachant que mon calcul est vraiment simple.
Pouvez vous m'aider
Xavier
xaier.domergue
Le #3271061
salut

J'avais déjà utilisé ta syntaxe et cela me donne le même message d'erreur.

Xavier


Bonjour Xaier,

Essaie ceci :
'-----------------------------
With Worksheets("Fiche 2")
With .Range("C13:E13")
.Calculate
End With
End With
'-----------------------------


Ton code est probablement écrit dans un module de Feuille et non dans un module standard. si c'est le cas, il faudrait que tu
adoptes une syntaxe comme celle-ci :

Sheets("Fiche 2").Select
Sheets("Fiche 2"). Range("C13:E13").Calculate


Salutations!


"xaier.domergue"
Bonjour

Je veux faire un calcul sur une selection de cellule à l'aide d'une
fonction VBA.
J'ai donc paramètré mon execl en Calcul manule (outils - option - onglet
calcul - puis fonction calcul manuel)
J'ai donc créé une petite macro toute simple :

Sheets("Fiche 2").Select
Range("C13:E13").Select
Range("C13:E13").Calculate

Dans mon fichier, j'ai l'erreur "erreur d'execution 1004 - erreur définie
par l'application ou par l'objet".
Je ne comprends pas sachant que mon calcul est vraiment simple.
Pouvez vous m'aider
Xavier





michdenis
Le #3271021
Bonjour Xaier,

Est-ce que le nom de ta feuille est oK ? Est-ce que ta feuille est protégée ?

à moins de condition particulière que tu ne décris pas, il n'y a aucune raison d'avoir un message d'erreur sur ce code.

Testé avec Excel 2003.


Salutations!


"xaier.domergue"
salut

J'avais déjà utilisé ta syntaxe et cela me donne le même message d'erreur.

Xavier


Bonjour Xaier,

Essaie ceci :
'-----------------------------
With Worksheets("Fiche 2")
With .Range("C13:E13")
.Calculate
End With
End With
'-----------------------------


Ton code est probablement écrit dans un module de Feuille et non dans un module standard. si c'est le cas, il faudrait que tu
adoptes une syntaxe comme celle-ci :

Sheets("Fiche 2").Select
Sheets("Fiche 2"). Range("C13:E13").Calculate


Salutations!


"xaier.domergue"
Bonjour

Je veux faire un calcul sur une selection de cellule à l'aide d'une
fonction VBA.
J'ai donc paramètré mon execl en Calcul manule (outils - option - onglet
calcul - puis fonction calcul manuel)
J'ai donc créé une petite macro toute simple :

Sheets("Fiche 2").Select
Range("C13:E13").Select
Range("C13:E13").Calculate

Dans mon fichier, j'ai l'erreur "erreur d'execution 1004 - erreur définie
par l'application ou par l'objet".
Je ne comprends pas sachant que mon calcul est vraiment simple.
Pouvez vous m'aider
Xavier





xaier.domergue
Le #3270961
si tu veux, je peux t'envoyer mon fichier afin que tu tests

Xavier


Bonjour Xaier,

Est-ce que le nom de ta feuille est oK ? Est-ce que ta feuille est protégée ?

à moins de condition particulière que tu ne décris pas, il n'y a aucune raison d'avoir un message d'erreur sur ce code.

Testé avec Excel 2003.


Salutations!


"xaier.domergue"
salut

J'avais déjà utilisé ta syntaxe et cela me donne le même message d'erreur.

Xavier


Bonjour Xaier,

Essaie ceci :
'-----------------------------
With Worksheets("Fiche 2")
With .Range("C13:E13")
.Calculate
End With
End With
'-----------------------------


Ton code est probablement écrit dans un module de Feuille et non dans un module standard. si c'est le cas, il faudrait que tu
adoptes une syntaxe comme celle-ci :

Sheets("Fiche 2").Select
Sheets("Fiche 2"). Range("C13:E13").Calculate


Salutations!


"xaier.domergue"
Bonjour

Je veux faire un calcul sur une selection de cellule à l'aide d'une
fonction VBA.
J'ai donc paramètré mon execl en Calcul manule (outils - option - onglet
calcul - puis fonction calcul manuel)
J'ai donc créé une petite macro toute simple :

Sheets("Fiche 2").Select
Range("C13:E13").Select
Range("C13:E13").Calculate

Dans mon fichier, j'ai l'erreur "erreur d'execution 1004 - erreur définie
par l'application ou par l'objet".
Je ne comprends pas sachant que mon calcul est vraiment simple.
Pouvez vous m'aider
Xavier










michdenis
Le #3270931
Ok

Salutations!


"xaier.domergue"
si tu veux, je peux t'envoyer mon fichier afin que tu tests

Xavier


Bonjour Xaier,

Est-ce que le nom de ta feuille est oK ? Est-ce que ta feuille est protégée ?

à moins de condition particulière que tu ne décris pas, il n'y a aucune raison d'avoir un message d'erreur sur ce code.

Testé avec Excel 2003.


Salutations!


"xaier.domergue"
salut

J'avais déjà utilisé ta syntaxe et cela me donne le même message d'erreur.

Xavier


Bonjour Xaier,

Essaie ceci :
'-----------------------------
With Worksheets("Fiche 2")
With .Range("C13:E13")
.Calculate
End With
End With
'-----------------------------


Ton code est probablement écrit dans un module de Feuille et non dans un module standard. si c'est le cas, il faudrait que tu
adoptes une syntaxe comme celle-ci :

Sheets("Fiche 2").Select
Sheets("Fiche 2"). Range("C13:E13").Calculate


Salutations!


"xaier.domergue"
Bonjour

Je veux faire un calcul sur une selection de cellule à l'aide d'une
fonction VBA.
J'ai donc paramètré mon execl en Calcul manule (outils - option - onglet
calcul - puis fonction calcul manuel)
J'ai donc créé une petite macro toute simple :

Sheets("Fiche 2").Select
Range("C13:E13").Select
Range("C13:E13").Calculate

Dans mon fichier, j'ai l'erreur "erreur d'execution 1004 - erreur définie
par l'application ou par l'objet".
Je ne comprends pas sachant que mon calcul est vraiment simple.
Pouvez vous m'aider
Xavier










Publicité
Suivre les réponses
Poster une réponse
Anonyme