Bonjour,
j'essaie vainement d'insérer une plage de cellules
le test fonctionne mais la macro sort une erreur 1004 au moment de la définition du range colonne k à gauche duquel j'essaie d'insérer une plage (manipulation équivalente au ctrl+shift+"+")
mes connaissances de base à ce sujet sont minces
pourquoi cela ne marche-t-il pas ? : s
(copie d'une plage de la feuille 5 à la feuille 6 puis insertion plage si le test sur la valeur de l'intitulé de la plage collée a échoué)
For i = 2 To a
ThisWorkbook.Sheets("Step_5").range("A" & Sheets("indices").Cells(i, 4).Value + 1 & ":" & "AC" & Sheets("indices").Cells(i, 5).Value - 1).Copy
j = Sheets("Step_6").range("A1000000").End(xlUp).Row
ThisWorkbook.Sheets("Step_6").Cells(j + 1, 1).Select
ActiveSheet.Paste
For k = 1 To 9
If ThisWorkbook.Sheets("Step_6").Cells(j + 1, k).Value <> Sheets("Step_6").Cells(1, k).Value And ThisWorkbook.Sheets("Step_6").Cells(j + 1, k).Value = Sheets("Step_6").Cells(1, k + 1).Value Then
Dim z As Integer
z = Application.range("A1000000").End(xlUp).Row
Dim rng As range
rng = Sheets("Step_6").range(Cells(j + 1, k), Cells(z, k))
rng.Select
Selection.Insert Shift:=xlToRight
End If
Next k
Next i
Partager