Autres copie de cellule précise

[theovgnl]

Bonjour, j'ai un problème de syntaxe pour la copie de cellule, je voudrais que mes cellules "I3,4,5,6,7,8,9"; "K2,3,4,5,6,7,8,9"; "M2,3,4" de la feuille "SOMMAIRE" se copient a la suite dans les cellules ("C"...."W") de la feuille "CRUAS" grâce au bouton "Ajout materiel" dans la feuille "SOMMAIRE"

 

[sylvanu]

Bonjour Theovgnl,
Un essai en PJ avec un simple transfert de données entre les deux feuilles :

Sub Ajout_Materiel()
    Application.ScreenUpdating = False
    Set f = Sheets("SOMMAIRE")
    With Sheets("CRUAS")
        DL = .Range("D65500").End(xlUp).Row + 1
        .Cells(DL, "D") = f.Range("I4")
        .Cells(DL, "E") = f.Range("I5")
        .Cells(DL, "F") = f.Range("I6")
        .Cells(DL, "M") = f.Range("I7")
        .Cells(DL, "S") = f.Range("I8") ' si date emprunt = D.Sortie ?
        .Cells(DL, "C") = f.Range("I9")
    End With
End Sub

Vérifiez le rangement, en particulier date emprunt que j'ai rangé dans D.Sortie.
Sinon modifiez la colonne des .Cells(DL, "xx")