Discussion :

[muppetshow]

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

[Caro-Line]

Et si tu nous montrais (au moins) la ligne de code sur laquelle il y a le "On Error" ?

[ucfoutu]

Bonjour,

Utilise alors une expression conditionnelle du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et transforme comme tu veux pour envoyer "ailleurs"

[muppetshow]

Désolé
Voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

avant de récupérer ma valeur.

Merci pour l'aide.


M