Discussion :

[maxoup]

Bonjour,

j'ai réalisé le code suivant:

Code :

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

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!

[Jean-Philippe André]

Salut,
quelle est la valeur de val au moment où tu as l'erreur stp ?

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

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

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

[ESVBA]

"VAL()" est une fonction VB.

Renommez la variable en autre chose pour essayer.

ESVBA