GetObjectqui permet de manipuler des données d'un classeur à l'autre, cependant Il faudrait avoir un exemple plus concret pour comprendre d'avantage ce que tu veux....
Sub RemplirB dim FeuilleA as worksheet, FeuilleB as worksheet set feuilleA = Workbooks(ClasseurA).Worksheets(Feuille_A) 'On suppose que les éléves sont écrits ligne par ligne sans ligne vide, la première ligne est une ligne de titre Dim LigneA as long, Formation as string, Numero as long, Nom as string, Prenom as string, Heures as double LigneA = 2 do if FeuilleA.cells(ligneA,1)="" then exit do Numero = FeuilleA.cells(LigneA,1) Formation = FeuilleA.cells(LigneA,2) Nom = FeuilleA.cells(LigneA,3) Heures = FeuilleA.cells(LigneA,4) set FeuilleB = WorkBooks(ClasseurB).Worksheets(Formation) FeuilleB.cells(LigneA,1) = Numero FeuilleB.cells(LigneA,2)=Nom FeuilleB.Cells(LigneA,3)=Heures ligneA = LigneA + 1 loop Set FeuilleA = nothing set FeuilleB = nothing end sub
Sub RemplirB dim FeuilleA as worksheet, FeuilleB as worksheet set feuilleA = Workbooks(ClasseurA).Worksheets(Feuille_A) 'On suppose que les éléves sont écrits ligne par ligne sans ligne vide, la première ligne est une ligne de titre Dim LigneA as long, Formation as string, Numero as long, Nom as string, Prenom as string, Heures as double LigneA = 2 do if FeuilleA.cells(ligneA,1)="" then exit do Numero = FeuilleA.cells(LigneA,1) Formation = FeuilleA.cells(LigneA,2) Nom = FeuilleA.cells(LigneA,3) Heures = FeuilleA.cells(LigneA,4) set FeuilleB = WorkBooks(ClasseurB).Worksheets(Formation) FeuilleB.cells(LigneA,1) = Numero FeuilleB.cells(LigneA,2)=Nom FeuilleB.Cells(LigneA,3)=Heures ligneA = LigneA + 1 loop Set FeuilleA = nothing set FeuilleB = nothing end sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDu coup je ne peux pas utiliser ta deuxième solution car le but s'est que tout se fasse automatiquement sans avoir de manipulation à réaliser