VBA Copier coller d'1 feuille à 1 autre
Fermé
Scally15
Messages postés
1
Date d'inscription
vendredi 16 septembre 2011
Statut
Membre
Dernière intervention
16 septembre 2011
-
16 sept. 2011 à 11:53
ccm81 Messages postés 10893 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 29 septembre 2024 - 18 sept. 2011 à 16:59
ccm81 Messages postés 10893 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 29 septembre 2024 - 18 sept. 2011 à 16:59
A voir également:
- VBA Copier coller d'1 feuille à 1 autre
- Copier coller pdf - Guide
- Copier une vidéo youtube - Guide
- Style d'écriture a copier coller - Guide
- Symbole clavier copier coller - Guide
- Historique copier-coller android - Guide
4 réponses
ccm81
Messages postés
10893
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
29 septembre 2024
2 421
Modifié par ccm81 le 18/09/2011 à 07:32
Modifié par ccm81 le 18/09/2011 à 07:32
bonjour
essaies ceci
bonne suite
essaies ceci
Sheets(2).Range("A1:I47").Copy Sheets(1).Range("A49")
bonne suite
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
Modifié par lermite222 le 18/09/2011 à 14:05
Modifié par lermite222 le 18/09/2011 à 14:05
Bonjour,
L'exposer de ta question manque, pour le moins, de clarté !
1°) Tes CheckBox, il viennent de la barre d'outils "Boite à outils Contrôle" ou de la barre d'outils Formulaire ?
Chacun à un mode de fonctionnement totalement différent.
Ensuite..
d'une feuille qui se trouve dans le classeur (Feuil 2,3,4....) se retrouve en dessous de la feuille ayant les cases (Feuil1).
Et...
Tu veux copier quoi et où.. de la feuille X vers où de la feuille Y ?
Explique un peu mieux si tu veux être aidée valablement.
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
L'exposer de ta question manque, pour le moins, de clarté !
1°) Tes CheckBox, il viennent de la barre d'outils "Boite à outils Contrôle" ou de la barre d'outils Formulaire ?
Chacun à un mode de fonctionnement totalement différent.
Ensuite..
d'une feuille qui se trouve dans le classeur (Feuil 2,3,4....) se retrouve en dessous de la feuille ayant les cases (Feuil1).
Et...
Tu veux copier quoi et où.. de la feuille X vers où de la feuille Y ?
Explique un peu mieux si tu veux être aidée valablement.
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
ccm81
Messages postés
10893
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
29 septembre 2024
2 421
18 sept. 2011 à 16:59
18 sept. 2011 à 16:59
re
- as tu essayé la proposition du post 3?
- pour tes cases à cocher tu devrais utiliser des contrôles activeX (affichage/Boite à outils contrôles) nettement plus simples à mettre en oeuvre
dans ton cas on aurait par exemple une recopie lorsque la Checkbox1 est cochée
- comme dit lermitte plus haut, il est difficile pour nous de voir exactement le pb
- tu devrais joindre ton fichier (ou une partie sans données confidentielles au format excel 2003) en utilisant cjoint.com et en mettant le lien obtenu dans ton prochain post
bonne suite
- as tu essayé la proposition du post 3?
- pour tes cases à cocher tu devrais utiliser des contrôles activeX (affichage/Boite à outils contrôles) nettement plus simples à mettre en oeuvre
dans ton cas on aurait par exemple une recopie lorsque la Checkbox1 est cochée
Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Sheets(2).Range("A1:I47").Copy Sheets(1).Range("A49") End If End Sub
- comme dit lermitte plus haut, il est difficile pour nous de voir exactement le pb
- tu devrais joindre ton fichier (ou une partie sans données confidentielles au format excel 2003) en utilisant cjoint.com et en mettant le lien obtenu dans ton prochain post
bonne suite
Heremion
Messages postés
538
Date d'inscription
vendredi 20 mai 2011
Statut
Membre
Dernière intervention
1 juin 2022
102
16 sept. 2011 à 12:06
16 sept. 2011 à 12:06
Bonjour Scally,
Tu peux faire ainsi:
Worksheets(1).Range("A1:XFD65536").Copy
Worksheets(2).Activate
Worksheets(2).Range("A1").Select
Worksheets(2).Paste
ou un truc du genre?
Tu peux faire ainsi:
Worksheets(1).Range("A1:XFD65536").Copy
Worksheets(2).Activate
Worksheets(2).Range("A1").Select
Worksheets(2).Paste
ou un truc du genre?
Bonjour Heremion,
Merci pour ton aide.
J'ai essayé ca et ca ne marche tj pas :
Sub Structure12_Caseàcocher1_Cliquer()
Worksheets(2).Range("A1:I47").Copy
Worksheets(2).Activate
Worksheets(1).Range("A49:I95").Select
Worksheets(1).Paste
End Sub
La copie fontionne mais le worksheets 1 range non...
As tu une idee?
Merci pour ton aide.
J'ai essayé ca et ca ne marche tj pas :
Sub Structure12_Caseàcocher1_Cliquer()
Worksheets(2).Range("A1:I47").Copy
Worksheets(2).Activate
Worksheets(1).Range("A49:I95").Select
Worksheets(1).Paste
End Sub
La copie fontionne mais le worksheets 1 range non...
As tu une idee?
Heremion
Messages postés
538
Date d'inscription
vendredi 20 mai 2011
Statut
Membre
Dernière intervention
1 juin 2022
102
18 sept. 2011 à 14:50
18 sept. 2011 à 14:50
Dans la feuille où tu vas copier les données, inutile de mentionner toute la plage, tu mets juste la cellule de départ.