VBA Cellule contenant des erreurs (#N/A) Fermé

Question

Bonjour, 

J'utilise des plages de données pour remplir mes graphiques, le tout avec l'aide d'une macro. De plus, pour chaque plage de données je recherche la valeure max. Le problème c'est que parfois ces plages de données contiennent #N/A et la fonction qui recherche le maximum ne fonctionne plus et fait tout planter. je cherche une boucle qui me permettrait de transformer toutes les cellules de ma plage qui contiennent #N/A en cellules vides....

J'ai essayé un truc comme ca : 


Dim Cellule as range
Cellule = Cells(Base_serie1)
For i = 1 To 15

If Cellule is NA Then Cellule = ""
Cellule = Cellule.Offset(0, i)
Next i

sachant que Base_serie1 = "r15" par exemple.

Mais ca ne donne rien...

Je suis complètement bloquée, quelqu'un aurait une idée?

merci beaucoup!

Configuration: Windows XP / Internet Explorer 6.0

pijaku · Accepted Answer

Bonjour, 
Cette syntaxe détecte les erreurs dans tes cellules. Par contre ne différencie pas : #N/A de #DIV/0! de #VALEUR... 
If IsError(Cellule) Then

Cordialement, 
--  Il n'y a rien de tel qu'une question idiote, seulement une réponse idiote. A.Einstein --

Débutante · Answer

Merci, 

j'ai essayé ainsi : 

Dim Cellule As Range

Set Cellule = Range("r82")
For i = 1 To 15
    If IsError(Cellule) Then Cellule = ""
    Cellule = Cellule.Offset(i, 0)
Next i

Mais ca ne fonctionne toujours pas. La boucle tourne (c'est déjà un progrès!)
mais lorsqu'elle passe sur la cellule qui contient #N/A, elle ne la met pas à vide. Pourtant, lorsque je place mon curseur sur Cellule il y a écrit "erreur 2042"...

lami20j · Answer

Salut, 

Essaie comme ça 

Dim Cellule As Range  

Set Cellule = Range("r82")  
For i = 1 To 15  
  If Application.WorksheetFunction.IsNA(Cellule) Then Cellule = ""  
  Cellule = Cellule.Offset(i, 0)  
Next i 

GNU/Linux:Linux is Not Ubuntu! Quel linux choisir ne veut pas dire votre Distribution préférée, 
                                                          106485010510997108

lami20j · Answer

Re, 

Ou plutôt 

Range("R82").Activate 
For i = 1 To 15 
  If Application.WorksheetFunction.IsNA(ActiveCell) Then ActiveCell.Value = "" 
  ActiveCell.Offset(i, 0).Activate 
Next i

GNU/Linux:Linux is Not Ubuntu! Quel linux choisir ne veut pas dire votre Distribution préférée, 
                                                          106485010510997108

Débutante · Answer

Super, merci beaucoup!!

bonne aprem

VBA Cellule contenant des erreurs (#N/A)

5 réponses

Discussions similaires