1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Sub test()
Dim sh As Worksheet
Dim shR As Worksheet
Set sh = Sheets("COMPTAGED") ' ou se trouve les données d'origine
Set shR = Sheets("RESULTAT") ' feuille qui va recevoir tes données
Application.ScreenUpdating = False ' juste pour arrêter l'affichage écarn et gagner en temps d'exécution du code
' Nettoyer Feuille qui va recevoir les données
shR.Cells.ClearContents
' Nommer les entêtes des colonnes de la feuille RESULTAT
shR.Cells(1, 1).Resize(1, 6) = Array("Date facture", "N° Pièce", "Libellé", "Montant au Crédit", "Code du journal", "N°compte à Créditer")
'***************************** Copier les données *******************************
j = 2 'puisque tes données vont être insérées à partrir de la ligne 2 de la feuille résultat
tablo = sh.Range("A2", "O" & sh.Range("A" & sh.Rows.Count).End(xlUp).Row) 'déclarer un tableau
For i = LBound(tablo, 1) To UBound(tablo, 1)
shR.Cells(j, 1) = tablo(i, 1)
shR.Cells(j, 2) = tablo(i, 2)
shR.Cells(j, 3) = tablo(i, 14)
shR.Cells(j, 4) = tablo(i, 8)
shR.Cells(j, 5) = tablo(i, 12)
shR.Cells(j, 6) = tablo(i, 7)
j = j + 1
Next i
Application.ScreenUpdating = True
shR.Select
End Sub |
Partager