Discussion :

[ExcelLiod]

Bonjour à tous!

Je cherche le code vba pour copier coller des saisies à la suite. Je savais faire ce code mais j'ai tout oublier .

Voila je voudrais sélectionner les saisies à partir de A2 jusqu'à la dernière ligne saisie et la copier à la suite. La même chose pour les colonne B, N et L

Je voudrais également couper les écritures présents en colonne G (toujours à partir de G2) et le coller à la suite de la colonne E.

J'ai mis le tableau en pièce jointe merci d'avance les amis

Merci de votre aide !

[BENNASR]

Bonjour
Pour commencer : méfiez de mes propositions ... je ne suis qu'un débutant et autodidacte
La demande n'est pas claire au moins pour moi ,
Si tu cherches à regrouper que certaines colonnes dans une nouvelles feuilles selon un ordre de ton choix (à mon avis mieux que de couper ou effacer les données de base) tu peux faire avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne continuation