Effacer le contenu d'une cellule contenant #DIV/0!

Effacer le contenu d'une cellule contenant #DIV/0! - VB/VBA/VBS - Programmation

Marsh Posté le 08-08-2007 à 17:02:13    

Bonjour Forum, bonjour à toutes et à tous.
 
Je dispose d'un classeur ayant plusieurs cellules. Ces cellules forment les colonnes de quatre cellules des tableau un peu dispersés dans mon classeur et à chaque fin de colonne je fais la moyenne.
Or il m'arrive parfois d'avoir une colonne entièrement pleine de de zéros (ma moyenne l'est également.).
 
J'ai ecrit un petit programme ci dessous qui efface le contenu des cellules ayant un zéro.
Or lorsqu'il arrive à ma moyenne celui-ci devient #DIV/0! et mon programme se bloque.
 
Commen faire pour prendre en compte également cette erreur que me génère ma moyenne et faire un ClearContents de le cellule?
Comment faire également pour scanner tout le classeur?
 
Voici le programme:  

Code :
  1. Dim cell As Range
  2. For Each cell In ActiveSheet.Range("A1:C5" )
  3. If cell.Value = 0 Then cell.ClearContents
  4. Next


 
 
Merci d'avance pour votre aide.
 
Julien.
 

Reply

Marsh Posté le 08-08-2007 à 17:02:13   

Reply

Marsh Posté le 08-08-2007 à 17:06:29    

Ben si t'as que des cellules vides dans toute la colonne, à la fin il divise par le nombre de cellules non vides, soit 0 donc erreur, donc faut que tu gères de vérifier si y'a au moins une cellule non-vide pour demander une moyenne sinon, faut pas la faire


---------------
The Rom's, à votre service
Reply

Marsh Posté le 08-08-2007 à 17:13:24    

Salut TheRom_s  
 
En fait le classeur est une structure déjà établie, les zéros sont obligés d'y être et la moyenne aussi.
 
Merci quand même pour ta réponse.

Reply

Marsh Posté le 09-08-2007 à 11:07:12    

Bonjour,
à essayer après adaptation:
=SI(NB.SI(B1:B6;">0" );MOYENNE(B1:B6);"" )
Cordialement

Reply

Marsh Posté le 10-08-2007 à 12:57:59    

Merci !! :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed