XL 2016 Comment gérer mon erreur 13 ? [Solution en #21]

[Webperegrino]

Bonjour Le Forum,

Si possible, ce message s'adresse plus particulièrement à TooFatBoy.
Mais toute autre aide est bienvenue...

TooFatBoy est le concepteur-correcteur des lignes de codes VBA incluses en Code SubMonCalcul() (une correction de 2023).
Quant, dans la Feuille Destination du fichier ci-joint, je lance les calculs, cela bloque en erreur 13.
Les noms dans la feuille Origine PANORAMIQUE sont aléatoires.

Je pensais que la définition des variables dans les "DIM" posaient problème.
J'ai passé toute la journée pour essayer de sortir du problème, mais en vain.

Aussi je vous demande ici d'où vient l'erreur : j'ai dé-fusionné toutes les cellules, déverrouillé toutes les cellules, libéré la protection...

Merci pour votre aide,
Cordialement,
Webperegrino

 

[Webperegrino]

#13 : navré que vous le preniez comme cela.
(Je devais garder Jean Michel en Jean Michel, car il devait rester ainsi dans les deux feuilles)
Bonsoir TooFatBoy et merci encore d'avoir essayé de m'aider.
Bien cordialement,
Webperegrino

 

[TooFatBoy]

Corrige tout, et ensuite dis-nous si tu as encore des problèmes.

 

[TooFatBoy]

Bonsoir TooFatBoy et merci encore d'avoir essayé de m'aider.

Ben j'ai quand même un peu plus que "essayé" : j'ai trouvé le problème, je crois. Non ?

 

[Webperegrino]

Merci.
Ce doit être parce que j'explose de fatigue après être resté toute la journée devant l'écran à essayer de régler le problème.
Demain matin, après du sommeil maintenant, je revois tout cela pour que les listes soient vraiment identiques : les respect des Alt+0183, les espaces normaux entre deux mots, les traits d'union si je dois en mettre, d'une liste à l'autre...
Bonne nuit à vous,
Webperegrino (ayant voulu bien sûr être poli envers vous, c'est la moindre des choses ici sur ce beau Forum)

 

[TooFatBoy]

Ce doit être parce que j'explose de fatigue après être resté toute la journée devant l'écran à essayer de régler le problème.

Ah oui, ça arrive ça. On fini par saturer.


Bonne nuit

 

[Webperegrino]

Le Forum,
Bon matin à vous,
J'ai tout revisité et corrigé le fichier ainsi certaines lignes de codification.

TooFatBoy, j'ai repris votre proposition du 23 mai 2023 et l'ai adaptée au document en cours.

Comme j'avais toujours le blocage de codes, j'ai pensé à inverser ce matin l'ordre de travail For ... ligne et For Colonne... en For colonne... For ligne... : du mieux en affichage, mais toujours ... erreur 13 !

Je ne sais pas si c'est convenable pour vous, l'Expert, mais j'ai ajouté deux lignes de code pour englober la zone à problème :

On Error Resume Next
            With DEST.Range("B5").Offset(x, y)
              .Value = .Value + 1
            End With
            With DEST.Range("B5").Offset(y, x)
              .Value = .Value + 1
            End With
On Error GoTo 0

..et de surcroît, FootFatBoy, j'ai retrouvé votre astuce que j'ai appliquée en ligne 117-118...

Avec ce "bidouillage, j'imagine que vous allez me dire que c'est du "bricolage d'amateur", mais à priori ça a l'air de donner les bons résultats.
Désolé d'avoir pris de votre temps avec cette conversation ; mais si ce travail peut servir à d'autres personnes j'en suis amplement content.
Voici le fichier rectifié
Cordialement,
Webperegrino

 

[TooFatBoy]

FootFatBoy

Ça, c'est le soir quand il fait chaud et que je suis resté debout toute la journée...

 

[Webperegrino]

.. toutes les lettres y étaient presque... dyslexie ?

 

[TooFatBoy]

Je viens de tester ton classeur de #21, et tout semble fonctionner maintenant. Non ?

Si oui, alors il faudrait le signaler, dans le titre ou en cochant le message qui contient la meilleure réponse (#21 me semble bien ).