bonjour,

petit souci sur un copier coller. j'essaye de faire un code qui sous 3 conditions de date dans 3 onglets réalise ou non une couper /coller.

quelques soient les 3 dates considérées, le code ci-dessous effectuer le copier coler
. No compredro

merci, de votre aide

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
 
 Sub correlation1()
 
 
If (Sheets("correlationindice").Range("b1") = Sheets("Correlation").Range("b1")) <> Sheets("histoCorrélation").Range("D1") Then
 
 
 
Sheets("histocorrélation").Select
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    Range("D1:BN100").Select
    Selection.Cut
    Range("E1").Select
    ActiveSheet.Paste
    ActiveWorkbook.Save
End If
 
End Sub