XL 2016 OPTIMISATION CODE VBA

[sevy1]

Bonjour à tous
J'ai un fichier avec deux onglets le premier est sous forme de plage et le second sous forme de tableau .
Je souhaiterais couper et coller les données de l'onglet 1 vers l'onglet 2 lorsque la date est saisie dans la colonne 13 de l'onglet 1. je ne coupe pas toute la ligne parce que dans l'onglet 2 j'ai 4 colonnes supplémentaires à la fin ou se trouvent les formules.
Mon Problème c'est que le code fonctionne mais il est excessivement lent car j'ai plus de 25000lignes dans l'onglet 1 comment puis-je améliorer ce code pour être rapide. Merci d'avance pour vos propositions

Dim sh1, sh2 As Worksheet
Sub Transfert_Donnees()
    Dim derlig, i, j As Long
    Set sh1 = Feuil4
    Set sh2 = PAYE
    derlig = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1
    j = sh1.Cells(Rows.Count, 1).End(xlUp).Row
    Application.ScreenUpdating = False
    For i = 2 To j
        If sh1.Cells(i, 9) > 0 Then
            sh1.Range(Cells(i, 1), Cells(i, 13)).Cut sh2.Cells(derlig, 1)
            derlig = derlig + 1
        End If
        Next
        For i = j To 2 Step -1
            If sh1.Cells(i, 1) = "" Then sh1.Range(Cells(i, 1), Cells(i, 13)).Delete shift:=xlUp
        Next
    Application.ScreenUpdating = True
End Sub

 

[sevy1]

Bonjour à tous
Merci pour vos multiples solutions qui fonctionnent. Pour les explications j'ai bien compris que end (3) =end (xlup) après le (3) il y a soit 2 soit (1, 5) est ce à dire que on s arrêté à la ligne 2 pour la cas 1 et la ligne 1 pour le cas 2 commençant par le bas

 

[Efgé]

Bonjour à tous

après le (3) il y a soit 2 soit (1, 5) est ce à dire que on s arrêté à la ligne 2 pour la cas 1 et la ligne 1 pour le cas 2 commençant par le bas

Chaque cellule de la feuille peut être vue comme la cellule (1,1) d'un tableau.
En disant Cells(3,2)(1,2) on dit:
Cells(3,2) = Cellule ($B$3)
La cellule $B$3(1,2) est la cellule sur la même ligne et sur la colonne à coté à droite soit $C$3

Donc, la partie

.Cells(.Rows.Count, 1).End(3)(1, 5)

Veux dire : la dernière cellule remplie en colonne 1 , même ligne, 5eme colonne. (dans ton exemple $E$8 )

Si on utilise

.Cells(.Rows.Count, 1).End(3)(2)

On dit La dernière cellule remplie en colonne 1 , ligne 2 soit la première cellule non remplie en colonne 1
On pourrait écrire

.Cells(.Rows.Count, 1).End(3)(2,1)

(ligne 2 colonne 1)

Cordialement

 

[sevy1]

Bonjour
Merci pour ces explications claires. Pourrais-je avoir le lien d'une FAQ postée dans le forum qui parle de ces notions?

 

[Efgé]

Pourrais-je avoir le lien d'une FAQ postée dans le forum qui parle de ces notions?

Tout le forum est une foire aux questions....

Il faut lire les discutions, tester les propositions, faire des essais personnels....

tu as également quelques tutoriels ici:
https://www.excel-downloads.com/resources/categories/leçons-et-tutoriaux.13/

Cordialement