Discussion :

[kineton]

Bonjour,

C'est une question de débutant que je pose.

Je rencontre un problème dans mon script vba lors de la lecture d'une cellule contenant #N/A

Le message d'erreur retourné est Run-Time error '13', Type mismatch.

Code :

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

1
2
3
4
5
6
 
Dim var As String
Dim Tour As Long
Tour = 1
 
var = ThisWorkbook.Worksheets("Travail").Range("C" & CStr(Tour)).Value

Quelqu'un a t' il une explication à ce problème ?

[EJO64]

Bonjour,

A cause de la conversion de l'erreur en String (le type de la variable var). Il faut passer par un type variant

Code :

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

1
2
3
 
 
Dim var as variant

[Godzestla]

pour compléter EJO64, il faut aussi gérer que le résultat en variant n'est pas une erreur

Essaie comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Dim var As String
Dim Tour As Long
Dim resu As Variant
Tour = 1
 
resu = ThisWorkbook.Worksheets("Travail").Range("C" & CStr(Tour)).Value
If Not IsError(resu) Then
    var = resu
End If