Discussion :

[avyrex]

Bonjour,

Voici mon problème.

Dans la feuille "Entrée de données", dans la colonne D, se trouve des nombres.

Je voudrais que si le nombre est plus élevé que 1000, qu'il fasse un couper / coller dans la feuille "BackHaul" à partir de la ligne 2.

Donc il n'apparaitrait plus dans la feuille "Entrée de données".

Est-ce possible?

Merci de votre aide!

[fring]

Bonjour,

Ceci devrait faire l'affaire

Code :

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

1
2
3
4
5
6
7
8
9
Sub couper_coller()
Dim i%, j%
For i = 2 To Cells(Rows.Count, 4).End(xlUp).Row
If Cells(i, 4) > 1000 Then Rows(i).Cut Sheets(2).Cells(Rows.Count, 1).End(xlUp)(2)
Next
For j = Cells(Rows.Count, 4).End(xlUp).Row To 2 Step -1
If Cells(j, 4) = "" Then Rows(j).EntireRow.Delete
Next
End Sub

[avyrex]

Merci ça fonctionne.

Juste un petit détail, Je remarque que les données se colle sur la ligne 3 au lieu de la ligne 2 dans la feuille "BackHaul".

Comment faire pour qu'il colle sur la ligne 2?

[fring]

Supprime le texte "Coller ici" en A2

[avyrex]

Super merci