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
Merci
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
VB:
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