Discussion :

[anissa5]

bonjour tt le monde j'ai vraiment besoin de votre aide encor une fois svp

j'ai un Classeur nomé (cals1) qui est sensé me charger les données depuis le (clas2) après insertion de la date et le nom sur la feuil "DÉTAIL" (cals1 ) voila le code vba utilise sur la feuil "DÉTAIL" (cals1 ) je n'arrive plus a résoudre le probable. y a t'il un possibilité d’arranger ça svp

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
Option Explicit
 
Dim fm As Worksheet, tablo, tabloR1(), tabloR2()
 
Dim dico1 As Object, dico2 As Object, dico3 As Object, dico4 As Object
Dim i&, j&, k1&, k2&, dte As Date, client$
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Application.EnableEvents = False
    If Target.Address = "$A$6" Or Target.Address = "$D$6" _
            And (Range("A6") <> "" And Range("D6") <> "") Then
 
        Set dico1 = CreateObject("Scripting.Dictionary")
        Set dico2 = CreateObject("Scripting.Dictionary")
        Set dico3 = CreateObject("Scripting.Dictionary")
        Set dico4 = CreateObject("Scripting.Dictionary")
 
        Set fm = Sheets("Mouvement") = Workbook("clas2.xlsm")
 
 
        tablo = fm.Range(fm.Cells(3, 2), fm.Cells(fm.Range("B" & Rows.Count).End(xlUp).Row, 15))
        k1 = 0: k2 = 0: dte = Range("A6"): client = Range("D6")
        For i = 1 To UBound(tablo, 1)
            If tablo(i, 1) = "Sortie" And tablo(i, 2) = dte And tablo(i, 3) = Range("D6") Then
                If tablo(i, 14) = "Agro" Then
                    If Not dico1.exists(tablo(i, 5)) Then
                        dico1(tablo(i, 5)) = tablo(i, 6)  'quantité
                        dico2(tablo(i, 5)) = tablo(i, 7)
                    Else
                        dico1(tablo(i, 5)) = dico1(tablo(i, 5)) + tablo(i, 6) 'quantité
                    End If
                ElseIf tablo(i, 14) = "Legumes" Then
                    If Not dico3.exists(tablo(i, 5)) Then
                        dico3(tablo(i, 5)) = tablo(i, 6)  'quantité
                        dico4(tablo(i, 5)) = tablo(i, 7)
                    Else
                        dico3(tablo(i, 5)) = dico3(tablo(i, 5)) + tablo(i, 6) 'quantité
                    End If
                End If
            End If
        Next i
    End If
 
    Range("A17:C44,G17:I28").ClearContents
    If Range("A6") = "" Or Range("D6") = "" Then GoTo fin
    On Error GoTo fin
    Range("A17").Resize(dico1.Count, 1) = Application.Transpose(dico1.keys)
    Range("B17").Resize(dico1.Count, 1) = Application.Transpose(dico1.items)
    Range("C17").Resize(dico1.Count, 1) = Application.Transpose(dico2.items)
 
    Range("G17").Resize(dico3.Count, 1) = Application.Transpose(dico3.keys)
    Range("H17").Resize(dico3.Count, 1) = Application.Transpose(dico3.items)
    Range("I17").Resize(dico3.Count, 1) = Application.Transpose(dico4.items)
 
fin:
    Application.EnableEvents = True
End Sub

je pense que le problème viens de cette ligne du code qui es mal formulé:

Code :

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

 Set fm = Sheets("Mouvement") = Workbook("clas2.xlsm")

je vous joins mes des classeur

merci a vous tous