Incompatibilité du type au niveau de la fonction "Transpose"

Version imprimable

Bonjour;
Voilà mon problème : j'ai deux fichiers excel très volumineux (environ 10 000 lignes chacun). J'aimerais extraire les lignes différentes entre les deux fichiers. Sachant que je ne suis pas très doué en excel, comment puis-je m'y prendre
j'ai trouvé le code suivant mais ça donne une erreur lors de la compilation au niveau de la fonction Transpose(DicoF2.keys).
Merci d'avance

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Sub ExtractionDifférence()
    Application.ScreenUpdating = False
    Set F1 = ThisWorkbook
 
OuvrirFichier1:
    Fichier1 = Application.GetOpenFilename(filefilter:="tout,*.*", Title:="Sélection")
    If Fichier1 = False Then
        MsgBox "aucun fichier sélectionné", vbOKOnly + vbCritical, "fin de procédure "
        Exit Sub
    End If
    ThisWorkbook.FollowHyperlink Fichier1
    Fichier1 = ActiveWindow.Caption
 
OuvrirFichier2:
    Fichier2 = Application.GetOpenFilename(filefilter:="tout,*.*", Title:="Sélection")
    If Fichier2 = False Then
        MsgBox "aucun fichier sélectionné", vbOKOnly + vbCritical, "fin de procédure "
        Exit Sub
    End If
    If Fichier1 = Fichier2 Then
        MsgBox "Ce ficier est déjà ouvert"
        GoTo OuvrirFichier2
    End If
    ThisWorkbook.FollowHyperlink Fichier2
    Fichier2 = ActiveWindow.Caption
 
    F1.Activate
    Set F2 = Windows(Fichier1)
    Set F3 = Windows(Fichier2)
    ActiveSheet.AutoFilterMode = False
    Columns("A:C").ClearContents
 
    Set DicoF2 = CreateObject("Scripting.Dictionary")
    Set DicoF3 = CreateObject("Scripting.Dictionary")
    F2.Activate
    Sheets(1).Activate
    DerLigF2 = Sheets(1).Cells.Find("*", , , , xlByColumns, xlPrevious).Row
    DerColF2 = Sheets(1).Cells.Find("*", , , , xlByColumns, xlPrevious).Column
    For Each C In Range("A2:A" & DerLigF2)
        For i = 1 To DerColF2
            If Cells(C.Row, i) = "" Then ValCell = "-" Else ValCell = Cells(C.Row, i) & "£"
            X = X & ValCell
        Next i
        DebC = C
        C = X
        DicoF2.Add C, ""
        C = DebC
        X = ""
    Next C
    F1.Activate
    [A2].Resize(DicoF2.Count) = Application.Transpose(DicoF2.keys)
 
    F3.Activate
    Sheets(1).Activate
    DerLigF3 = Sheets(1).Cells.Find("*", , , , xlByColumns, xlPrevious).Row
    DerColF3 = Sheets(1).Cells.Find("*", , , , xlByColumns, xlPrevious).Column
    For Each C In Range("A2:A" & DerLigF3)
        For i = 1 To DerColF3
            If Cells(C.Row, i) = "" Then ValCell = "-" Else ValCell = Cells(C.Row, i) & "£"
            X = X & ValCell
        Next i
        DebC = C
        C = X
        DicoF3.Add C, ""
        C = DebC
        X = ""
    Next C
    F1.Activate
[B2].Resize(DicoF3.Count) = Application.Transpose(DicoF3.keys)[/I][/I]
 
    DerLigF1 = Application.WorksheetFunction.Max(DerLigF2, DerLigF3)
    Range("C2:C" & DerLigF1).FormulaR1C1 = "=IF(RC[-2]=RC[-1],"""",""Ecart"")"
    Range("A1") = Fichier1
    Range("B1") = Fichier2
    Range("C1") = "'Test"
    Columns("A:B").Select
    Selection.EntireColumn.AutoFit
    Selection.Replace What:="£", Replacement:="  ", LookAt:=xlPart
    Range("A1:C1").AutoFilter
    ActiveSheet.Range("A1:C" & DerLigF1).AutoFilter Field:=3, Criteria1:="Ecart"
End Sub

03/05/2018, 14h05
Menhir

Citation:

Envoyé par Sara-dahour

j'ai trouvé le code suivant mais ça donne une erreur lors de la compilation au niveau de la fonction Transpose(DicoF2.keys).

Quel message d'erreur ?

Mets un point d'arrêt juste avant cette ligne et regarde ce que contient DicoF2 dans la fenêtre des variables locales.
03/05/2018, 14h56
Sara-dahour

Bonjour ,
DICOf2 est un objet dans lequel on met tous ce qui se trouve dans la 1ere extraction , le problème c'est que on a toujours un message d’erreur suivant : incompatibilité du type
03/05/2018, 15h30
Menhir

Je n'ai pas demandé ce que tu souhaites que DicoF2 contienne mais ce qu'il contient effectivement.
Je le répète : mets un point d'arrêt sur la ligne précédente et regarde dans la liste des variables locales.

re
moi je suis curieux "C" c'est quoi une range ou un string faut savoir

Code:

1
2
3
4
5
6
7
8
 For Each C In Range("A2:A" & DerLigF2)'!!!!!!!!!!!!!!!!!!!!!!!!!!
        For i = 1 To DerColF2
            If Cells(C.Row, i) = "" Then ValCell = "-" Else ValCell = Cells(C.Row, i) & "£"
            X = X & ValCell
        Next i
        DebC = C'!!!!!!!!!!!!!
        C = X'!!!!!!!!!!!!!!!!!!!!!!!!!!!
        DicoF2.Add C, ""'ben la ca plante forcement

;)

03/05/2018, 15h59
Sara-dahour

je sais pas comment le faire merci bien de m'aider :calim2:

Citation:

Envoyé par patricktoulon

re
moi je suis curieux "C" c'est quoi une range ou un string faut savoir

Code:

1
2
3
4
5
6
7
8
 For Each C In Range("A2:A" & DerLigF2)'!!!!!!!!!!!!!!!!!!!!!!!!!!
        For i = 1 To DerColF2
            If Cells(C.Row, i) = "" Then ValCell = "-" Else ValCell = Cells(C.Row, i) & "£"
            X = X & ValCell
        Next i
        DebC = C'!!!!!!!!!!!!!
        C = X'!!!!!!!!!!!!!!!!!!!!!!!!!!!
        DicoF2.Add C, ""'ben la ca plante forcement

;)

C retourne le contenu de la première cellule de chaque ligne, c'est ce que j'ai obtenu après avoir fait MSGBOX C

03/05/2018, 16h22
BENNASR

bonsoir
tu cherches à comparer deux colonnes chacune d'une onglet différentes?? ce n'est pas un état de rapprochement bancaire ??
si c'est le cas et que tu es pas doué en Excel tu peux procéder sans VBA
données en colonne A
Données en colonne B
et en colonne C tu met la formule suivante et tu copier vers le bas

Citation:

SI(NB.SI($A$1:$A1;A1)>NB.SI($B$1:$B$6;A1);A1;"")

c'est un formule que j'ai trouvé sur ce super site ;)
03/05/2018, 16h23
mercatog

Transpose a une limite pour les tableaux trop grands