Discussion :

[GuyRo]

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:

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

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

[GuyRo]

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

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

[fring]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

La bonne façon se résume à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[GuyRo]

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