Problème avec un code :(

[Sogood]

Bonjour,
j'ai un problème avec un code qui me répond toujours par : Erreur d'exécution 1004, Erreur définie par l'application ou par l'objet

Je n’arrive pas à mettre la main sur le hic 🙁
le code est le suivant :


Sub Plan_NHO()

Dim i As Integer

If Not IsEmpty(Sheets("Planning NHO").Range(i, "V")) Then
For i = 4 To 1000
Sheets("Planning NHO").Range(i, "V").Select
Selection.Cut Destination:=Sheets("Planning NHO").Range(i, "Z")
Sheets("Planning NHO").Range(i, "J").Select
Selection.Cut Destination:=Sheets("Planning NHO").Range(i, "V")
Sheets("Planning NHO").Range(i, "Z").Select
Selection.Cut Destination:=Sheets("Planning NHO").Range(i, "J")
Next
End If
...
end sub


merci d'avance
Saw

 

[CBernardT]

Re : Problème avec un code 🙁

Bonjour Sogood,


Si j'ai bien compris, essaye cette syntaxe :


Sub Plan_NHO()
Dim i As Integer
For i = 4 To 1000
If Not IsEmpty(Sheets("Planning NHO").Range("V" & i)) Then
Sheets("Planning NHO").Range("V" & i).Cut Destination:=Sheets("Planning NHO").Range("Z" & i)
Sheets("Planning NHO").Range("J" & i).Cut Destination:=Sheets("Planning NHO").Range("V" & i)
Sheets("Planning NHO").Range("Z" & i).Cut Destination:=Sheets("Planning NHO").Range("J" & i)
End If
Next
End Sub

 

[Sogood]

Re : Problème avec un code 🙁

Salut Bernard
Merci pour ton aide, ton code marche du tonnerre 😉

J'ai également 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.

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

 

[CBernardT]

Re : Problème avec un code 🙁

Re,

A priori, aucune erreur dans ce code.

Y-a-t-il des valeurs dans les cellules sources ?

 

[Sogood]

Re : Problème avec un code 🙁

re,
J'ai pu trouver la faille, j'ai enlevé la variable j et je l'ai remplacée par i-2

Merci qd mm

 

[Sogood]

Re : Problème avec un code 🙁

Salut Bernard

J'ai un code qui me pose problème depuis quelques heures, je n'arrive pas à trouver le hic.

Merci d'avance
Saw

MON CODE :

Sub tabcroidyn()
Dim i As Integer

For i = 7 To 25
If Sheets("Tableaux Croisés Dynamiques").Range("A" & i) <> "Total général" Then
Sheets("Tableaux Croisés Dynamiques").Range("A" & i & ":K" & i).Cut Destination:=Sheets("Production Hébdomadaire").Range("B" & i - 4 & ":L" & i - 4)

End If
Next
End Sub

 

[CBernardT]

Re : Problème avec un code 🙁

Bonsoir sogoo,

La macro est réaliser pour un report simple des valeurs, non pour un Couper/Coller.

 

[Sogood]

Re : Problème avec un code 🙁

salut Bernard

mercii

Saw