Bonjour à tous,
j'ai une macro qui marche très bien pour déplacer une ligne complète sur une autre feuille mias j'ai un souci il me copie pas la ligne au debut du tableau.
Avez vous une astuce.
ci dessous le code
Merci d'avance Loïc
Sub Cheezy()
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Commandes").UsedRange.Rows.Count
J = Worksheets("CDES EXPEDIEES").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("CDES EXPEDIEES").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Commandes").Range("G1:G" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "CDE EXPEDIEE" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("CDES EXPEDIEES").Range("A" & J + 1)
xRg(K).EntireRow.Delete
If CStr(xRg(K).Value) = "CDE EXPEDIEE" Then
K = K - 1
End If
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub
j'ai une macro qui marche très bien pour déplacer une ligne complète sur une autre feuille mias j'ai un souci il me copie pas la ligne au debut du tableau.
Avez vous une astuce.
ci dessous le code
Merci d'avance Loïc
Sub Cheezy()
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Commandes").UsedRange.Rows.Count
J = Worksheets("CDES EXPEDIEES").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("CDES EXPEDIEES").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Commandes").Range("G1:G" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "CDE EXPEDIEE" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("CDES EXPEDIEES").Range("A" & J + 1)
xRg(K).EntireRow.Delete
If CStr(xRg(K).Value) = "CDE EXPEDIEE" Then
K = K - 1
End If
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub