Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1185 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1597333
lestagiair​e
Posté le 08-08-2007 à 17:02:13  profilanswer
 

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.
 

mood
Publicité
Posté le 08-08-2007 à 17:02:13  profilanswer
 

n°1597340
TheRom_S
Posté le 08-08-2007 à 17:06:29  profilanswer
 

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
n°1597349
lestagiair​e
Posté le 08-08-2007 à 17:13:24  profilanswer
 

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.

n°1597590
seniorpapo​u
Posté le 09-08-2007 à 11:07:12  profilanswer
 

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

n°1598135
lestagiair​e
Posté le 10-08-2007 à 12:57:59  profilanswer
 

Merci !! :)


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
Choix d'un Système de gestion de contenu (CMS)Enregistrer le contenu d'une page dans une variable
VBA ACCESS ou ACCESS(tout cours) pb creer requete avec contenu de tablSystème de gestion de contenu
Contenu sous la barreModification d'une fonction pour selectionner une plage de cellule
Copie de contenu de repertoirecomment faire valider un site contenant du php et du mysql
Une icone dans une cellule de JTable[EXCEL] Insérer contenu d'une feuille dans un autre fichier
Plus de sujets relatifs à : Effacer le contenu d'une cellule contenant #DIV/0!


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR