Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
767 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA copier coller pusieurs feuilles

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VBA copier coller pusieurs feuilles

n°1311503
BeBo*
Posté le 22-02-2006 à 14:42:25  profilanswer
 

salut,  
 
J'aimerais copier une plage de la feuille1 d'excel et les recopier vers Toutes les autre feuilles....
 
j'ai tenté ceci mais comme je suis nul il doit y avoir un erreur enorme !! :pt1cable:  

Code :
  1. Private Sub CommandButton2_Click()
  2. Sheets("feuil1" ).Cells("A1", ["H13"]).Select
  3. Selection.Copy
  4. Dim Ws As Worksheet
  5. For Each Ws In ActiveWorkbook.Sheets
  6. Paste
  7. Next Ws
  8. End Sub


 
 :bounce:  :hello:  :bounce:

mood
Publicité
Posté le 22-02-2006 à 14:42:25  profilanswer
 

n°1312032
tegu
Posté le 23-02-2006 à 10:57:11  profilanswer
 

Quel est le problème, l'erreur, le non fonctionnement de ta procédure ?
« il doit y avoir un erreur enorme » n'est pas une description de problème, donc merci de préciser en quoi ton code ne fonctionne pas.

n°1312065
BeBo*
Posté le 23-02-2006 à 11:35:20  profilanswer
 

pardon...je précise
 
Ma procédure ne fonctionne pas, elle n'efface pas la plage dans toutes les feuilles mais ne le fait que dans l'active !
comment le faire dans toutes les feuilles ?

n°1312099
watashi
La démotivation : JAMAIS !
Posté le 23-02-2006 à 12:06:21  profilanswer
 

Sault Bebo*
Tu n'as pas précisé ou il fallait copier
si tu modifie le paste en :

Code :
  1. ws.range("A1" ).select
  2. Activesheet.paste

ça devrait aller mieux
Par ailleurs je m'interroge sur ton :
cells("A1",["H13"])
ca te fait quoi ?
@+
 
Edit : autre question tu veux coller les valeurs comme ta macro l'indique ou vider les cellules ?


Message édité par watashi le 23-02-2006 à 12:10:05

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
n°1312340
BeBo*
Posté le 23-02-2006 à 15:13:45  profilanswer
 

J'aimerais copier le range A1: A13 de la feuille1 à toutes les autres feuilles..en fait !

n°1312392
watashi
La démotivation : JAMAIS !
Posté le 23-02-2006 à 16:04:53  profilanswer
 

Ben alors si tu modifies dans ton code ta sélection pour le copie en :

Code :
  1. Sheets("Feuil1" ).Range("A1:A13" ).select


et que tu modifies ensuite ton paste comme je te l'avais indiqué ça devrait marcher non?


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA copier coller pusieurs feuilles

 

Sujets relatifs
VBA - Probleme Appel de fonction[ACCESS - VBA] - Remplir une table avec un formulaire VBA
[VBA] pb graphique avec des variablesCopier des repertoires et fichiers sur un reseau
[Excel][VBA][ODBC] Connexion SQL Serverexporter des tables Access en VBA
VBA : Fonction Dir et attributs.Utiliser un autre compte mail que celui par défaut avec VBA sous Excel
Apprendre VBA access sans JAMAIS avoir fait de prog?[VBA Access] mise a jour
Plus de sujets relatifs à : VBA copier coller pusieurs feuilles


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR