Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copie plage de données d'un classeur à un autre

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion empires
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

empires

XLDnaute Nouveau
Bonjour à la communauté

Je voudrais automatiser par des macros la copie de plage de cellules du classeur stats_global1 vers le classeur statana dans l'onglet stats_1.

J'ai créé une macro dans le classeur stats_global1 ( Transfert vers statana) mais elle fonctionne à moitié :
elle copie que le nom des villes et le mois .

Habituellement j'alimente le classeur en mode manuel :

copie des données de stats_1 du classseur stats_global à partir de la colonne E ( code) du classeur statana
saisie manuelle dans la colonne A ( site) du nom de la ville
saisie manuelle dans la colonne B ( Année) de l'année
saisie manuelle dans la colonne C ( Mois) du mois

Ces 3 saisies manuelles , je les fais sur 2 lignes ensuite je tire ces 2 lignes jusqu'à la dernière ligne ou s'est arrêté la copie des données des stats_1 du classeur stats_global.
Et enfin je tire sur la colonne E ( Automate ) pour que ma formule RechercheV s'actualise

En pièce jointe mes classeurs
 

Pièces jointes

Trier par date Trier par votes
Re : copie plage de données d'un classeur à un autre

Bonjour Empires,

Tu peux nous faire cela au ralenti.
Car ton code n'est vraiment pas adapté en effet .
Pour mieux comprendre pourrais-tu mettre en mode enregistrement.

faire la manip , y compris le renseignement manuel ,arrêter l'enregistrement , et me renvoyer le fichier contenant la macro enregistré

ensuite , il ne restera plus qu'a supprimer, paramétrer et fiabiliser le résultat .
 
Vote positif 0 Vote négatif
Re : copie plage de données d'un classeur à un autre

Bonjour camarchepas

Ok

1éme étape
Ouverture de statana

Sub Transfert()

Windows("statana.xlsx").Activate
Range("A1").End(xlDown).Offset(1).Select
ActiveCell = "Ville1"
ActiveCell.Offset(0, 1).Select
ActiveCell = "2014"
Range("A1").End(xlDown).Offset(1).Select
ActiveCell = "Ville1"
ActiveCell.Offset(0, 1).Select
ActiveCell = "2014"
ActiveCell.Offset(-1, 0).Select
ActiveCell.Offset(0, 1).Select
ActiveCell = "juillet"
ActiveCell.Offset(1, 0).Select
ActiveCell = "juillet"
ActiveCell.Offset(-1, 0).Select
ActiveCell.Offset(0, 1).Select
' saisie de la ville , du mois et de l'année sur 2 lignes ( colonne A à C )

2eme étape
selection du classeur stats_global et selection des cellules de l'onglet 1 et copie dans le classeur statana à la colonne E

Windows("stats_global1.xlsm").Activate
Sheets("stats_1").Select
Range("A1").End(xlDown).Offset(1).Select
copy = Columns("A:C").Cells.SpecialCells(xlCellTypeConstants, 23).Select
selection.copy
Windows("statana.xlsx").Activate
Range("A1").End(xlDown).Offset(1).Select
ActiveCell.Offset(-2, 4).Select
ActiveSheet.Paste
' cette étape ne fonctionne pas !!!!

Voilà , une fois cela réglé j'exposerais la suite , car sinon je vais être brouillon dans mes explications

merci de ton aide
 
Dernière édition:
Vote positif 0 Vote négatif
Re : copie plage de données d'un classeur à un autre

Oui,

Mais ça j'avais déjà vu ,

Sais-tu enregistrer une macro dans le menu developpeur : Enregistrer une macro .

Car ce que tu m'envoyes , c'est déjà un code écrit par toi , en non pas brute de l'enregistreur et c'est pas ce qui m'aide.
 
Vote positif 0 Vote négatif
Re : copie plage de données d'un classeur à un autre

voila via l'enregistreur
Sub Macro1()
'
' Macro1 Macro
'


Range("A1:C276").Select
selection.copy ' du classeur stats_globals

Windows("statana.xlsx").Activate
Range("E473").Select
selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A473").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Ville1"
Range("A474").Select
ActiveCell.FormulaR1C1 = "Ville1"
Range("B473").Select
ActiveCell.FormulaR1C1 = "2014"
Range("B474").Select
ActiveCell.FormulaR1C1 = "2014"
Range("C473").Select
ActiveCell.FormulaR1C1 = "Juillet"
Range("C474").Select
ActiveCell.FormulaR1C1 = "Juillet"
Range("D471😀472").Select
selection.AutoFill Destination:=Range("D471😀474"), Type:=xlFillDefault
Range("D471😀474").Select
Range("A473😀474").Select
selection.AutoFill Destination:=Range("A473😀748")
Range("A473😀748").Select
ActiveWindow.SmallScroll Down:=21
End Sub
 
Vote positif 0 Vote négatif
Re : copie plage de données d'un classeur à un autre

Voici donc pour la premiére partie

Comme je sais pas comment déduire Ville, Année et mois , pour le moment c'est 3 inputbox qui vont te demander.


Code: 
Sub Copie()
Dim Fin_Source As Long, Debut_Cible As Long, Fin_Cible As Long
Dim Ville As String, Année As String, Mois As String
Fin_Source = ThisWorkbook.Worksheets("stats_1").Range("A" & Rows.Count).End(xlUp).Row
Debut_Cible = ThisWorkbook.Worksheets("stats_1").Range("A" & Rows.Count).End(xlUp).Row
villes:
Ville = InputBox("Entrez la ville : ")
If Ville = "" Then GoTo villes
Années:
Année = InputBox("Entrez l'année : ")
If Année = "" Then GoTo Années
moiss:
Mois = InputBox("Entrez le mois :")
If Mois = "" Then GoTo moiss

With Workbooks("statana.xlsx").Sheets("stats")
Debut_Cible = .Range("A" & Rows.Count).End(xlUp).Row + 1
Fin_Cible = Fin_Source + Debut_Cible - 1
  ThisWorkbook.Worksheets("stats_1").Range("A1:C" & Fin_Source).copy Destination:=.Range("E" & Debut_Cible)
  .Range("A" & Debut_Cible & ":A" & Fin_Cible) = Ville
  .Range("B" & Debut_Cible & ":B" & Fin_Cible) = Année
  .Range("C" & Debut_Cible & ":C" & Fin_Cible) = Mois
End With

End Sub
 
Vote positif 0 Vote négatif
Re : copie plage de données d'un classeur à un autre

Bonjour

c'est super top , ça fonctionne parfaitement.

Je cherche pour la deuxième partie , mais je doute je n'ai pas ton niveau !

merci de m'apporter ton aide
 
Vote positif 0 Vote négatif
Re : copie plage de données d'un classeur à un autre

Bonjour Empires ,

Attention ligne 8 =#NOM? , j'ai du prévoir une sécurité pour éviter le plantage , mais en aucun cas tu ne trouveras cette référence

Voilà donc la carte des desserts : (Oups , plus de formules à tirer , dommage , non , pas de regrets ... ok on y va)
Ah oui pour le moment si pas trouvé , je n'affiche rien , veux tu renseigner quelque chose dans la case ou pas , être alerté par un message .(La il risque d'y en avoir beaucoup (Une vraie usine à popup))

Allez , revoici le code complété et trés légérement modifié

Code: 
Option Explicit

Sub Copie()
Dim Fin_Source As Long, Debut_Cible As Long, Fin_Cible As Long, Tourne As Long
Dim Ville As String, Année As String, Mois As String
Dim Trouve As Range
Fin_Source = ThisWorkbook.Worksheets("stats_1").Range("A" & Rows.Count).End(xlUp).Row
Debut_Cible = ThisWorkbook.Worksheets("stats_1").Range("A" & Rows.Count).End(xlUp).Row
villes:
Ville = InputBox("Entrez la ville : ")
If Ville = "" Then GoTo villes
Années:
Année = InputBox("Entrez l'année : ")
If Année = "" Then GoTo Années
moiss:
Mois = InputBox("Entrez le mois :")
If Mois = "" Then GoTo moiss

With Workbooks("statana.xlsx") ' délimite l'environnement au classeur Statana
 
 With .Sheets("stats") 'Délimite l'environnement à la feuile stats (Chaque info commençant par un point non résolu se rapporte à cet environnement)
   Debut_Cible = .Range("A" & Rows.Count).End(xlUp).Row + 1
   Fin_Cible = Fin_Source + Debut_Cible - 1
   ThisWorkbook.Worksheets("stats_1").Range("A1:C" & Fin_Source).copy Destination:=.Range("E" & Debut_Cible)
   .Range("A" & Debut_Cible & ":A" & Fin_Cible) = Ville
   .Range("B" & Debut_Cible & ":B" & Fin_Cible) = Année
   .Range("C" & Debut_Cible & ":C" & Fin_Cible) = Mois
 End With 'Fin de l'environnement Feuille stats
 
 'Recherche du code
  For Tourne = Debut_Cible To Fin_Cible
   Set Trouve = .Sheets("liste ana auto").Range("A:A").Find(CStr(.Sheets("stats").Range("e" & Tourne)), lookat:=xlWhole)
  'test si résultat
   If Not Trouve Is Nothing Then .Worksheets("stats").Range("D" & Tourne) = .Worksheets("liste ana auto").Range("C" & Trouve.Row).Text
  Next Tourne
End With
End Sub
 
Vote positif 0 Vote négatif
Re : copie plage de données d'un classeur à un autre

Si tu as écris le code comme je te l'ai proposé, tu restes dans la boucle infernale tant que tu n'as pas renseigné la ville.

Que voudrais tu qu'il fasse d'autre si ce n'est pas l'action attendue.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
159
flc13090
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
229
fenec
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
228
caseras
C
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
646
Max
M
  • Résolu(e)
XL 2019 Extraction de données dans une autre plage !
Réponses
6
Affichages
447
Caninge
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
681
Max
M
T
  • Résolu(e)
Microsoft 365 Exporter les plages nommées vers un nouveau classeur - plage nommée invalide selon VBA
Réponses
2
Affichages
317
tnion
T
F
  • Question Question
XL 2021 Liste déroulante vers un autre classeur
Réponses
1
Affichages
445
Dudu2
O
  • Question Question
XL 2016 transférer les données d'un tableau brut, dans un autre format pour analyse.
Réponses
12
Affichages
453
ORL
O
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
537
jeff1494
R
  • Question Question
XL 2019 Aide à la création d'un fichier de saisie et suivi des engagements budgétaires sous Excel
Réponses
2
Affichages
187
Royaulté
R
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
611
Dégé59
D
  • Question Question
Autres Transfert des données d'un classeur à un autre
Réponses
5
Affichages
605
Oneida
R
  • Résolu(e)
XL 2016 Créer un .doc à partir des données d'un tableur
Réponses
9
Affichages
452
job75
M
  • Question Question
Microsoft 365 VBA copier des données d'un classeur à un autre
Réponses
4
Affichages
2 K
sylvanu
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
364
NONO14
N
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
687
dysorthographie
M
  • Question Question
Autres Copie de ligne à partir d'un code
2
Réponses
17
Affichages
1 K
Moreno076
M
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
570
Chaton77
G
  • Résolu(e)
Copie de données d'une feuille à une autre
Réponses
2
Affichages
607
gui22
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…