Bonjour,

Pouvez vous m'aider, j'ai une erreur 438 sur ce code, ça bloque à la ligne en rouge:

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
Sub ENGTS_INTERNE_HEBDO_GLOBAL()

Dim NoSemaine, Rs, I As Integer, J As Integer, C As Range, Plage As Range, col
Dim Sh As Worksheet
Dim Ws As Worksheet
Dim DebSem As String
Dim FindSem
Dim FindJour As Range

NoSemaine = Sheets("ACCUEIL").Range("E18")
DebSem = Format(Sheets("ACCUEIL").Range("E20").Value, "dd/mm/yyyy")

'ATL PRO Global

Set Ws = ActiveWorkbook.Sheets("PRO_ENG_QUOTI")
Set Sh = ActiveWorkbook.Sheets("PRO_ENG_HEBDO")

With Ws
        Set FindJour = .Range("C46", "ND86").Find(What:=DebSem, After:=ActiveCell, LookIn:=xlValues, _
             LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
             MatchCase:=False, SearchFormat:=False)
        col = FindJour.Column
End With

        Set Plage = Range(Cells(46, col), Cells(46, col + 6))

With Sh.Rows(45)
Set FindSem = .Find(NoSemaine, , xlValues, xlWhole, xlByColumns)
End With

With Ws
    For Each C In Plage
        
        For J = 47 To 48
        
        'MsgBox Plage.Address
        MsgBox Sh.Cells(J, FindSem.Column).Address
        MsgBox Ws.Cells(J, C.Column).Value

           Sh.Cells(J, FindSem.Columnn) = Sh.Cells(J, FindSem.Columnn) + Ws.Cells(J, C.Column).Value

        Next J
   
    Next C

End With


End Sub