> 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
Ecran 32 pouces incurvé Viewsonic VX3218 (FHD, 165 Hz, 1 ms) à 184,99 €
184,99 € 269 € -31% @Cdiscount

Cdiscount fait une belle promotion sur l'écran 32 pouces incurvé Viewsonic VX3218 qui passe à 184,99 € avec le code 15DES149 alors qu'on le trouve ailleurs à partir de 269 €. Cet écran dispose d'une dalle VA Full HD  (1920x1080) à 165 Hz avec un temps de réponse de 1 ms. Il est compatible Adaptive Sync. Au niveau connectique, vous trouverez une entrée DP et deux entrées HDMI. Une très bonne affaire. 


Voir le bon plan
Batterie externe FOSSiBOT F800 512Wh, 800W, LifePOE4 à 266 €
266 € 329 € -19% @Geekbuying

Geekbuying fait une belle promotion sur la station de charge portable FOSSiBOT F800 512Wh qui passe à 266 € avec le code GKB23SS25 au lieu de 329 €.

Cette Power Station offre une capacité de 512Wh avec une batterie LifePOE4 (plus de 3500 cycles) et 8 sorties : 1 AC Format prise Europe 220-240V jusqu'à 800W / 1 allume-cigare 12 V/10 A / 1 sortie 12 V/10 A DC6530 / 3 x USB Type-C (1x100W + 2x20W) pour une charge rapide / 2 x USB A QC3.0-18W.

De quoi alimenter des appareils sans prise de courant à côté. La batterie peut être rechargée par une prise de courant, une prise allume cigare ou des panneaux solaires (adaptateur MC4 vers XT 60 fourni). Vous pouvez coupler 2 sources de charge pour aller plus vite.


Voir le bon plan
PlayStation 5 Standard + EA Sports FC24 à 499,99 €
499,99 € 619,99 € -19% @Amazon

Amazon propose en précommande le pack PlayStation 5 Standard accompagnée du jeu EA Sports FC24 (=Fifa 2024) à 499,99 € au lieu de 619,99 €. Le pack sortira le 29 septembre et vous sera envoyé dans la foulée.


Voir le bon plan
SSD Interne M.2 NVMe PCIe 4.0 Samsung 980 PRO 2 To à 114,99 €
114,99 € 140 € -18% @Amazon

Amazon fait une promotion sur le SSD Interne M.2 NVMe PCIe 4.0 Samsung 980 PRO 2 To qui passe à 114,99 €. On le trouve ailleurs à partir de 140 €. Ce SSD offre des taux de transfert de 7000 Mo /s en lecture et 5100 Mo/s en écriture. Une bonne affaire.


Voir le bon plan
PC portable Lenovo 15.6 pouces LOQ 15IRH8 (WUXGA IPS 144 Hz, Core i5-12450H, 16 Go RAM DDR5, SSD 512 Go, RTX 4060 8 Go, Windows 11) à 999,99 €
999,99 € 1299 € -23% @Fnac

Fnac fait une promotion sur l'ordinateur portable Lenovo LOQ 15IRH8 qui passe à 999,99 € alors qu'on le trouve habituellement à 1499 €. Cet ordinateur portable dispose d'un écran 15.6 pouces Full HD IPS (1920x1080) 144 Hz, d'un processeur Intel Core i5-12450H, de 16 Go de RAM DDR5, d'un SSD NVMe de 512 Go, d'une carte graphique GeForce RTX 4060 8 Go, d'une webcam et de connexions Bluetooth, WiFi 6, Ethernet, HDMI, USB C et USB 3.2. Le tout tourne sous Windows 11.

Une machine de dernière génération adaptée à tous les usages (étudiant, entreprise, bureautique, multimédia, Internet et jeux). 


Voir le bon plan
Carte mémoire Samsung 256 Go MicroSDXC Evo Select U3 (130 Mo/s) à 19,49 €
19,49 € 32 € -39% @Amazon

Amazon fait une promotion sur la carte mémoire Samsung 256 Go MicroSDXC Evo Select U3 qui passe à 19,49 €.  Une très bonne affaire pour cette carte que l'on trouve ailleurs à partir de 32 € et qui offre des vitesses de 130 Mo/s en lecture et 110 Mo/s en écriture.  Elle est idéale pour les téléphones, caméras et appareils photo 4K. Elle est étanche, anti-choc et résiste aux rayons X et aux champs magnétiques. Elle est garantie 10 ans.


Voir le bon plan

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