Excel 2003 - Run-time error '1004'

Bonjour,

Cela fait un p'tit temps que je ne suis plus venu dans le forum, mais j'ai un souce avec un module VBA et je ne vois pas pourquoi.

En fait ce code fonctionne depuis un certain temps déjà, la dernière fois qu'il a fonctionné sans problèmes s'étais le 30 Avril dernier, aujjourd'hui je recois l'erreur suivante:

Citation:

---

Run-time error '1004':
Application-defined or object-defined error

---

Le debugger me dit que c'est la ligne suivante qui génère cette erreur:

Code:

---

Worksheets("WFM Data H1").Range(Cells(StartDeleteSCRWFMH1, 1), Cells(NumberOfLinesSCRWFMH1, 27)).Select

---

Ce qui est très bizarre, c'est que j'ai une variable qui contient le mois de l'année (acquis par : ActualMonth = Month(Now)) ... si je tourne le programme en remplacant Month(Now) par la valeur 4 le programme fonctione ... alors je ne vois pas du tout le rapport entre les deux.

J'attache une version réduite de mon "programme".

Merci pour toute aide possible.

Guy

Bonjour,

Le bug provient sans doute du fait qu'on ne peut pas sélectionner une cellule sur une feuille si celle-ci n'est pas active, il faut donc décomposer le code comme ceci :

Code:

---

1 2	Worksheets("WFM Data H1").Activate Range(Cells(StartDeleteSCRWFMH1, 1), Cells(NumberOfLinesSCRWFMH1, 27)).Select

---

Remarque : Les "Select" sont bien souvent superflus et ne font qu'allourdir la procédure

Le mieux étant de ne pas sélectionner les cellules ;)

(boujour Fling, te vont bien tes plumes ! A quand les rouges ?)

Salut Fring,

Merci pour la solution, je viens de tester et ca marche ... je ne sais pourquoi cela a marché jusqu'à présent toutefois ... enfin, les voies de l'informatiques sont quelques fois inpénétrables :D

Avant de marquer ce problème comme étant résolu j'aimerais encore poser une question à Ouskel'n'or: que veux tu dire par "Le mieux étant de ne pas sélectionner les cellules" ... n'étant pas un spécialiste VBA, je ne vois pas comment procéder autrement ... :

1. Activer le worksheet ou se trouvent les cellules à traiter
2. Sélectionner les cellules à traiter
3. Traiter les cellules (dans ce cas les effacer)

N'est pas la facon correcte de procéder??

Merci,

Guy

non ce n'est pas la meilleure façon de procéder, ce que tu fais est ceci

Code:

---

1 2 3

Sheets("Feuil2").Activate Range("A1:A10").Select Selection.ClearContents

---

La bonne façon se résume à

Code:

---

Sheets("Feuil2").Range("A1:A10").ClearContents

---

Pour ça que je disais que les "Select" sont superflus ;)

OK fring,

Merci pour cette clarification, je vais modifer mon code sur base de ces recommendations.

Encore merci pour ce forum, c'est vraiment très utile pour les novices.

Guy