Problème de code capricieux [Résolu]

[Roverman]

Bonjour tout le monde,

J'ai un code qui copie des lignes d'une feuille à l'autre si elles sont sélectionnées, et qui les effaces si elle ne le sont plus.

Le problème est que cela fonctionne bien si je ne fais pas appel au module Total. Quand Total est appelé, le code fonctionne qu'en partie, mes lignes s'effacent bien dans la 2ème feuille, sauf les 6 premières lignes.

De plus si je modifie le code de nouveau en ne faisant plus appel à Total, mon problème persiste.

J'explique brièvement mon problème ici, tout est indiqué dans mon fichier.

Je fais donc appel à vous car j'ai vraiment du mal à trouver la raison de ce comportement.

En vous remerciant d'avance.

 

[Roverman]

Re : Problème de code capricieux

Re,

Alors personne n'a trouvé d'où vient le problème ?

Moi je ne trouve pas mais je pense que pas mal d'entre vous sont assez malin pour trouver la panne.

Aller courage et à bientôt

Merci

 

[GIBI]

Re : Problème de code capricieux

Bonjour,

dans le module "Total" la ligne qui recopie les "Sum" ne peut pas fonctionner sauf si tu la recopie en D28 : en recopiant au dessus excel décale l'adresse d2:d27 ==> d2 devient négatif d'où le #ref

Sheets("Entrée").Range("D28:E32").Copy Sheets("Rapport actuel").Range("D" & i)

il faut refaire le pavé "total" à la main

 

[Roverman]

Re : Problème de code capricieux

Bonjour GIBI, le forum,

Merci pour ton aide mais je crois que ce problème s'est réglé encore plus simplement, j'ai séparé les 2 grandes fonctions présentes précédemment dans Total. Du coup le Total fonctionne très bien. Par contre l'autre partie du code que j'ai mis dans Module2 ne fonctionne pas, c'est lui le responsable. Mais je ne vois toujours pas pourquoi les 6 premières lignes du tableau ne s'effacent pas.

Je penserai à tout hasard que la fonction Find est responsable mais sans convictions. Si quelqu'un a une idée je suis preneur

Merci

Edit : ajout pièce jointe.

 

[Roverman]

Re : Problème de code capricieux

Re,

Aller un petit Up le lundi matin ca fait pas de mal

Qui peut m’expliquer pourquoi seulement 6 lignes ne s'effacent pas à cause de cette fonction Find ?

Merci, à bientôt.

 

[frangy]

Re : Problème de code capricieux

Bonjour,

Dans la feuile "Entrée", la plage A2:A7 est affectée d’un format personnalisé que la méthode Find ne semble pas apprécier (surtout avec xlWhole).
Si tu passes en format Standard, ça se passe nettement mieux.

Cordialement.

 

[Roverman]

Re : Problème de code capricieux

Bonjour frangy,

Bien vu l'artiste, je n'y avais pas du tout pensé. Le problème est réglé

Merci beaucoup