> 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 poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


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