Erreur macro couper coller

[Sogood]

Salut la Team,

J'ai ce code qui me pose un problème, c'est du couper coller, mais quand je lance la macro rien ne se produit, ni changement sur ma feuille ni de message d'erreur.
Help meeeeeeeeeeeeee 😉

Merci d'avance
Saw

Mon code est le suivant :

Sub CopierColler()
Dim j As Integer
Dim i As Integer

For j = 2 To 998
For i = 4 To 1000

Sheets("Planning NHO").Range("C" & i).Cut Destination:=Sheets("Agrégat").Range("B" & j)
Sheets("Planning NHO").Range("D" & i).Cut Destination:=Sheets("Agrégat").Range("C" & j)
Sheets("Planning NHO").Range("E" & i).Cut Destination:=Sheets("Agrégat").Range("D" & j)
Sheets("Planning NHO").Range("F" & i).Cut Destination:=Sheets("Agrégat").Range("E" & j)
Sheets("Planning NHO").Range("G" & i).Cut Destination:=Sheets("Agrégat").Range("F" & j)
Sheets("Planning NHO").Range("H" & i).Cut Destination:=Sheets("Agrégat").Range("G" & j)
Sheets("Planning NHO").Range("I" & i).Cut Destination:=Sheets("Agrégat").Range("H" & j)
Sheets("Planning NHO").Range("J" & i).Cut Destination:=Sheets("Agrégat").Range("I" & j)
Sheets("Planning NHO").Range("M" & i).Cut Destination:=Sheets("Agrégat").Range("L" & j)
Sheets("Planning NHO").Range("N" & i).Cut Destination:=Sheets("Agrégat").Range("M" & j)
Sheets("Planning NHO").Range("O" & i).Cut Destination:=Sheets("Agrégat").Range("N" & j)
Sheets("Planning NHO").Range("P" & i).Cut Destination:=Sheets("Agrégat").Range("O" & j)
Sheets("Planning NHO").Range("Q" & i).Cut Destination:=Sheets("Agrégat").Range("P" & j)
Sheets("Planning NHO").Range("R" & i).Cut Destination:=Sheets("Agrégat").Range("Q" & j)
Sheets("Planning NHO").Range("S" & i).Cut Destination:=Sheets("Agrégat").Range("R" & j)
Sheets("Planning NHO").Range("T" & i).Cut Destination:=Sheets("Agrégat").Range("S" & j)
Sheets("Planning NHO").Range("U" & i).Cut Destination:=Sheets("Agrégat").Range("T" & j)
Sheets("Planning NHO").Range("V" & i).Cut Destination:=Sheets("Agrégat").Range("U" & j)

Next
Next
End Sub

 

[herve62]

Re : Erreur macro couper coller

Bonjour
Tes boucles sont mauvaises
Supprime la boucle FOR J= ........... Next

et modifie comme cela
Sheets("Planning NHO").Range("C" & i).Cut Destination:=Sheets("Agrégat").Range("B" & i-2) ( au lieu de "B" & j)

t'as pas besoin de Destination non plus c'est un argument de CUT mais les 2 fonctionnent :

Sheets("Planning NHO").Range("C" & i).Cut (Sheets("Agrégat").Range("B" & i-2))

 

[Sogood]

Re : Erreur macro couper coller

Merci VR!!!
Ça fonctionne 🙂