Problème boucle VBA

Problème boucle VBA - VB/VBA/VBS - Programmation

Marsh Posté le 05-08-2011 à 13:49:28    

Bonjour,
 
je tente de réaliser une macro qui me permet de copier l'ensemble des lignes ayant en colonne 2 la référence #N/A d'une feuille de classeur sur une autre.
 
J'arrive à copier une ligne mais la boucle ne passe pas. :pfff:  
 
Si quelqu'un à une solution.  
 
Merci beaucoup.
 :jap:  
 
Kesdo
 
 

Code :
  1. Worksheets("global Compte" ).Activate
  3. Dim LastRow1 As Long
  5. LastRow1 = Sheets("Compte non présent dans import" ).Range("A" & Rows.Count).End(xlUp).Row + 1
  7. For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
  9. 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)
  11. Next i


Reply

Marsh Posté le 05-08-2011 à 13:49:28   

Reply

Marsh Posté le 05-08-2011 à 14:49:28    

Qu'il y a-t-il dans i au début ? Peut-être que le VBA n'aimerait pas que la CurrentRegion change avec le Copy.
 
Essayer en remplaçant :

For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1

par :

nb_lines = Cells(1, 1).CurrentRegion.Rows.Count
For i = nb_lines To 1 Step -1


Message édité par billgatesanonym le 05-08-2011 à 14:49:53
Reply

Marsh Posté le 05-08-2011 à 15:57:28    

Bon Billgates,
 
Tout d'abord merci.
 
Mais à priori c'est pas le currentRegion qui bloque.
 
C'est surement au niveau de ma définition de LastRow1....  
 
:(

Reply

Marsh Posté le 09-08-2011 à 11:45:47    

Bonjour, je me permet de remonter le topic quelqu'un aurait il une solution? :x

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed