XL 2019 excel ne répond pas

B

biboune

XLDnaute Junior

• 20 Juillet 2021

• #16

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?!!

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Juillet 2021

• #17

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.

 

Pièces jointes

• CARTONS2 (9) (9).xlsm

  572.2 KB · Affichages: 3

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Juillet 2021

• #18

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

VB:

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

Si je met la colonne J en standard :

Code:

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

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

Code:

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.

 

Vote positif 0 Vote négatif

Solution

B

biboune

XLDnaute Junior

• 20 Juillet 2021

• #19

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

 

Vote positif 0 Vote négatif