Bonjour,
J'ai repris depuis l'ecriture VBA pour me faciliter la tache !
Il y a 2 fichiers sources ( A et B ) et un fichier destination ( C )
Dans le fichier destination, je souhaiterai balayer les onglets 1 a 53 et copie les données pour les décharger dans le fichier destination et dans l'onglet correspondant ( ex onglet 1 du fichier A et B dans l'onglet 1 du fichier C )
Pour commencer, je partirai à partir de ce code dans lequel je souhaite intégrer le balayage des onglets d'un fichier différent
Comme j'aime bien comprendre ce que je fais, si vous pourriez m'aider pour cette partie de code ( balayage ) en y indiquant ce que le code effectue ( sinon je ferai du pas à pas )
Merci d'avance
et bonne journée
David
J'ai repris depuis l'ecriture VBA pour me faciliter la tache !
Il y a 2 fichiers sources ( A et B ) et un fichier destination ( C )
Dans le fichier destination, je souhaiterai balayer les onglets 1 a 53 et copie les données pour les décharger dans le fichier destination et dans l'onglet correspondant ( ex onglet 1 du fichier A et B dans l'onglet 1 du fichier C )
Pour commencer, je partirai à partir de ce code dans lequel je souhaite intégrer le balayage des onglets d'un fichier différent
Comme j'aime bien comprendre ce que je fais, si vous pourriez m'aider pour cette partie de code ( balayage ) en y indiquant ce que le code effectue ( sinon je ferai du pas à pas )
Merci d'avance
et bonne journée
David
HTML:
Sub Extraction_commande()
Dim tabCom(10000, 15) As Variant
Dim y As Integer
' supprimer les données de 2KE_SDS
Worksheets("2KE_SDS").Select
Call supp_extraction
Worksheets("COM").Select
Range("A2571").Select
'Copie des données dans le tableau virtuel commande
While ActiveCell.Value <> ""
If ActiveCell.Offset(0, 0).Value = "COM" Then
y = y + 1
tabCom(y, 1) = ActiveCell.Offset(0, 13).Value
tabCom(y, 2) = ActiveCell.Offset(0, 3).Value
tabCom(y, 3) = ActiveCell.Offset(0, 12).Value
tabCom(y, 4) = ActiveCell.Offset(0, 4).Value
tabCom(y, 5) = ActiveCell.Offset(0, 14).Value
tabCom(y, 6) = ActiveCell.Offset(0, 1).Value
tabCom(y, 7) = ActiveCell.Offset(0, 18).Value
tabCom(y, 8) = ActiveCell.Offset(0, 11).Value
tabCom(y, 9) = ActiveCell.Offset(0, 15).Value
tabCom(y, 10) = ActiveCell.Offset(0, 6).Value
End If
ActiveCell.Offset(1, 0).Select
Wend
Worksheets("2KE_SDS").Select
Range("A2").Select
For i = 1 To y
ActiveCell.Offset(0, 2).Value = tabCom(i, 1)
ActiveCell.Offset(0, 5).Value = tabCom(i, 2)
ActiveCell.Offset(0, 6).Value = tabCom(i, 3)
ActiveCell.Offset(0, 7).Value = tabCom(i, 4)
ActiveCell.Offset(0, 8).Value = tabCom(i, 5)
ActiveCell.Offset(0, 9).Value = tabCom(i, 6)
ActiveCell.Offset(0, 10).Value = tabCom(i, 7)
ActiveCell.Offset(0, 14).Value = tabCom(i, 8)
ActiveCell.Offset(0, 19).Value = tabCom(i, 9)
ActiveCell.Offset(0, 20).Value = tabCom(i, 10)
ActiveCell.Offset(1, 0).Select
Next i
End Sub