Copier cellules éparpillées sur archive

maggy -  
 maggy -
Bonjour,
merci tout d'abord à la personne qui voudra bien m'aider !
voilà le problème
j'ai une application avec des cellules "éparpillées" que je veux copier sur une feuille archive sous forme de liste (les données étant remise à zéro après chque copie et se copiant sur 2 lignes à la fois).
cellules à copier

sur feuille program
W21,R18,B8,X21 (1ère série)
W24,S18,K8,X24 (2nd série)

la 1ère série doit se copier sur la ligne A6 (colonnes A6 à E6)
le 2nd série doit se copier sur la ligne B6 (colonnes A7 à E7)

les données doivent se copier simultanément et
si possible remettre à zéro les cellules de la 1ère et 2nd série.

voilà ! j'espère être assez claire, sinon n'hésitez pas pour avoir de plus amples infos
j'ai tenter un code mais il semble y avoir un couac !

Dim li As Long
With Sheets("archive1")
li = .Range("a5000").End(xlUp).Offset(1, 0).Row
Range("W21", "R18", "B8", "X21").Copy
.Range("A" & li).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, _
skipblanks:=False, Transpose:=False
End With

quelqu'un peut-il m'aider, merci d'avance

2 réponses

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    bonjour

    une piste à adapter et compléter pour la 2°série 
    Sub archiver() 

With Sheets("program") 
    plage1 = Array(.Range("W1").Value, .Range("B8").Value, .Range("X21").Value, .Range("D4").Value) 
    'plage2=array(..... 
End With 

With Sheets("archive") 
    derlig = Range("A5000").End(xlUp).Row + 1 
    .Range("A" & derlig & ":D" & derlig).Value = plage1 
    '.Range("A" & derlig + 1 & ":D" & derlig + 1).Value = plage2 
End With 
End Sub

    Michel
    0
  2. maggy
     
    OK bonjour et désolée pour le retard dans la réponse, mais j'ai dû m'absenter pour mon boulot;
    merci de la réponse
    j'essaye
    Maggy
    0