> 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
34,99 €Lot de 4 prises connectées Meross (16A, Alexa, Google, IFT) à 34,99 € avec le code KVALO8CD
Valable jusqu'au 15 Avril

Amazon fait une promotion sur le lot de 4 prises électriques connectées Meross qui passe à 34,99 € grâce au code promo KVALO8CD. On le trouve habituellement à 49,99 €. Ces prises 16A peuvent être contrôlées à distance avec l'application Meross dédiée mais également avec Alexa, Google Home et IFTTT. Vous pouvez programmer l'arrêt ou l'allumage des appareils branchés dessus suivant un planning et mesurer leur consommation électrique. 


> Voir l'offre
53,99 €Routeur Mobile TP-Link M7350 (4G LTE, Wifi 2,4GHz ou 5GHz) à 53,99 €
Valable jusqu'au 15 Avril

Amazon fait une vente flash sur routeur Mobile TP-Link M7350 qui passe à 53,99 € livré gratuitement alors qu'on le trouve ailleurs à partir de 80 €.  Intégrant un modem 4G LTE, vous pouvez générer instanément un Hotspot Wi-Fi en insérant une carte SIM liée à un abonnement 4G dans l'appareil. Avec jusqu'à 150Mbps en téléchargement et 50Mbps en téléversement, le M7350 est capable de partager un signal 4G Wifi à près de 15 utilisateurs simultanément. Son format de poche et sa puissante batterie de 2000 mAh le rendent idéal comme compagnon de voyage, permettant aux utilisateurs de jouer ou travailler des heures.


> Voir l'offre
29,99 €Casque sans-fil bluetooth Philips TAH4205BK à 29,99 €
Valable jusqu'au 15 Avril

Cdiscount fait une promotion sur le casque sans-fil bluetooth Philips TAH4205BK qui passe à 29,99 € au lieu d'une quarantaine d'euros habituellement. Ce casque offre des basses puissantes et percutantes et une bonne isolation phonique. Des commandes sur la coque vous permettent de contrôler vos appels, la musique et le volume. Le casque offre une autonomie de 29 h et peut être plié pour prendre moins de place dans le sac. Recharge via USB-C.


> 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