VBA: incompatibilite Variant String

Version imprimable

Bonjour,

j'ai réalisé le code suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Dim derniereLigne As Integer
Dim serie() As Variant
Dim i As Integer
Dim val As Variant
Dim engin As String


derniereLigne = calc_D.Sheets("Base").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
ReDim serie(derniereLigne)

LignesMax = derniereLigne

For i = 2 To LignesMax
    If Sheets("Base").Cells(i, 7) <> "" Then
        val = Sheets("Base").Cells(i, 7).Value
        serie(i) = Split(val, "/")
    End If
Next i

For i = 1 To UBound(serie)
       If Not (IsEmpty(serie(i))) Then
    val = serie(i)
    val = WorksheetFunction.VLookup(val, Sheets("Engins").Range("b3:c19"), 2, False)

    engin = CStr(val)
If engin = "X2100" Or engin = "XR6000" Then       
calc_S.Sheets("x2100+xr").Cells(i + 3, 4) = engin
        End If
    End If
Next i

Et j'ai l'erreur sur la ligne en italique : " erreur 13: incompatibilité de type"

Si une personne peut m'aider à comprendre l'erreur! Merci!

17/07/2012, 17h30
Jean-Philippe André

Salut,
quelle est la valeur de val au moment où tu as l'erreur stp ?
17/07/2012, 17h35
maxoup

Merci de la réactivité!

La valeur de val est "z27500".

Mais si je remplace dans la condition if engin par val, j'ai la même erreur. (en mettant la ligne précédente en commentaire)
17/07/2012, 18h04
Daniel.C

Bonjour,

Si "VLookup" ne trouve pas de correspondance dans la plage "Sheets("Engins").Range("b3:b19")", il retournera une valeur d'erreur dans Val. D'où erreur à la ligne suivante.
18/07/2012, 08h40
maxoup

Bonjour,

J'ai bien une valeur qui correspond dans "vLockup".

Et l'erreur est du à une incompatiilité de type donc je ne pense pas que ça soit en rapport avec vLockup.

Est ce que j'aurais mal déclarer des variables? Sachant que le tableau série les valeurs ressemble à 5TTAEL58.
18/07/2012, 08h54
ESVBA

Bonjour maxoup, Daniel.C, jpchech et le forum

"VAL()" est une fonction VB.

Renommez la variable en autre chose pour essayer.

ESVBA
18/07/2012, 08h56
maxoup

J'ai toujours le message d'erreur.

Avant le if, j'ai mais un "msgbox valeur".

Maintenant, j'ai l'erreur incompatibilité de type sur cette ligne.
18/07/2012, 09h09
ESVBA

avec un arrêt du code en ligne 23, les différents paramètres contiennent-ils les bonnes valeurs ?

ESVBA
18/07/2012, 09h18
maxoup

Oui.
18/07/2012, 09h49
ESVBA
ce n'est pas évident pour moi.

Le mieux est de sortir sur une feuille pour toutes les valeurs de la boucle :
- i
- val
- ISERROR(val)
- ISNULL(val)
- ISEMPTY(VAL)
- Sheets("Engins").Range("b3:c19")
- WorksheetFunction.VLookup(val, Sheets("Engins").Range("b3:c19"), 2, False)
- isempty(WorksheetFunction.VLookup(val, Sheets("Engins").Range("b3:c19"), 2, False))
- isnull(WorksheetFunction.VLookup(val, Sheets("Engins").Range("b3:c19"), 2, False))
- isERROR(WorksheetFunction.VLookup(val, Sheets("Engins").Range("b3:c19"), 2, False))
- len(WorksheetFunction.VLookup(val, Sheets("Engins").Range("b3:c19"), 2, False))
Il doit y avoir une valeur anormale quelque part.

ESVBA
18/07/2012, 10h09
maxoup

Il y a une erreur quand je teste cette ligne:

WorksheetFunction.VLookup(val, Sheets("Engins").Range("b3:c19"), 2, False)

Apparament il ne trouve aucune valeur à " Sheets("Engins").Range("b3:c19") "
18/07/2012, 10h55
Daniel.C
Tu peux utiliser la syntaxe suivante qui ne provoque pas d'erreur :
Code:

1 2 Dim Val As Variant Val = Application.VLookup(Val, Sheets("Engins").Range("b3:c19"), 2, False)
qui retourne dans Val une valeur d'erreur. A toi de la gérer.
18/07/2012, 11h13
maxoup

Merci,

Pas de problème avec le vlookup, engin récupère bien une valeur, quand on l'écrit dans une cellule une valeur apparait. Mais quand je veux afficher engin avec Msgbox il met "incompatibilité de type". Engin est de type variant.

Quand je veux copier l'ensemble sheets("engin").range("b3:c19") ça ne copie rien.

Quand je veux faire un if sur engin ça ne marche pas non plus....

J'ai trouvé une solution:

Code:

1
2
3
4
5
6
7
8
dim valeur as variant
dim engin as string
 
valeur = Application.VLookup(valeur, Sheets("Engins").Range("b3:c19"), 2, False)
calc_D.Sheets("test").Cells(1, 1) = valeur
calc_D.Sheets("test").Cells(1, 1).Select
engin = calc_D.Sheets("test").Cells(1, 1)
calc_D.Sheets("test").Cells(1, 1).ClearContents

18/07/2012, 12h23
Daniel.C
Bravo d'avoir trouvé la solution que je te proposais :
Citation:
Code:

1 2 Dim Val As Variant Val = Application.VLookup(Val, Sheets("Engins").Range("b3:c19"), 2, False)
Voila ce que tu écris :

Citation:

Il y a une erreur quand je teste cette ligne:

Code:

WorksheetFunction.VLookup(val, Sheets("Engins").Range("b3:c19"), 2, False)
Citation:
J'ai trouvé une solution:

Code:

1 2 3 4 dim valeur as variant dim engin as string valeur = Application.VLookup(valeur, Sheets("Engins").Range("b3:c19"), 2, False)
18/07/2012, 13h52
Jean-Philippe André

salut,

penser à mettre un

Code:

Option Explicit

en haut du code, ca évitera pas mal de petites erreurs ;)
18/07/2012, 14h13
maxoup

Ce n'est pas la fonction vLockup le problème étant que je récupéré la bonne valeur!

C'est en stockant dans une cellule puis la stocker dans une variable qui a résolut l'erreur.

Ps: je met toujours Option explicit.
18/07/2012, 14h20
Daniel.C

Ah bon, j'ai lu le contraire...

Citation:

Il y a une erreur quand je teste cette ligne:

Code:

WorksheetFunction.VLookup(val, Sheets("Engins").Range("b3:c19"), 2, False)

Apparament il ne trouve aucune valeur à " Sheets("Engins").Range("b3:c19") "