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

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

[ESVBA]

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

ESVBA

[maxoup]

Oui.

[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

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

[Daniel.C]

Tu peux utiliser la syntaxe suivante qui ne provoque pas d'erreur :

Code :

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

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.

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

[maxoup]

J'ai trouvé une solution:

Code :

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

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

[Daniel.C]

Bravo d'avoir trouvé la solution que je te proposais :

Code :

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

1
2
Dim Val As Variant
Val = Application.VLookup(Val, Sheets("Engins").Range("b3:c19"), 2, False)

Voila ce que tu écris :

Il y a une erreur quand je teste cette ligne:

Code :

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

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

J'ai trouvé une solution:

Code :

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

1
2
3
4
dim valeur as variant
dim engin as string
 
valeur = Application.VLookup(valeur, Sheets("Engins").Range("b3:c19"), 2, False)

[Jean-Philippe André]

salut,

penser à mettre un

Code :

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

Option Explicit

en haut du code, ca évitera pas mal de petites erreurs

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

[Daniel.C]

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

Il y a une erreur quand je teste cette ligne:

Code :

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

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

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