Problème de code capricieux [Résolu]

R

Roverman

Guest

• 24 Août 2012

• #2

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

 

Vote positif 0 Vote négatif

G

GIBI

XLDnaute Impliqué

• 24 Août 2012

• #3

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

Code:

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

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

 

Vote positif 0 Vote négatif

R

Roverman

Guest

• 24 Août 2012

• #4

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.

 

Pièces jointes

• Code capricieux.xlsm

  65.2 KB · Affichages: 41
• Code capricieux.xlsm

  65.2 KB · Affichages: 42
• Code capricieux.xlsm

  65.2 KB · Affichages: 40

Dernière modification par un modérateur: 24 Août 2012

Vote positif 0 Vote négatif

R

Roverman

Guest

• 27 Août 2012

• #5

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.

 

Vote positif 0 Vote négatif

F

frangy

XLDnaute Occasionnel

• 27 Août 2012

• #6

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.

 

Vote positif 0 Vote négatif

R

Roverman

Guest

• 27 Août 2012

• #7

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

 

Vote positif 0 Vote négatif