Raccourcir le code

bonjour,

est ce que ca serais possible de raccourcir le code que j ai fait

Range("données!A65536").End(xlUp).Offset(1, 0).Value = Range("S7").Value
Range("données!B65536").End(xlUp).Offset(1, 0).Value = Range("T7").Value
Range("données!C65536").End(xlUp).Offset(1, 0).Value = Range("U7").Value

Range("données!A65536").End(xlUp).Offset(1, 0).Value = Range("S8").Value
Range("données!B65536").End(xlUp).Offset(1, 0).Value = Range("T8").Value
Range("données!C65536").End(xlUp).Offset(1, 0).Value = Range("U8").Value

Range("données!A65536").End(xlUp).Offset(1, 0).Value = Range("S9").Value
Range("données!B65536").End(xlUp).Offset(1, 0).Value = Range("T9").Value
Range("données!C65536").End(xlUp).Offset(1, 0).Value = Range("U9").Value

Range("données!A65536").End(xlUp).Offset(1, 0).Value = Range("S10").Value
Range("données!B65536").End(xlUp).Offset(1, 0).Value = Range("T10").Value
Range("données!C65536").End(xlUp).Offset(1, 0).Value = Range("U10").Value

Range("données!A65536").End(xlUp).Offset(1, 0).Value = Range("S11").Value
Range("données!B65536").End(xlUp).Offset(1, 0).Value = Range("T11").Value
Range("données!C65536").End(xlUp).Offset(1, 0).Value = Range("U11").Value

car je dois faire un transfère de ses données de la cellule S7:U30

merci

Bonjour,

Tu peux essayer le code ci-dessous :

Sub test()
Range("S7:U30").Copy Range("données!A65536").End(xlUp).Offset(1, 0)
End Sub

Cordialement.

march nikel merci

Bonjour à Tous,

je reviens sur le même problème, quand je l'ai introduit dans un autre Code qui copie et colle les valeurs de plusieurs feuilles dans le même fichier, j'ai également les formules qui sont copiées, pouvez-vous SVP m'indiquez comment je peux avoir just les valeurs ?

Merci Bcp

Salut Kamal,

La prochaine fois ouvre ton propre fil en faisant référence à cet autre fil sur lequel tu as trouvé un début de réponse.

Essaie :

Sub test()
Range("S7:U30").Copy
Range("données!A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

Amicalement.