Bonjour tout le monde,
J'ai un petit problème concernant un code VBA.
Je désire copier d'un fichier A cellule A2 vers fichier B cellule A16
Puis de Fichier A cellule A3 Vers fichier B cellule A23
ect...
J'ai découvert et modifié ce code qui marche assez bien mais dès que je dépasse un certain nombre de lignes il me dit que le procédure est trop longue....
La cellule a copier dans fichier A est toujours +1 et dans le fichier B (source) toujours +7
Pouvez-vous m'aider svp
Merci d'avance
Ci-joint le code:
J'ai un petit problème concernant un code VBA.
Je désire copier d'un fichier A cellule A2 vers fichier B cellule A16
Puis de Fichier A cellule A3 Vers fichier B cellule A23
ect...
J'ai découvert et modifié ce code qui marche assez bien mais dès que je dépasse un certain nombre de lignes il me dit que le procédure est trop longue....
La cellule a copier dans fichier A est toujours +1 et dans le fichier B (source) toujours +7
Pouvez-vous m'aider svp
Merci d'avance
Ci-joint le code:
Code:
Sub CopierDonnees()
Dim Entree As Workbook, Sortie As Workbook
Nomfichierentree = Application.GetOpenFilename("Fichier Excel (*.xls), *.xsl")
' On verifie que l'on a selectionné un nom de classeur
If Nomfichierentree <> False Then
' On ouvre le classeur
Set Entree = Workbooks.Open(Nomfichierentree)
NomFichierSortie = Application.GetOpenFilename("Fichier Excel (*.xls), *.xsl")
If NomFichierSortie <> False Then
Set Sortie = Workbooks.Open(NomFichierSortie)
' Ici tu mets les copies des cellules de la feuille d'entrée vers la feuille de sortie
Sortie.Worksheets("Feuil2").Cells(16, 1) = Entree.Worksheets("Feuil1").Cells(2, 1)
Sortie.Worksheets("Feuil2").Cells(23, 1) = Entree.Worksheets("Feuil1").Cells(3, 1)
Sortie.Worksheets("Feuil2").Cells(30, 1) = Entree.Worksheets("Feuil1").Cells(4, 1)
Sortie.Worksheets("Feuil2").Cells(37, 1) = Entree.Worksheets("Feuil1").Cells(5, 1)
Sortie.Worksheets("Feuil2").Cells(44, 1) = Entree.Worksheets("Feuil1").Cells(6, 1)
Sortie.Worksheets("Feuil2").Cells(51, 1) = Entree.Worksheets("Feuil1").Cells(7, 1)
Sortie.Worksheets("Feuil2").Cells(58, 1) = Entree.Worksheets("Feuil1").Cells(8, 1)
Sortie.Worksheets("Feuil2").Cells(65, 1) = Entree.Worksheets("Feuil1").Cells(9, 1)
Sortie.Worksheets("Feuil2").Cells(72, 1) = Entree.Worksheets("Feuil1").Cells(10, 1)
Sortie.Worksheets("Feuil2").Cells(79, 1) = Entree.Worksheets("Feuil1").Cells(11, 1)
Sortie.Worksheets("Feuil2").Cells(86, 1) = Entree.Worksheets("Feuil1").Cells(12, 1)
Sortie.Worksheets("Feuil2").Cells(93, 1) = Entree.Worksheets("Feuil1").Cells(13, 1)
Sortie.Worksheets("Feuil2").Cells(100, 1) = Entree.Worksheets("Feuil1").Cells(14, 1)
Sortie.Worksheets("Feuil2").Cells(107, 1) = Entree.Worksheets("Feuil1").Cells(15, 1)
Sortie.Worksheets("Feuil2").Cells(114, 1) = Entree.Worksheets("Feuil1").Cells(16, 1)
Sortie.Worksheets("Feuil2").Cells(121, 1) = Entree.Worksheets("Feuil1").Cells(17, 1)
Sortie.Worksheets("Feuil2").Cells(128, 1) = Entree.Worksheets("Feuil1").Cells(18, 1)
Sortie.Worksheets("Feuil2").Cells(135, 1) = Entree.Worksheets("Feuil1").Cells(19, 1)
Sortie.Worksheets("Feuil2").Cells(142, 1) = Entree.Worksheets("Feuil1").Cells(20, 1)
Sortie.Worksheets("Feuil2").Cells(149, 1) = Entree.Worksheets("Feuil1").Cells(21, 1)
Sortie.Worksheets("Feuil2").Cells(156, 1) = Entree.Worksheets("Feuil1").Cells(22, 1)
Sortie.Worksheets("Feuil2").Cells(163, 1) = Entree.Worksheets("Feuil1").Cells(23, 1)
Sortie.Worksheets("Feuil2").Cells(170, 1) = Entree.Worksheets("Feuil1").Cells(24, 1)
Sortie.Worksheets("Feuil2").Cells(177, 1) = Entree.Worksheets("Feuil1").Cells(25, 1)
Sortie.Worksheets("Feuil2").Cells(184, 1) = Entree.Worksheets("Feuil1").Cells(26, 1)
Sortie.Worksheets("Feuil2").Cells(191, 1) = Entree.Worksheets("Feuil1").Cells(27, 1)
'Sortie Toujours +7 Entree toujours +1
' etc
' .
' .
' .
' On ferme le classeur
Sortie.Close
End If
' On ferme le second
Entree.Close
End If
End Sub