déplacement de données

[massi]

Bonjour

aidez moi svp.

comment pouvoir déplacer des données dune plage (a1:a10) vers une autre plage qui, celle-ci "Plage cible" se remplie au fur et à mesure.

merci pour votre aide.

 

[@+Thierry]

Bonsoir Massi, le Forum

Pas vraiment sûr de ne pas être en dehors du sujet mais si tu veux déplacer une Range de "A1:A10" vers la colonne "D" et qu'à chaque action sur la procédure un bloc de 10 cellules ("A1:A10") soit exporté en colonne "D" en s'incrémentant vers le bas, ce code devrait faire l'affaire :

Option Explicit

Sub Massi()
Dim PlageSource As Variant
Dim PlageCible As Range
Dim L As Integer

PlageSource = Range("A1:A10")

L = Range("D65536").End(xlUp).Row + 1
If L = 2 Then L = 1 'pour la première fois

Set PlageCible = Range("D" & L & "" & L + 9)

PlageCible = PlageSource

End Sub


Bonne Soirée
@+Thierry