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