Effacer #DIV/0! et #VALEUR!

[Ken Hutchinson]

Hello,

Voici un bout de code : je cherche à effacer les cellules où est écrit "#DIV/0!" et #VALEUR!... Mais ça ne marche pas.

Sub effaceerreur()


Range("I2").Select
nblignes = Application.WorksheetFunction.CountA(Range("C:C"))

For i = 2 To nblignes


If ActiveCell.Text = "#DIV/0!" Then
Selection.ClearContents
End If

Next i
End Sub

merci de votre aide...

 

[LPandre]

Re : Effacer #DIV/0! et #VALEUR!

Bonjour,

par macro je sais pas, mais dans tes formules tu peux faire :

= si(esterreur(taformule);"";taformule)


@+

 

[Ken Hutchinson]

Re : Effacer #DIV/0! et #VALEUR!

Merci LPandre mais comme je fais tournée cette macro sur un fichier vierge à chaque fois, je dois le faire par macro...

 

[jeanpierre]

Re : Effacer #DIV/0! et #VALEUR!

Bonjour Ken Hutchison, et le forum,

Peut-être qu'une simple Mise en forme conditionnelle sur ta plage de cellules peut suffire ?

Mais comme tu souhaites une Macro..........

Quand tu dis effacer, c'est supprimer tout, là c'est une macro, ensuite plus rien n'existe dans cette plage (sauf à y réintéger les formules existantes), ou bien ne pas voir apparaître, et là, c'est MFC.

Comme quoi, pour un ou deux termes de plus, on peut mieux comprendre...

A te lire,

Jean-Pierre

Edit : Bon, ça va trop vite pour moi.... re tous.

 

[Ken Hutchinson]

Re : Effacer #DIV/0! et #VALEUR!

Bonjour jeanpierre,


malheureusement la MFC ne me suffit pas... comme je prends un fichier vierge à chaque fois..

en fait je veux supprimer les erreurs car une autre macro plante dessus...

 

[LPandre]

Re : Effacer #DIV/0! et #VALEUR!

Re , bonjour JeanPierre (que je n'avais pas salué sur un autre fil)


Ken, je ne comprends pas :
tu prends un fichier vierge => il n'y a rien dessus !
Comment peut il afficher des erreurs ?

@ te lire

 

[jeanpierre]

Re : Effacer #DIV/0! et #VALEUR!

Re à tous,

Compris un petit peu plus, mais avec le peu, c'est vraiment très difficile...

Ton fichier est vierge, donc il n'y a pas de formule.... dans ce cas, pourquoi des #DIV/0! et #VALEUR!, je pense qu'il manque un grand nombre d'éléments....

Peux-tu déposer un petit fichier répondant à ton souci, avec les macros (toutes) et quelques feuilles au besoin... ZIPPE et pour le poids et pour en mettre le plus possible, pour bien comprendre, sans renseignements confidentiels, tels Noms (que tu peux modifier) ou Adresses, Tél... etc. Les valeurs n'ont pas d'importances, elles peuvent se rapporter à n'importe quoi...

A te lire, et si je peux...

Jean-Pierre

 

[Ken Hutchinson]

Re : Effacer #DIV/0! et #VALEUR!

Je fais une extraction de fichier sur une applis. Je colle les données brutes sur un fichier vierge et je les mets en forme... voilà le pourquoi du fichier vierge. La macro est sur un serveur pour etre accessible à moultes utilisateurs.

Merci de votre aide !!

 

[LPandre]

Re : Effacer #DIV/0! et #VALEUR!

Re :

If IsError(ActiveCell) Then
Selection.ClearContents

ce code nettoie les messages d'erreur.
Est ce que tu voulais ?
A toi de le placer là ou il convient, parce que moi les macros... c'est minima.

Cordialement

 

[Excel_lent]

Re : Effacer #DIV/0! et #VALEUR!

Salut Ken,
bonjour à tous et aux autres.

Essaie d'insérer les lignes rouges :

For i = 2 To nblignes
 [COLOR=Red] If ActiveCell.Offset(0, -5) <> "" And ActiveCell.Offset(0, -5) <> 0 Then[/COLOR]
    ActiveCell.FormulaR1C1 = "=RC[-6]/RC[-5]-1"
      Selection.Style = "Percent"
 [COLOR=Red] End If[/COLOR]
  ActiveCell.Offset(1, 0).Select
Next i

en les reproduisant et adaptant dans les 2 autres cas.
Cela teste aussi des cellules vides. Si tu n'en as pas, tu peux supprimer ActiveCell.Offset(0, -5) <> "" And.

 

[Ken Hutchinson]

Re : Effacer #DIV/0! et #VALEUR!

Impecc !!

J'ai choisi la solution de LPandre intégrée dans une macro... plus simple à mon avis...

par contre je copie le beau code de Excel Lent... et je me le garde dans un coin.

Merci de votre aide.