Bonjour,
Désolé de ne pas mettre mon fichier mais celui contient des données sensibles. L'épuration pour le mettre sur le forum me donnerait beaucoup de travail.
J'ai une macro qui me copie colle des lignes d'un onglet à un autre. Jusque ici tout va bien.
Une fois la ligne copiée, j'aimerais décaler les cellules d'une cellule vers la droite à partir de la 6ème cellule afin d'y inscrire la date du jour.
Mon code actuel est celui-ci. Quand j'essaye de faire la modification de code, cela me décalle les cellules de la ligne au-dessus de celle qui vient d'être copiée. Je vous joint le code original dans modifications.
Merci les codeurs
Désolé de ne pas mettre mon fichier mais celui contient des données sensibles. L'épuration pour le mettre sur le forum me donnerait beaucoup de travail.
J'ai une macro qui me copie colle des lignes d'un onglet à un autre. Jusque ici tout va bien.
Une fois la ligne copiée, j'aimerais décaler les cellules d'une cellule vers la droite à partir de la 6ème cellule afin d'y inscrire la date du jour.
Mon code actuel est celui-ci. Quand j'essaye de faire la modification de code, cela me décalle les cellules de la ligne au-dessus de celle qui vient d'être copiée. Je vous joint le code original dans modifications.
Merci les codeurs
Code:
Sub Copie()
On Error Resume Next
Application.ScreenUpdating = False
Dim rs As Range, rd As Range
Dim t() As Variant, i As Integer
t = Array(11, 12, 13, 14, 16, 17, 18, 19, 20, 22, 23, 24, 26, 28, 29, 31, 32)
With Sheets("Liste")
For i = LBound(t) To UBound(t)
Set rd = Sheets("Suivi").Range("A65536").End(xlUp).Offset(1, 0)
Set rs = .Range("I" & t(i)).Resize(1, 7)
If .Range("I" & t(i)).Value >= "1" Then
rs.Copy
rd.PasteSpecial xlValues
rd.PasteSpecial xlFormats
End If
Next i
End With
End Sub