Fonction On Error non prise en compte

Version imprimable

24/10/2008, 15h18
muppetshow

Fonction On Error non prise en compte

Bonjour,
A partir d'une source de données externe, je récupère des informations que je retraite avant de restituer dans un fichier .txt.

Il peut arriver que mes cellules aient pour résultat #N/A parce que toutes les valeurs de mon tableau (pour faire simple une sorte de matrice) n'ont pas de correspondance, mais je ne peux pas le savoir d'avance, d'ou le #N/A.

Par contre, dans le code VBA que j'utilise pour générer mon fichier en sortie, lorsque je rencontre une cellule qui a cette valeur, malgré le On error placé juste avant, ça me stoppe l'exécution avec avec un message :
Erreur d'exécution '13'
Incompatilité de type

Et je peux débugger si je le souhaite.

Pour info, lorsque je trace la valeur de ma cellule, j'obtiens :
Range(RefColonne & Idx).Value = Erreur 2042

Si quelqu'un a une idée pourquoi mon on error placé avant ne fonctionne pas ou bypasser cette valeur, je suis GRANDEMENT preneur parce ça fait un petit moment que j'essaye de contourner cette histoire sans succès !!!

D'avance merci

M
24/10/2008, 15h21
Caro-Line

Et si tu nous montrais (au moins) la ligne de code sur laquelle il y a le "On Error" ? ;)
24/10/2008, 15h26
ucfoutu

Bonjour,

Utilise alors une expression conditionnelle du genre :

Code:

If Cells(X, Y).Value = xlErrNA Then

Que (de mémoire car je n'ai pas Excel sous la main), tu peux également exprimer ainsi :

Code:

If CVErr(xlErrNA) = Range(..ton range...) Then

et transforme comme tu veux pour envoyer "ailleurs" ;)

Désolé :oops:
Voici

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Cours = 0
      On Error GoTo Error_Cours
      If Range(RefColonne & Idx).Value <> "#N/A N/A" _
          And Range(RefColonne & Idx).Value <> "#N/A" _
          And Range(RefColonne & Idx).Value <> "#N/A N/P" _
          And Range(RefColonne & Idx).Value <> "#N/A T/D" _
          And Range(RefColonne & Idx).Value <> "        " Then
          Cours = Range(RefColonne & Idx).Value
Retour_Cours:
          If Cours <> 0 Then
               Print #1, Instrument & " ," & Identificateur & " ," & Cours & ","
          End If
      End If

le code plante sur le IF

Merci

Code:

1
2
3
4
5
if not cours = xlErrNA Then
  If Cours <> 0 Then
     ..............
  end if
end if

et oublie ce vilain On error Resume Next !

24/10/2008, 15h39
muppetshow

Merci pour les réponses.
En fait, en // j'ai fouillé un peu partour sur le net et j'ai trouvé une autre méthode avec Application.IsError.
J'ai donc un 1er niveau de vérification

Code:

If Not Application.IsError(Range(RefColonne & Idx).Value) Then

avant de récupérer ma valeur.

Merci pour l'aide.

M