XL 2019 excel ne répond pas

[biboune]

bonjour,

dans mon dossier joint, chaque fois que je clique sur le bouton "réinitialiser" de la feuille "grilles", çà tourne sans s'arrêter..... et au bout d'un moment (ne répond pas)
ceci depuis que j'ai inséré des images liées : y aurait-il un lien ? et peut-on le corriger?

merci beaucoup

 

[biboune]

Chez moi çà ne marche toujours pas.
quand je mets 2(ou n'importe quel chiffre) dans la cellule C1 de la feuille "edition", toutes mes cases deviennent bleues?!!

 

[sylvanu]

Re,
Je n'avais pas vu ce problème.
Quelquefois XL relève de la sorcellerie.
Il n'y a aucun rapport entre ma modif des macros et ce souci.
Après moult recherches, il s'avère que le problème vient de la mise en forme de la colonne J de la feuille Grilles en "Codigo postal":

Remis en standard, tout semble remarcher.
Surtout, surtout, ne me demandez pas pourquoi.

 

[sylvanu]

Yes,
Just for the fun, j'ai trouvé.
Cela concerne la ligne :

Set R = wg.Columns("J").Find(J - 1 + Me.[C1], , xlValues, xlWhole)

Si je met la colonne J en standard :

Set R = wg.Columns("J").Find(1, , xlValues, xlWhole)

Répond 3, puisque 1 est en ligne 3.
Si je suis en Codigo postal :

Set R = wg.Columns("J").Find(1, , xlValues, xlWhole)

R=Nothing.
"Comme si" la mise en forme Codigo postal renvoyait la chaine de caractère "0001" au lieu du nombre 1.

 

[biboune]

MERCI SYLVANU. T'ES TROP FORT....
CE FICHIER ME CONVIENT.

J'ai ouvert une autre discussion pour continuer mon projet (rechercher valeurs colorer et afficher).
si tu peux m'aider?
d'avance merci beaucoup