Créer Une Macro de Compilation

Bonjour à Tous

J'ai besoin d'aide pour réaliser une macro.
Mon Objectif : la Macro servira à mettre (compiler) dans une "seule nouvelle " Feuille Excel, des feuilles d'autres fichiers (environ 31) dont je le total peu rester sur une même feuille excel. Je peux donc ainsi avoir une base de travail.

Difficulté : je dois coller les feuiles de chacun de ces 31 fichiers à la suite de l'autre dans la même " nouvelle feuille".

Je butte sur l'os suivant: :cry::cry:
Comment atteindre la première cellule vide dans la colonne A pour recoller d'autres fichiers ? Comment atteindre Chaque fois, la première cellule vide après avoir coller le dernier fichier.

Pour l'instant, je le fais mais avec des cellules référencées en colonne A (R1C1 et R55C1)
je souhaiterais le faire quelque soit la ligne où je suis dans la cellule A
C'est à dire pour i allant de 1 à 1000, R(i)C1

Tout ce que j'ai pu faire cest ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub magfou() ' ' magfou Macro '   ' Workbooks.Open Filename:="C:\Users\GOTO1.xlsx" Range("A12").Select Selection.CurrentRegion.Select Selection.Copy Windows("Classeur1").Activate Application.Goto Reference:="R1C1" ActiveSheet.Paste Selection.SpecialCells(xlCellTypeLastCell).Select Application.Goto Reference:="R55C1" Selection.Insert Shift:=xlDown Selection.EntireRow.Insert Windows("GOTO1.xlsx").Activate ActiveWindow.SmallScroll Down:=-3 Selection.CurrentRegion.Select Selection.Copy Windows("Classeur1").Activate ActiveSheet.Paste End Sub

---

Je continuerai à m'exercer, mais si vous pouvez me débloquer sur cet os, je serais vraiment très heureux.

Je vous remercie D'avance :D

Remplaces "MonClasseur" et "MaFeuille" par les noms appropriés.

Code:

---

1 2 3 4 5 6

Dim rng As Range   With Workbooks("MonClasseur").Worksheets("MaFeuille") Set rng = .Cells(.UsedRange.Rows.Count + 1, 1) MsgBox "Ligne : " & rng.Row & ", Colonne : " & rng.Column End With

---

D'abord Merci pour ta réponse rapide. L'instruction que tu m'as recommaandé est exacte et correcte. En effet elle donne la 1ère cellule de la colonne A qui est vide.

Seulement, je n'arrive pas à le référencer dans la macro.

Voici ce que j'ai bidouillé ( 8O ).

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Cop1()   Dim rng As Range Dim A As Cell Windows("A1").Activate With Workbooks("A1").Worksheets("Feuil2") Set rng = .cells(.UsedRange.Rows.Count + 1, 1) Application.Goto Reference:=A("Ligne : " & rng.Row & ", Colonne : " & rng.Column) End With End Sub

---

Je pense que c'est la référence qui n'est pas bien indiquée.
Je revisite actuellement les autres msg du forum avec l'espoir de :oops: : qui sait?

Encore Merci

Cool Mission 1 réussie.
Merci à toi Big Brother!
J'ai repris ta formule sauf le msgbox et bingo :yaisse2: "lumière"
le curseur va bien dans cette putain de case.

Maintenant je vais continuer par batr la Macro.

Si tu veux, je t'enverai dans ta boite, la croma une fois structurée.

Génialissime pour cette étape

A nous revoir si étape 2 aussi Os!