erreur 13 en VBA

Version imprimable

08/04/2020, 15h31
Criscour

erreur 13 en VBA
Bonjour,
Dans un fichier « A », je lance une macro pour copier la valeur de cellules (fx17, fx18 etc…) contenue dans un fichier « B ». Cette cellule de « B » contient non pas une valeur saisie directement, mais la formule suivante : =SI(U17<>"";INDIRECT("'"&U17&"'!$q$18");"") qui donne un résultat de type chaîne. Dans « A », je définis une variable « y » (Dim y As String) et mes lignes de macro sont (après avoir identifié les worksheets):
Code:

1 2 3 4 5 For j = 1 to 10 Range("fx" & 16 + j) = "=plage" Range("fx" & 16 + j).Copy y = Range("fx" & 16 + j) Next j
Or la macro se plante sur la ligne y = Range("fx" & 16+j) avec un code d’erreur « 13 » alors que tout est du type "String"... à moins que ce ne soit la formule de calcul qui pose problème ?
Qu’ai-je mal fait et que dois-je faire ?
Merci de votre aide
08/04/2020, 16h01
mfoxy

Bonjour,

Il faudrait déjà indiqué la parentalite de ton object range, lui attribuer le nom de son workbook et feuille vu que tu travailles sur des fichiers différent. La façon dont tu code reprend le range de la feuille active du classeur actif

Ensuite une simple méthode copy / paste value entre tes deux classeur devrait faire le job
08/04/2020, 16h05
Lou Pitchoun

Bonjour et bienvenue !

Il n'y a visiblement par d'erreur dans le code même si cela amène des questions... Pourquoi écrire "=plage" dans les cellules, faire une copie qui n'est pas collée par la suite... Et la valeur de

Code:

Range("fx" & 16 + j)

renvoi un code erreur tel que le code nous est donné.

Pour en venir à la formule, que doit renvoyer la cellule U17 comme donnée ? une référence de cellule ? (ce qui est normalement attendu)
08/04/2020, 16h14
Criscour

Bonjour,
Merci d'avoir pris la peine de me répondre.
Avec "Index", la formule va chercher la valeur d'une cellule dans l'onglet défini et il s'agit d'un texte: "clôturé" ou "en cours"
08/04/2020, 16h31
Menhir

Comme il a déjà été dit, l'intérieur de la boucle est incohérent.
Si "plage" est un nom de cellule, il faut l'adresser à la cellule par la propriété Formula.
Si "plage" est une variable, il faut la mettre à l'extérieur des guillemets.
Ligne suivant, un Copy sans collage, ça ne sert à rien.
Ligne suivante, il faudrait au moins mettre entre parenthèses le 16 + j pour être sûr que l'addition sera faite avant la concaténation.
Il ne sert à rien de mettre une valeur dans une variable si elle n'est pas utilisée dans le tour et qu'au tour suivant elle sera écrasée par la nouvelle.

Et la boucle elle-même est inutile puisque tout ça pourrait se faire facilement sans boucle.

Citation:

Or la macro se plante sur la ligne "y = Range("fx" & 16+j)" avec un code d’erreur « 13 »

Quel est le message d'erreur ?

Citation:

alors que tout est du type "String"...

16 et j ne sont pas des String.

Citation:

Dans un fichier « A », je lance une macro pour copier la valeur de cellules (fx17, fx18 etc…) contenue dans un fichier « B ». Cette cellule de « B » contient non pas une valeur saisie directement, mais la formule suivante : =SI(U17<>"";INDIRECT("'"&U17&"'!$q$18");"") qui donne un résultat de type chaîne.

... et tu veux les coller où ?

"FX", c'est bien une référence de colonne ?
Parce qu'il est assez rare d'avoir des tableaux correctement construits qui font 180 colonnes.
La dernière fois que j'ai vu un tableau de cette taille, c'est parce que son concepteur confondait Excel avec une feuille de papier quadrillé.
08/04/2020, 17h20
mfoxy

Citation:

Envoyé par Menhir

La dernière fois que j'ai vu un tableau de cette taille, c'est parce que son concepteur confondait Excel avec une feuille de papier quadrillé.

😂😂😂
09/04/2020, 09h31
Criscour

Merci de vouloir m'aider.
Je suis débutant, et accepte les conseils puisque je les demande, cependant voici quelques arguments
- pour les parenthèses de "16+j", je pense que c'est inutile car je récupère bien toutes les données
- pour le fait que "16+j" ne sont pas de type String, c'est un fait mais il ne s'agit pas de variables destinées à être collées dans une cellule mais les paramètres de définition des cellules à lire.
- en fait la variable que je copie dans le fichier "A" est du type "texte" (donc String) et celle du fichier "B" qui reçoit sa valeur en copie est déclarée par "Dim" en String. Je pensais que cela était obligatoire pour justement éviter une erreur "13".
- or quand je dis que "je récupère bien toutes les données", c'est parce que je constate que ma macro fonctionne très bien sur mon PC, malgré ces observations, mais elle se plante sur le PC d'une autre personne qui doit utiliser mon fichier.
- c'est surtout ce point qui m'interroge
- de fait, ma question est de savoir si justement, le plantage est dû à une erreur de programmation avec de mauvaises commandes, ou si l'erreur peut venir, mais seulement sur un autre PC et non le mien, du fait que la cellule à copier contient une formule de calcul (avec "Index...") et non une valeur directement saisie, comme si cela était dû à l'oubli de cocher une option dans la version d'Excel de l'autre PC mais qui serait active sur le mien.
- concernant "la plage", effectivement je ne maîtrise pas cette commande. Je l'avais "bêtement" recopiée dans une consigne trouvée sur un forum, parce que je pensais que le fait de vouloir copier/coller une valeur d'un fichier à un autre fichier m'imposait de passer par cette ligne de commande. Si c'est inutile, j'en prends acte.
- par contre je ne comprends pas pourquoi ma "boucle" est inutile puisque, pour lire successivement toutes les valeurs d'une colonne, je dois bien faire varier les coordonnées des cellules à lire. A moins qu'il 'existe une meilleure solution que je ne connais pas ?
Qu'en pensez-vous ?
09/04/2020, 09h50
Menhir

Citation:

Envoyé par Criscour

Qu'en pensez-vous ?

J'ai déjà dit ce que je pense : ton code n'a aucune cohérence. Plusieurs personnes te l'ont dit.
Je pense qu'une copie de cellules contigües, ça se fait sur une seule ligne de code sans boucle.
Mais si tu penses que ce sont de mauvais conseils, qu'il n'est pas utile de modifier ton code parfait et que répondre aux questions posée est superflus, il est inutile d'insister.

C'est sûrement dû à un "bug d'Excel" ou à un envoutement.
09/04/2020, 09h56
Criscour

L'ironie cache souvent la "blessure", c'est dommage car mon but n'était pas celui-là. Je pensais mes questions assez précises, en effet, même si j'accepte, et je l'avais indiqué, de reconnaître que mes lignes de commande comportent des erreurs, mon souci est de constater que, malgré ces erreurs, la macro s'exécute normalement sur un PC mais pas sur un autre. Elle a même été testée sur un 3ème PC sur lequel ça marche également.
09/04/2020, 11h18
Lou Pitchoun

Au-delà des questions que l'on se pose sur la cohérence de ce que doit faire ton code, je ne vois pas ce qui ferait que le code s'exécute sur ton PC, le mien et pas sur celui de la personne sensée l'utiliser. Il n'y a aucune référence supplémentaire à ajouter : ton code utilise des commandes basiques.
11/04/2020, 11h44
Criscour

Citation:

Envoyé par Lou Pitchoun

Au-delà des questions que l'on se pose sur la cohérence de ce que doit faire ton code, je ne vois pas ce qui ferait que le code s'exécute sur ton PC, le mien et pas sur celui de la personne sensée l'utiliser. Il n'y a aucune référence supplémentaire à ajouter : ton code utilise des commandes basiques.

Merci de cet encouragement, mais je reste perplexe. Je reviens également sur l'avis de Menhir: "faire une copie de cellules contiguës, ça se fait sur une seule ligne de code sans boucle" OK, mais cela est-il possible, sans faire de boucle For-Next, quand on ne connait pas au départ le nombre de cellules à copier ?
Par ailleurs, j'ai lu qu'une erreur "13" pouvait être due, soit à un problème d'opérations entre variables de nature différente, soit à une erreur du système qui aurait été altéré. Qu'en pensez-vous pour ce qui me concerne avec cette disparité de fonctionnement selon le PC utilisé ?
11/04/2020, 12h11
Patrice740
Bonjour,
Citation:
Envoyé par Criscour

Code:

1 2 3 4 5 For j = 1 to 10 Range("fx" & 16 + j) = "=plage" Range("fx" & 16 + j).Copy y = Range("fx" & 16 + j) Next j
Ce code est totalement incohérent : il y a des actions successives mais ces actions ne sont suivies d'aucune finalité : le Copy n'est pas utilisé, y non plus !

Avant de se demander si ça fonctionnera ailleurs, il faut commencer par écrire quelque chose qui fonctionne localement et de préférence clair et structuré.
Je te conseille vivement de prendre le temps de suivre en autoformation cet excellent cours VBA pour débutants : https://bidou.developpez.com/article/VBA/
11/04/2020, 12h46
Criscour

Citation:

Envoyé par Patrice740

Bonjour,

Ce code est totalement incohérent : il y a des actions successives mais ces actions ne sont suivies d'aucune finalité : le Copy n'est pas utilisé, y non plus !

Avant de se demander si ça fonctionnera ailleurs, il faut commencer par écrire quelque chose qui fonctionne localement et de préférence clair et structuré.
Je te conseille vivement de prendre le temps de suivre en autoformation cet excellent cours VBA pour débutants : https://bidou.developpez.com/article/VBA/

Pour le "copy", je suis d'accord. Par contre, le "y" est utilisé dans la suite de la macro dont je n'ai mis qu'un extrait car lorsque le déroulement se plante, c'est sur la ligne y=.....

De fait, pouvais-je écrire directement ?
y = Range("fx" & 16 + j)

et ne pas mettre du tout
Range("fx" & 16 + j) = "=plage"
Range("fx" & 16 + j).Copy

D'avance merci
11/04/2020, 13h33
Patrice740

Citation:

Envoyé par Criscour

De fait, pouvais-je écrire directement ?
y = Range("fx" & 16 + j)

Ma boule de cristal ne sait pas te répondre ...

Si tu veux des réponses valables, il faut toujours publier la totalité du code et expliquer précisément ce qu'il devrait faire.

A défaut, comme c'est le cas actuellement, il y a toujours une part d'incertitude dans les réponses...
11/04/2020, 14h42
Menhir

Citation:

Envoyé par Criscour

"faire une copie de cellules contiguës, ça se fait sur une seule ligne de code sans boucle" OK, mais cela est-il possible, sans faire de boucle For-Next, quand on ne connait pas au départ le nombre de cellules à copier ?

Oui

Citation:

Par ailleurs, j'ai lu qu'une erreur "13"

Toujours pas décidé à donner le texte du message d'erreur et la ligne de code désignée par le débugage ? :?

Citation:

pouvait être due, soit à un problème d'opérations entre variables de nature différente, soit à une erreur du système qui aurait été altéré. Qu'en pensez-vous pour ce qui me concerne avec cette disparité de fonctionnement selon le PC utilisé ?

Je t'ai déjà dit ce que j'en pense mais comme tu penses que je suis dans l'erreur, je n'insiste pas.

Citation:

Envoyé par Criscour

Par contre, le "y" est utilisé dans la suite de la macro dont je n'ai mis qu'un extrait car lorsque le déroulement se plante, c'est sur la ligne y=.....

De fait, pouvais-je écrire directement ?
y = Range("fx" & 16 + j)

Au second tout de boucle, l'affectation dans la variable y écrasera l'affectation faite au premier tour, et ainsi de suite à chaque tour.
Au la fin de la boucle, il ne restera dans y que la valeur de FX26.

Ca aussi je l'ai déjà dit.
15/04/2020, 11h06
Criscour

Bonjour et merci d'avoir répondu.
Le code complet est relativement long, aussi j'explique mon objectif: je veux récupérer dans un fichier Excel "X" les données lues dans plusieurs autres fichiers "A", "B", "C" etc...qui restent fermés. Les données à copier sont en colonne "fy" d'un même onglet de "A", "B", "C" etc... et je dois calculer le nombre de lignes remplies dans chacun des fichiers "A", "B", "C" etc... pour que les valeurs copiées puissent être collées dans "X" et rassemblées en continu, et à la suite, dans une même colonne. Le nombre de lignes copiées dans chacun des fichiers sources me permet de décaler verticalement la copie des suivantes. Ma bouche ne sert donc qu'à définir l'étendue de la plage à copier, mais a priori il y a une manière plus élégante de faire et qu'il me serait agréable de connaître. Par ailleurs j'ai compris au vu des premières remarques reçues sur le forum que le "copy" était inutile, mais je l'avais utilisé après avoir vu dans un forum que c'était la manière de copier des valeurs d'un autre fichier gardé fermé. S'il existe une autre méthode, je suis naturellement preneur mais sans avoir recours à des solutions telles que "ADODB.Connection...." etc... que je ne maîtrise absolument pas.
Cependant , et même si ces lignes sont inutiles, mon interrogation porte sur l'erreur "13" qui ne se manifeste que sur un PC alors que tout se déroule sans aucun blocage sur deux autres PC. La variable "y" est utilisée, dont certains commentaires disent qu'elle se réinitialise à chaque tour de bouche, et c'est vrai, me sert dans la commande suivante: "If y = "...." then "...". Ai-je donc besoin de passer par cette variable intermédiaire ou puis-je faire autrement ?
D'avance merci.
15/04/2020, 12h10
Patrice740
Bonjour,
Citation:
Envoyé par Criscour

Code:

1 2 3 4 5 For j = 1 to 10 Range("fx" & 16 + j) = "=plage" Range("fx" & 16 + j).Copy y = Range("fx" & 16 + j) Next j
Citation:

Envoyé par Criscour

Le code complet est relativement long, ...
... La variable "y" est utilisée, ...: "If y = "...." then "...".

Si tu avais publié le code on l'aurait vu !
Comme tu n'en dit pas plus, au vu de ce qu'on sait, ce code suffit en remplacement :
Code:

1 2 3 4 5 6 7 With ActiveWorkbook.ActiveSheet For j = 1 To 10 .Range("fx" & 16 + j).Formula = "=plage" Next j y = .Range("fx26").Value If y = '.... End With
15/04/2020, 13h27
Menhir

Citation:

Envoyé par Criscour

je veux récupérer dans un fichier Excel "X" les données lues dans plusieurs autres fichiers "A", "B", "C" etc...qui restent fermés.

A ma connaissance, il est impossible de lire les données sans ouvrir le fichier qui les contient, à moins d'attaquer directement les secteurs du disque, ce qui est peu probable, surtout en VBA.

Citation:

Les données à copier sont en colonne "fy" d'un même onglet de "A", "B", "C" etc...

Dans ce cas, pourquoi dans ton code copies-tu les données de la colonne "fx" ?

Citation:

et je dois calculer le nombre de lignes remplies dans chacun des fichiers "A", "B", "C" etc...

Pour ça, on utilise généralement la propriété End(xlUp).

Citation:

a priori il y a une manière plus élégante de faire et qu'il me serait agréable de connaître.

Pour ça, il faudrait comprendre ce que fait précisément ton code et, comme il a été dit plusieurs fois, le code que tu présentes dans ta demande ne semble pas fonctionnel, il est donc difficile de comprendre ce qu'il est supposé faire.

Citation:

Par ailleurs j'ai compris au vu des premières remarques reçues sur le forum que le "copy" était inutile

Tout comme, dans une feuille Excel, le Ctrl+C (Copie) est inutile s'il n'est pas suivi d'un Ctrl+V (Callage).

Citation:

mais je l'avais utilisé après avoir vu dans un forum que c'était la manière de copier des valeurs d'un autre fichier gardé fermé.

On ne peut pas utiliser Copy sur les cellules d'un classeur fermé.

Citation:

mon interrogation porte sur l'erreur "13"

Toujours pas décidé à donné le message correspondant ?

Citation:

La variable "y" est utilisée, dont certains commentaires disent qu'elle se réinitialise à chaque tour de bouche, et c'est vrai, me sert dans la commande suivante: "If y = "...." then "...".
Ai-je donc besoin de passer par cette variable intermédiaire ou puis-je faire autrement ?

Il n'y a pas de If Then dans le code que tu présentes et ma boule de cristal est en panne.
Donc, difficile d'imaginer ce que tu fais avec cette variable et de répondre à ta question.
10/05/2020, 18h31
Criscour

merci, mais avec quelques réserves...

merci à ceux qui ont voulu m'aider, pour la plupart, je retiens leur bonne intention, mais déplore que certains aient été plus obnubilés par "je suis le maître, on ne me contredit pas!" plutôt que de chercher à mieux comprendre ce que demande l'élève. Partager son savoir n'est pas donné à tous et demande pédagogie et empathie.

En définitive, j'ai de fait résolu mon problème différemment car l'essentiel de ma question était le comportement différent d'un PC par rapport à d'autres qui géraient très bien la macro que j'avais mis en place, même si celle-ci était inélégante ou pouvait être remplacée par d'autres formulations. En réalité, et contrairement à ce que j'ai lu, j'avais réussi à copier des données dans plusieurs fichiers fermés et n'ai donc pas compris (ni surtout admis) la causticité de certains intervenants qui insistaient sur ce qu'ils considéraient comme des erreurs, alors que ma macro marchait très bien sauf sur un seul PC, et qu'ils ne me fournissait aucune réponse ou hypothèse sur les raisons qui pouvaient expliquer l'erreur 13 sur un seul PC.
10/05/2020, 19h08
Menhir

Citation:

En réalité, et contrairement à ce que j'ai lu, j'avais réussi à copier des données dans plusieurs fichiers fermés

Je suis prêt à parier le contraire. :mrgreen:
Pour écrire dans un fichier, d'une façon ou d'une autre, il faut l'ouvrir. Que se soit classiquement par Excel, par une ouverture façon base de données ou autre, à un moment où à un autre, il faut procéder à une ouverture.
A moins, comme je le disais, d'aller directement écrire sur un secteur disque mais c'est un procédé que je n'ai encore jamais vu pratiqué en VBA et je doute même (sans certitude cette fois) que ce soit possible avec ce langage (généralement, ça se fait en C, en Assembleur ou autre langage de cet accabit).

Montre ton code, je te montrerai ton Open.