copier coller abusif

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 :roll:

merci, de votre aide

Code:

---

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

---

yo tanpoco

Il y a plusieurs ActiveWindow.ScrollColumn consécutifs. Ça ressemble à une macro enregistrée puis modifiée.

j'ai supprimé les ActiveWindow.ScrollColumn.

le couper coller se réalise sans que la condition soit respectée:aie:

Code:

---

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

Sub correlation1()     '       If Sheets("correlationindice").Range("b1") = Sheets("Correlation").Range("b1") And (Sheets("correlationindice").Range("b1") <> Sheets("histoCorrélation").Range("D1")) Then       Sheets("histocorrélation").Select Range("D1:BN100").Select Selection.Cut Range("E1").Select ActiveSheet.Paste ActiveWorkbook.Save   Else     End If   End Sub

---

je ne te suis pas. j'ai testé ton code. il suit parfaitement l'instruction. utilise le volet espion.
tu selectionne ta variable

Code:

---

1 2	Sheets("correlationindice").Range("b1")

---

puis tu clique droit

Code:

---

" ajouter un espion"

---

et tu repete l'operation pour les trois.cela te permettra de voir si ce que tu as dans tes cellules correspond réelement. le plus probable est que tu te mélange les formats