Passer des valeurs d'un classeur à un autre

**Glorian** · 04/09/2020, 00h22

Bonjour,

Je viens à vous parce que je me trouve dans une jolie impasse.
C'est un budget (de plus en plus étoffé) et il passe des valeurs d'un tableau à un autre.

Puisqu'il devient de plus en plus complexe de naviguer au travers des tableaux de chaque feuille, j'aimerais les scinder en plusieurs tableaux.

Plus clairement, par exemple, au lieu de passer des valeurs du compte chèque à "Visa Desjardins" dans la même feuille "Janvier", je voudrais créer un nouveau classeur appelé Visa.xlsx.
Ensuite, je passerais les valeurs, encore en exemple, la feuille "Janvier" du tableau "Compte chèque" (classeur Comptes.xlsm) vers la feuille "Janvier" du tableau "Visa Desjardins" du classeur Visa.xlsx.

Mais, je n'arrive pas à passer les valeurs d'un classeur à un autre.

Le VBA est le 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
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
82
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim chqLR As Long, savLR As Long, celLR As Long, visLR As Long, MCrdLR As Long
       

If Target.Row < 6 Or Target.Row > 102 Then Exit Sub
If Target.Column <> 5 And Target.Column <> 9 And Target.Column <> 19 And Target.Column <> 23 And Target.Column <> 33 And Target.Column <> 37 And Target.Column <> 47 And Target.Column <> 51 And Target.Column <> 61 And Target.Column <> 66 And Target.Column <> 67 And Target.Column <> 69 Then Exit Sub

Application.EnableEvents = False

chqLR = Range("C" & 102).End(xlUp).Row
savLR = Range("Q" & 102).End(xlUp).Row
celLR = Range("AE" & 102).End(xlUp).Row
visLR = Range("AS" & 102).End(xlUp).Row
MCrdLR = Range("BQ" & 102).End(xlUp).Row
    
If Target.Column = 5 Or Target.Column = 9 Then
    If UCase(Range("E" & Target.Row)) = UCase("Op. Ep.") _
       And Range("I" & Target.Row) <> "" Then
            Range("Q" & savLR + 1) = Range("C" & Target.Row)
            Range("U" & savLR + 1) = Range("G" & Target.Row)
            Range("Y" & savLR + 1) = Range("I" & Target.Row)
    End If
End If

If Target.Column = 19 Or Target.Column = 23 Then
    If UCase(Range("S" & Target.Row)) = UCase("Vir. Ep. => Ch.") _
       And Range("W" & Target.Row) <> "" Then
            Range("C" & chqLR + 1) = Range("Q" & Target.Row)
            Range("G" & chqLR + 1) = Range("U" & Target.Row)
            Range("K" & chqLR + 1) = Range("W" & Target.Row)
    End If
End If

If Target.Column = 5 Or Target.Column = 9 Then
    If UCase(Range("E" & Target.Row)) = UCase("Vir. Ch. => Céli") _
       And Range("I" & Target.Row) <> "" Then
            Range("AE" & celLR + 1) = Range("C" & Target.Row)
            Range("AI" & celLR + 1) = Range("G" & Target.Row)
            Range("AM" & celLR + 1) = Range("I" & Target.Row)
    End If
End If

If Target.Column = 33 Or Target.Column = 37 Then
    If UCase(Range("AG" & Target.Row)) = UCase("Vir. Céli => Ch.") _
       And Range("AK" & Target.Row) <> "" Then
            Range("C" & chqLR + 1) = Range("AE" & Target.Row)
            Range("G" & chqLR + 1) = Range("AI" & Target.Row)
            Range("K" & chqLR + 1) = Range("AK" & Target.Row)
    End If
End If

If Target.Column = 19 Or Target.Column = 23 Then
    If UCase(Range("S" & Target.Row)) = UCase("Vir. Ep. => Céli") _
       And Range("W" & Target.Row) <> "" Then
            Range("AE" & celLR + 1) = Range("Q" & Target.Row)
            Range("AI" & celLR + 1) = Range("U" & Target.Row)
            Range("AM" & celLR + 1) = Range("W" & Target.Row)
    End If
End If

If Target.Column = 5 Or Target.Column = 9 Then
    If UCase(Range("E" & Target.Row)) = UCase("Visa") _
       And Range("I" & Target.Row) <> "" Then
            Workbook("Visa.xlsx").Worksheets(1).Range("C" & visLR + 1) = Range("C" & Target.Row)
            Workbook("Visa.xlsx").Worksheets(1).Range("G" & visLR + 1) = Range("G" & Target.Row)
            Workbook("Visa.xlsx").Worksheets(1).Range("K" & visLR + 1) = Range("I" & Target.Row)
    End If
End If

If Target.Column = 7 Or Target.Column = 9 Then
    If UCase(Range("G" & Target.Row)) = UCase("Paiement MasterCard") _
       And Range("I" & Target.Row) <> "" Then
            Range("BC" & MCrdLR + 1) = Range("C" & Target.Row)
            Range("BG" & MCrdLR + 1) = Range("G" & Target.Row)
            Range("BK" & MCrdLR + 1) = Range("I" & Target.Row)
    End If
End If


Application.EnableEvents = True
End Sub