> Tous les forums > Forum Bureautique
 copier des cellules avec une macro excel 2007Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
VINC391
  Posté le 19/04/2012 @ 04:22 
Aller en bas de la page 
Petit astucien

bonjour à tous Astuciennes et Astuciens

je souhaite copier différentes cellules ( cellules non adjacentes)de ma feuille 1. Par exemple cellule A1, B5, C8, et D2 et les coller sur ma feuille 2 en A2, B2, C2 et D2

Pour l'instant aucun soucis ma macro fonctionne

Par contre quand j'active à nouveau ma macro je souhaite copier les mêmes cellules de ma feuille 1 sur les mêmes colonnes de ma feuille 2 mais une ligne en dessous, c'est à dire A3, B3, C3et D3
et ainsi de suite à chaque fois que j'active ma macro copier une ligne en dessous.

Je suis sur Excel 2007

merci à vous de prendre le temps de me répondre

Vinc391

Publicité
galopin01
 Posté le 19/04/2012 à 08:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Cette macro copie les données de la feuille source vers la première ligne vide de la feuille cible :

Sub Ajout()
Dim i&
Dim WsS As Worksheet 'feuille source
Dim WsC As Worksheet 'feuille cible
Set WsS = Worksheets("Feuil1")
Set WsC = Worksheets("Feuil2")
With WsC i =
.Range("A" & .Columns(1).Cells.Count).End(3).Row
.Cells(i + 1, 1) = WsS.Range("A2")
.Cells(i + 1, 2) = WsS.Range("B6")
.Cells(i + 1, 3) = WsS.Range("C9")
.Cells(i + 1, 4) = WsS.Range("D3")
'et ainsi de suite...
End With
End Sub



Modifié par galopin01 le 19/04/2012 09:32
philou_10120
 Posté le 19/04/2012 à 10:33 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
philou_10120
 Posté le 19/04/2012 à 10:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

La macro

Sub COPIER_DONNEES()
'
' COPIER_DONNEES Macro
'

'
Sheets("FEUIL1").Select
Range("A1").Select
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Sheets("Feuil1").Select
Range("B5").Select
Selection.Copy
Sheets("Feuil2").Select
Range("B1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Sheets("Feuil1").Select
Range("C8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("C1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Sheets("Feuil1").Select
Range("D2").Select
Selection.Copy
Sheets("Feuil2").Select
Range("D1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Sheets("FEUIL1").Select

End Sub

VINC391
 Posté le 19/04/2012 à 12:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci Galopin01 et Philou-10120

c'est exactement ce que je voulais.

Je suis toujours épaté par le forum PC Astuces de l'entraide des astuciennes et astuciens.

Je mets le post comme résolu

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
116,65 €SSD Corsair Force MP600 1 To (NMVe M.2 Gen4, 4950/4250 Mo/s) à 116,65 €
Valable jusqu'au 20 Mai

Amazon fait une promotion sur le SSD Corsair Force MP600 1 To (NMVe M.2 Gen4) qui passe à 116,65 € alors qu'on le trouve ailleurs à partir de 140 €. Ce SSD utilise une interface M.2 NVMe PCIe Gen4 x 4 pour une connexion simple et des performances exceptionnelles : jusqu’à 4950 Mo/s en lecture séquentielle et jusqu’à 4250 Mo/s en écriture séquentielle.

Le SSD est doté de la technologie 3D TLC NAND haute densité offrant une endurance d’écriture durable et assorti d’une garantie de 5 ans. Il est accompagné d'un dissipateur thermique.


> Voir l'offre
199,00 €Ecran PC 24.5 pouces BenQ EX2510S (FHD, IPS, FreeSync,165Hz, 2xHP, réglable en hauteur) à 199 €
Valable jusqu'au 20 Mai

Amazon fait une belle promotion sur l'écran PC BenQ MOBIUZ EX2510S qui passe 199,99 € livré gratuitement alors qu'on le trouve ailleurs à partir de 249 €. Il possède une dalle de 24.5 pouces Full HD IPS et offre une fréquence de rafraichissement de 165 Hz et un temps de réponse de 1 ms. Il intègre 2 HP (2.5W) et une connectivité HDMI et DP. Il est réglable en hauteur.


> Voir l'offre
GratuitJeu PC Prey gratuit
Valable jusqu'au 22 Mai

Epic Game Store offre actuellement le jeu PC Prey développé par les français d'Arkane Studios. Dans Prey, vous vous réveillez au cours de l'année 2032, à bord de Talos I, une station spatiale en orbite autour de la Lune. Vous êtes le sujet clé d'une expérience censée altérer l'humanité à jamais, mais la situation s'est transformée en cauchemar. Audio en français. Pegi 16.


> Voir l'offre

Sujets relatifs
(Macro) Copier onglet sur autre fichier Excel (2007)
probleme avec macro sur excel 2007
Copier / Coller avec Excel 2007
Excel 2007 Copier/Coller d’une feuille à l’autre Dans un même classeur.
besoin d'une macro excel 2007
EXCEL 2007 : les textes des cellules sont surlignés
[Excel 2007] Macro : Sélection d'un tableau selon sa longueur variable
excel 2007 macro mise en page, quadrillage, filtre
Excel 2007 macro rajouter tri + cellule en surbrillance à chaque changement
Excel 2007 extraction feuille 1 dans feuille 2 avec mise en forme
Plus de sujets relatifs à copier des cellules avec une macro excel 2007
 > Tous les forums > Forum Bureautique