XL 2016 Décaler groupe cellule (boucle)

[Nicos]

Bonjour à tous,

je plante sur un petit bout de code, je cherche à décaler des valeurs de N-1 à N-2 et ainsi de suite,
pour pouvoir y inserrer les nouvelles, j'ai fait ce code si dessous mais non
je joint egalement un apercu pour mieux comprendre

Sub cloture_TEST()
Dim i As Integer, j As Integer
Dim derlign_ca As Long

For i = 2 To 13
    For j = 2 To 31
        If Sheets("Archive_CA").Cells(i, j) <> "" Then
            Sheets("Archive_CA").Cells(i, j + 1) = Sheets("Archive_CA").Cells(i, j)
            'Sheets("Archive_CA").Cells(i, j) = ""
        End If
    Next
Next
End Sub

Merci

 

[M12]

Bonjour,
Teste ceci

Sub cloture_TEST()
Dim i As Integer, j As Integer
Dim Dc%
Dim Ws As Worksheet

Set Ws = Sheets("Archive_CA")
For i = 2 To 13
    For j = 2 To 31
        If Ws.Cells(i, j) <> "" Then
            Dc = Ws.Cells(i, Columns.Count).End(xlToLeft).Column
            Ws.Range(Cells(i, 2), Cells(i, Dc)).Copy Ws.Cells(i, 3)
            Ws.Cells(i, 2) = ""
            Exit For
        End If
    Next
Next
End Sub

 

[Nicos]

Parfait, merci beaucoup

 

[Nicos]

re,
juste une chose,
il faut absolument que je soit sur la page en question sinon j'ai l'erreur "la méthode range de l'objet worksheet à échoué"
j'ai donc rajouté "with" "end with" mais sans effet

Sub cloture_TEST()
Dim i As Integer, j As Integer, Dc As Integer
Set Ws9 = Sheets("CA")
Set Ws10 = Sheets("Archive_CA")

With Ws10
For i = 2 To 13
    For j = 2 To 31
        If Ws10.Cells(i, j) <> "" Then
            Dc = Ws10.Cells(i, Columns.Count).End(xlToLeft).Column
            Ws10.Range(Cells(i, 2), Cells(i, Dc)).Copy Ws10.Cells(i, 3) 'ligne erreur'
            Ws10.Cells(i, 2) = Ws9.Cells(i, 3)
            Exit For
        End If
    Next
Next
End With

For i = 2 To 13
    Ws9.Cells(i, 4) = Ws9.Cells(i, 3): Ws9.Cells(i, 3) = ""
    Ws9.Cells(i, 8) = Ws9.Cells(i, 7): Ws9.Cells(i, 7) = ""
Next

Set Ws9 = Nothing
Set Ws10 = Nothing
End Sub

 

[M12]

Re,
Ajoute après ton End With
ws9.activate

 

[Nicos]

oui c'est ce que j'avais penssé à faire, le mettre en début de procédure le Ws10