Copier cellules éparpillées sur archive
maggy
-
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
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
A voir également:
- Copier cellules éparpillées sur archive
- Comment copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Excel additionner plusieurs cellules - Guide
- Archive story instagram - Guide
- Verrouiller cellules excel - Guide
2 réponses
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
