MACRO COPIER/COLLER
Bonjour à tous,
voilà j'ai tester une marco trouvé sur le net pour copier coller automatiquement une cellule vers un une cellule donné au format "value" mais ça morche po...
La voici:
Sheets("feuille1").Activate
Range("A1").Select
Selection.Copy
Sheets("Feuil2").Activate
Range("A1").Selection
ActiveSheet.Paste
Déjà ma feuille s'appel "FEUIL1" et non feuille1. Ce que j'ai déjà corrigé sans succès. AUssi il me faudrait plutôt une selection de plusieurs cellule qui se suivent du genre A1:A10
Bref...merci pour votre aide.
Bruno
--
voilà j'ai tester une marco trouvé sur le net pour copier coller automatiquement une cellule vers un une cellule donné au format "value" mais ça morche po...
La voici:
Sheets("feuille1").Activate
Range("A1").Select
Selection.Copy
Sheets("Feuil2").Activate
Range("A1").Selection
ActiveSheet.Paste
Déjà ma feuille s'appel "FEUIL1" et non feuille1. Ce que j'ai déjà corrigé sans succès. AUssi il me faudrait plutôt une selection de plusieurs cellule qui se suivent du genre A1:A10
Bref...merci pour votre aide.
Bruno
--
2 réponses
-
ContributeurBonjour
Option Explicit
'--------------
Sub copier_valeurs()
Dim tampon
tampon = Sheets("Feuil1").Range("A1:A10")
With Sheets("feuil2")
.Range("A1:A10") = tampon
.Activate
End With
End Sub
-
ContributeurBonjour,
tu n'as pas besoin de Select ni de Copy
une seule ligne de code comme ceci:
Sheets("Feuil2").Range("A1:A12").Value = Sheets("Feuil1").Range("A1:A12").Value
voilà
