couper / coller vba excel

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!

Bonjour,

Ceci devrait faire l'affaire

Code:

---

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

---

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?

Supprime le texte "Coller ici" en A2 ;)

Super merci :yaisse2: