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

 

[TooFatBoy]

Bonjour,

C'est moi qui ait "écrit/corrigé" ça ??? Les bras m'en tombent !

Je ne m'en souviens pas du tout.


[edit]
Tu parles peut-être de ça ??? :

XL 2016 - Calculer les présences en "Seul" ou "Accompagné" en tableau 1 et présenter la synthèse en tableau 2

Bonjour Le Forum, Ci-joint un fichier qui me fait exploser la tête depuis des heures et des jours de recherches, et ci-après mes explications du problème rencontré pour lequel je vous serais reconnaissant d’apporter une solution satisfaisante. Le bouton rouge « CALCULER » situé dans la feuille...

excel-downloads.com

[/edit]

 

[vgendron]

Bonjour

procède par étapes
le message d'erreur t'indique un pb de déclaration de type
la ligne en cause est surlignée en jaune
x déclaré comme long

Méthode WorksheetFunction.Match (Excel)

Rubrique de référence sur Office VBA

learn.microsoft.com

la fonction match retourne un double
et a besoin de variants..

ensuite, ca plante lorsque la fonction Match n'a rien à renvoyer parce qu'elle ne trouve pas le nom.
exemple.. Elisabeth P (au lieu de Elisabeth.P)

 

[TooFatBoy]

Le problème est que tu cherches "Elisabeth P" qui n'existe pas dans la plage dans laquelle tu effectues la recherche.
Si tu mets "Elisabeth P" dans ladite plage, alors ça ne plante plus. Ou du moins ça ne plante plus... pour "Elisabeth P".

 

[Webperegrino]

Le Forum,
Bonsoir TooFatBoy et Vgendron,

Parfait pour Elisabeth P transformée en Elisabeth·P dans la 1ère Feuille (Source).
En effet il me maquait à cet endroit un petit "Alt+0183" ; merci pour la trouvaille et la correction que j'ai faite immédiatement.

J'ai toujours de l'erreur 13 :
- avec ...

Dim LigOrig As Long, ColOrig As Long, i As Long, j As Long, x As Long, y As Long

... je bloque sur :

y = Application.Match(arrSplitStrings(j), DEST.Range("B6:B110"), 0)

- et avec ...

Dim LigOrig, ColOrig, i, j, x, y

.. ça passe sur

y = Application.Match(arrSplitStrings(j), DEST.Range("B6:B110"), 0)

... et ça coince maintenant sur la ligne au-dessous :

With DEST.Range("B5").Offset(x, y)

Et si je mets B5 au lieu de B6... pas mieux !
y = Application.Match(arrSplitStrings(j), DEST.Range("B5:B110"), 0)
Je n'arrive pas à trouver la solution.
Webperegrino

 

[vgendron]

meme code erreur.. meme cause sans doute...
vérifie ce que la fonction match cherche

 

[TooFatBoy]

Le problème, me semble-t-il, est le même partout : valeur cherchée inexistante dans la plage de recherche.

Un coup tu recherches "Elisabeth P", un coup tu recherches "Elisabeth·P", mais toujours dans la même plage, donc forcément si tu trouves l'un tu ne peux pas trouver l'autre.

 

[TooFatBoy]

Au temps pour moi : le "nouveau" problème n'est plus sur "Elisabeth·P" mais sur "Joëlle O", mais non trouvé pour la même raison.

Je soupçonne que tu aies 21 fois cette même erreur dans ton tableau...

Et après ce sera "Lih Juang" qui posera problème, mais pour le problème inverse : "." dans le tableau de "Panoramique" mais " "dans le tableau de "Destination".


Bref, c'est le bazar !!!
Corrige TOUTES tes données, et on verra après ça s'il y a toujours un problème.

 

[Webperegrino]

Oh la la !
Je vérifie tous mes Alt+0183 dans la Source ; Merci TooFatBoy.

 

[TooFatBoy]

Oh la la !
Je vérifie tous mes Alt+0183 dans la Source ; Merci TooFatBoy.

J'ai modifié mon message précédent, donc vérifie aussi dans la destination...

 

[Webperegrino]

Non, non : tout est correct maintenant dans les deux listes sources et destination ; plus d'intrus.
J'ai aussi vérifié l'ordre croissant vertical et horizontal dans la Feuille Destination : pas de problème à ce niveau non plus...
Lih Juang doit fonctionner comme cela, comme si on mettait un 'Jean-Michel' ou 'Jean Michel·LP'
Comme 'Lih Juang' n'est pas en dissonance avec un éventuel 'Lih-Juang', ce prénom doit être accepté par les lignes de codes car similarité de composition de texte d'une feuille à l'autre.
Webperegrino.

 

[TooFatBoy]

Non, non : tout est correct maintenant dans les deux listes sources et destination ; plus d'intrus.
J'ai aussi vérifié l'ordre croissant vertical et horizontal dans la Feuille Destination : pas de problème à ce niveau non plus...
Webperegrino.

Ne dis pas "Non non", c'est un grand bordel avec des "·" oubliés dans les deux feuilles.

 

[TooFatBoy]

Lih Juang doit fonctionner comme cela, comme si on mettait un 'Jean-Michel' ou 'Jean Michel·LP'

Justement, ça plante non seulement sur "Lih Juang", mais aussi sur "Jean Michel". Et probablement sur d'autres, mais là j'abandonne la recherche des erreurs et te laisse faire.

D'ailleurs, pourquoi avoir mis des 0183 ???
Dans ce cas, pourquoi pas des 0160 ?

 

[Webperegrino]

Désolé TooFatBoy si vous prenez mal mon texte, aucune mauvaise intention de part, croyez-moi.

 

[TooFatBoy]

Désolé TooFatBoy si vous prenez mal mon texte, aucune mauvaise intention de part, croyez-moi.

OK. Pas de problème.