Discussion :

[kesdo]

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

Merci d'avance

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
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

[bastou93]

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 :

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
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