incompatibilité de type erreur 13

**bboy-eazy** · 29/11/2016, 09h32

Bonjour,

j'ai un soucis d'incompatibilité de type et je ne comprends pas pourquoi:

je fais actuellement un transfert de données d'un tableau à un autre via ce code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub Transfert()
Dim a() As Variant, b() As Variant
Dim i As Long, j As Long, k As Long
Dim DL As Double
Dim WkR As Workbook
Application.ScreenUpdating = False
Set WkR = Workbooks.Open(Filename:="" & ThisWorkbook.Worksheets("Paramètres").Cells(6, 3) & "", WriteResPassword:="123456")
If Not (WkR.ReadOnly) Then
    With ThisWorkbook.Worksheets("Test")
        WkR.Worksheets("Test").AutoFilterMode = False
        .AutoFilterMode = False
        a = .Range("A1").CurrentRegion.Value
        b = Application.Transpose(WkR.Worksheets("Test").Range("A1").CurrentRegion.Value)
        For i = 2 To UBound(a, 1)
            If Not IsError(Application.Match(a(i, 2), Application.Index(b(), 2, 0), 0)) Then
                k = Application.Match(a(i, 2), Application.Index(b(), 2, 0), 0)
                For j = 1 To 62
                    If b(j, k) = "" Or (b(j, k) <> "" And b(j, k) <> a(i, j)) Then
                        If b(j, k) <> "" And a(i, j) = "" Then
                            b(j, k) = b(j, k)
                        Else
                            If (j = 20 Or j = 27 Or j = 27 Or j = 34 Or j = 38 Or j = 61) And a(i, j) <> "" Then
                                b(j, k) = b(j, k) & " " & a(i, j) 'si comment on garde tout
                            Else
                                b(j, k) = a(i, j)
                            End If
                        End If
                    End If
                Next j
            Else
                ReDim Preserve b(UBound(b, 1), UBound(b, 2) + 1)
                For j = 1 To 62
                    b(j, UBound(b, 2)) = a(i, j)
                Next j
            End If
        Next i
    End With
    With WkR.Worksheets("Test")
        DL = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
        .Range("A1:BJ" & DL).ClearContents
        .Range("A1").Resize(UBound(b, 2), UBound(b, 1)).Value = Application.Transpose(b())
        .Range("A3:BJ" & DL).Sort Key1:=.Range("B3"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        .Range("A2:BJ2").AutoFilter
    End With
    WkR.Save
    WkR.Close
    Erase a
    Erase b
Else
    MsgBox "Le fichier récapitulatif est bloqué. Veuillez réessayer dans quelques minutes! Merci"
End If
Set WkR = Nothing
Application.ScreenUpdating = True
End Sub

tout fonctionne parfaitement sauf que j'ai une erreur 13 à la ligne

Code :

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

If Not IsError(Application.Match(a(i, 2), Application.Index(b(), 2, 0), 0)) Then

quand i = 10 soit pour une ligne précise.

je ne comprend pas pourquoi car en regardant dans mes variable, le n° cherché dans b() lorsque i = 10 est bien présent. et même si il n'était pas présent, le if not iserror gère le soucis. Qu'est ce qui peut produire une incompatibilité de type dans ce genre de ligne? car l'erreur est du seulement à ce nuémro précis car si je change cette ligne en ligne 5 par exemple l'erreur à lieu pour i=5

Merci d'avance de votre aide
Bonne journée

**bboy-eazy** · 29/11/2016, 09h58

petite info supplémentaire:
l'erreur disparaissait si je changeai le numéro de la ligne 9 dans a()
aller savoir pourquoi....

autre précision: plus d'erreur en faisant comme ca:

Code :

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

If Not IsError(Application.Match(Trim(Cstr(a(i, 2))), Application.Index(b(), 2, 0), 0)) Then

mais pourquoi y avait il donc une erreur avant sur la ligne 10 sachant que mes types étaient comme les autres c'est a dire considérer comme du variant/double dans la fenêtre des varaibles...

Si quelqu'un peut m'éclairer..
Merci

**Al__22** · 29/11/2016, 10h02

Vu que tu utilises Trim je dirai qu'il y avait un espace qui se baladait

**patricktoulon** · 29/11/2016, 10h20

re
et oui
si tu a "5.52" dans l'un et " 5.52" dans l'autre les deux chaines sont de types et de valeur différente donc ca peut pas matcher puisque l'un est string et l'autre numérique

un espace dans une chaine même numérique rend la chaine string

pour vérifier ce point tu peut utiliser val(...)a la place de trim(cstr(...)) ca matchera puisque c'est simplement un espace attention au séparateur décimal aussi

**bboy-eazy** · 29/11/2016, 10h35

Bonjour et merci

j'ai ajouté trim pour être sur qu'il n'y ai pas d'espace mais ca fonctionnait aussi avec Cstr tout seul. donc c'est un autre soucis et je ne vois toujours pas lequel..

j'ai l'incompatibilité de type qui revient en mettant val...