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