A voir également:
- Copier cellules éparpillées sur archive
- Copier une vidéo youtube - Guide
- Excel additionner des cellules - Guide
- Super copier - Télécharger - Gestion de fichiers
- Verrouiller cellules excel - Guide
- Copier texte pdf - Guide
2 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié par michel_m le 21/10/2010 à 18:46
Modifié par michel_m le 21/10/2010 à 18:46
bonjour
une piste à adapter et compléter pour la 2°série
Michel
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