bonjour le forum, voilà le code que j'utilise pour copier cetaines valeurs d'un classeur a un autre
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
Private Sub test()
Dim Sh1 As Worksheet, Sh2 As Worksheet
Dim i As Long, x As Long
Dim Chemin As String
Dim Wb1 As Workbook, Wb2 As Workbook
 
    Set Wb2 = ThisWorkbook
 
    Chemin = ThisWorkbook.Path & "\"
    Workbooks.Open (Chemin & "Rt.xls")
 
    Set Wb1 = Workbooks("Rt.xls")
 
    For Each Sh2 In Wb2.Worksheets
        For Each Sh1 In Wb1.Worksheets
            If Sh1.Name = Sh2.Name Then
 
                With Sh1
 
               LastLig = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
               For i = LastLig To 5 Step -1
                If CDate(Sh1.Cells(i, 3)) = Date Then
                Sh1.Range("d" & i) = Sh2.Range("X12")
                Sh1.Range("e" & i) = Sh2.Range("X10")
                Sh1.Range("h" & i) = Sh2.Range("x13")
                Sh1.Range("i" & i) = Sh2.Range("x11")
                End If
                Next i
 
                End With
 
            End If
        Next Sh1
    Next Sh2
 
End Sub
je veux en fait copier les valeurs sur plusieurs lignes parfois et donc grace à un inputbox dans le quel on entre le nombre de jour pour lequel on copie les memes valeurs exemple: dans l'inputbox on entre 3 la macro cherche donc la date du jour et copie les valeurs pour la date du jour , date + 1 et date + 2 !!! Merci pour votre aide !