Discussion :

[cwain]

Bonjour,

J'ai un souci avec la commande Cells.Clear, utilisée en début de code pour "réinitialiser" une feuille
Le code suivant est déclenché à partir d'un cmdbutton dans la sheets(1)

Code :

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

1
2
3
4
Sheets(1).Unprotect
Sheets(2).Cells(1, 1).Activate
Cells.Clear
Cells.Font.Size = 12

De temps en temps (et pas tout le temps), le code se lance et s'arrête après l'exécution de la commande Cells.Clear

Je n'ai pas réussi à trouver quelles étaient les conditions pour que ça plante.
Quelqu'un aurait une idée, ou bien a déjà été confronté à ce problème ?

[Invité]

Bonjour Cwain,

A toutes fins utiles :
Est-ce quela tient à la version d'Excel (j'utilise Office 2000).

Ce code fonctionne sans problème, mais la sélection doit être faite sous la forme d'une plage même pour une seule cellule : Range(Cells(1, 1)).Select ne serait pas accepté).

Code :

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

1
2
3
Sheets(2).Activate
Range(Cells(1, 1), Cells(1, 1)).Select
Selection.ClearContents

Amicalement

[tangjuncn]

tu ne veux pas essayer range("**").clearcontents?

[SfJ5Rpw8]

c'est bien la feuille 2 du classeur contenant la macro .. qui doit être effacée...?

essai :

Code :

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

ThisWorkbook.Sheets(2).cells.clear

[cwain]

jacques_jean> ma version d'Excel : 2003 avec SP2 partie de microsoft office small business edition 2003

tangjuncn> disons que j'utilise Cells parce que la zone à effacer est variable (entre 6 et 600, 1000 etc...). Ceci dit je pense qu'avec un range de la première à la 60000ème ligne je devrais être tranquille . Je vais essayer ça

bbil> c'est bien la Feuil2, je vais essayer de rajouter thisworkbook devant.

à tous> Le souci c'est évidemment que c'est aléatoire. un exemple d'une tentative : je clique une fois sur mon bouton, le code s'arrête à cells.clear, je cliques une deuxième fois il passe... ???

[alsimbad]

il donne un message d'erreur quand il s'arrete?

[cwain]

Non, il n'y a même pas un message d'erreur !
C'est comme si au lieu de

Code :

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

Cells.Clear

j'avais

Code :

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

End Sub

!!
J'en suis là, ça a buggué également au début, puis maintenant je n'arrive plus à reproduire le problème....

Code :

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

1
2
3
Sheets(1).Unprotect
Sheets(2).Activate
ThisWorkbook.Sheets(2).Cells.Clear

[tangjuncn]

Non, il n'y a même pas un message d'erreur !
C'est comme si au lieu de

Code :

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

Cells.Clear

j'avais

Code :

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

End Sub

!!
J'en suis là, ça a buggué également au début, puis maintenant je n'arrive plus à reproduire le problème....

Code :

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

1
2
3
Sheets(1).Unprotect
Sheets(2).Activate
ThisWorkbook.Sheets(2).Cells.Clear

c pas un bonheur ça??
Je ne sais + si ça s'écrit comme ça bonheur

[cwain]

Heu je te suis pas, là...

[tangjuncn]

!!
J'en suis là, ça a buggué également au début, puis maintenant je n'arrive plus à reproduire le problème....


c pas un good news de ne + produire les pb

[cwain]

héhé ça serait que pour moi le fichier, je m'en contenterais...
Hélas c'est pour d'autres utilisateurs que je connais et qui :
- m'appeleront à chaque petit bug du programme => autant de temps en moins à répondre aux utilisateurs de developpez.com
- ne voudront pas utiliser le programme si il buggue => 2 jours de travail inutile => le patron me vire => je peux plus manger => je n'ai plus la force de répondre aux utilisateurs de developpez.com

[ouskel'n'or]

Plutôt que pleurer comme une Madeleine, pas bientôt réglé, ton pb ?
Parce que si tu ne trouves pas d'autre moyen, tu as la solution hard consistant à insérer une nouvelle feuille, à copier si nécessaire le format de la feuille à effacer et à supprimer cette sal......rie de feuille récalcitrante... qu'enfin on n'en parle plus

[cwain]

C'est vrai...
une petite question au passage alors :
si je supprime ma feuil2 et que j'en insère une autre, la nouvelle feuill a-t-elle toujours le numéro d'index 2, que je puisse continuer à l'appeler comme ça :

Code :

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

Sheets(2)

?

[ouskel'n'or]

Tu veux que je fasse l'essai pour toi ?
Bon c'est fait... Non, ça prend le nom de ActiveWorkbook.sheets.count
Mais tu sais renommer une feuille ? Ou bien, au lieu de mettre Feuil1 dans ton code, tu instancies tes feuilles, auquel cas tu peux même raccourcir ton code en mettant FL1....

[alsimbad]

moi, j'utilise ça, c'est simple et ça fonctionne

Code :

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

Sheets(1).Cells.ClearContents

[cwain]

J'utilise Clear car je dois également supprimer les formats, ce que ne fait pas ClearContents.

Merci pour votre aide, j'utilise la suppression de l'ancienne feuille et la création d'une nouvelle avec les mêmes noms/références pour contourner le problème.

Cwain

[ouskel'n'or]

As-tu essayé Activesheet.Cells.delete ? 'a t'remplace toutes tes lignes par des lignes toutes neuves

[cwain]

Non, je vais essayer ça, ce qui est juste un peu gavant dans mon histoire, c'est que vu que le problème est aléatoire (bon je sais, on ne dit pas "aléeatoire", on dit "je n'ai pas réussi à déterminer les conditions qui font que des fois ça marche, des fois non" ), je ne peux pas vraiment dire tout de suite si une solution est bonne ou pas...
Merci pour l'aide