MACRO COPIER/COLLER
bgee2000
Messages postés
90
Date d'inscription
Statut
Membre
Dernière intervention
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
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
--
A voir également:
- MACRO COPIER/COLLER
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Style d'écriture a copier coller - Guide
2 réponses
Bonjour,
tu n'as pas besoin de Select ni de Copy
une seule ligne de code comme ceci:
voilà
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à
Bonjour
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
https://www.excel-pratique.com/fr/vba.php
Bon courage