Problème boucle :( [VBA]

Bonjour ,

j'ai un problème sur mon code, la boucle qui permet de copier mes lignes qui contiennent #N/A sur une autre feuille du classeur ne fonctionne pas.

J'ai seulement la première ligne contenant #N/A qui est copié sur l'autre feuille.

HELP :cry:

Merci d'avance :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub compcpte()     Worksheets("global Compte").Activate   Dim LastRow1 As Long   LastRow1 = Sheets("Compte non présent dans import").Range("A" & Rows.Count).End(xlUp).Row + 1     For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1   If WorksheetFunction.IsNA(Cells(i, 2)) = True Then Range(Cells(i, 1), Cells(i, 10)).Copy Sheets("Compte non présent dans import").Cells(LastRow1, 1)   Next i   End Sub

---

Bonjour,

As tu regardé si ta fonction IsNA te renvoi bien "True" dans les cases qui ne sont pas copié (en pas à pas)?

Aurais tu le code de cette derniere?

Bon courage,

EDIT: Autre chose, tu n'incrémente pas ton LastRow1 donc cela écrit toujours au meme endroit me semble t'il essaye cela:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub compcpte()     Worksheets("global Compte").Activate   Dim LastRow1 As Long   LastRow1 = Sheets("Compte non présent dans import").Range("A" & Rows.Count).End(xlUp).Row + 1     For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1   If WorksheetFunction.IsNA(Cells(i, 2)) = True Then Range(Cells(i, 1), Cells(i, 10)).Copy Sheets("Compte non présent dans import").Cells(LastRow1, 1) LastRow1 = LastRow1 + 1 end if     Next i

---