Macro décallage cellule vers la droite sur une ligne

arnaudbu

XLDnaute Occasionnel
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 :)

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
 

Discussions similaires

Statistiques des forums

Discussions
312 932
Messages
2 093 726
Membres
105 798
dernier inscrit
Sly67