Destination copie cellule

Destination copie cellule - VB/VBA/VBS - Programmation

Marsh Posté le 26-05-2011 à 16:19:03    

Bonjour à tous,
 
j'ai créé une boucle avec condition de copier ma ligne si elle contient le mot "toto" vers une feuille.
 
 

Code :
  1. Sub trouverinstrument()
  3. For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
  5. If Cells(i, 8) Like "*OPCVM*" Then Range(Cells(i, 1), Cells(i, 8)).Copy Sheets("OPCVM" ).Cells(i, 1)
  7. If Cells(i, 8) Like "*Action*" Then Range(Cells(i, 1), Cells(i, 8)).Copy Sheets("Actions" ).Cells(i, 1)
  9. Next i
  11. End Sub


 
 
le problème est que je n'arrive pas à trouver comment copier ces lignes à la suite sur l'autre feuille sans avoir de "blanc" entre elles.
Par exemple, si "toto" est détecté à la ligne 49, éviter que cette ligne soit copiée en ligne 49 sur l'autre feuille mais à la suite de la précédente ligne copiée et ainsi de suite.
 
J'espère avoir été assez clair!
 
Merci par avance pour votre réponse!


Message édité par kesdo93220 le 26-05-2011 à 16:20:31
Reply

Marsh Posté le 26-05-2011 à 16:19:03   

Reply

Marsh Posté le 26-05-2011 à 16:50:38    

Salut,sans doute à adapter,mais qqch comme ceci devrait convenir et dans ce cas à ajouter et modifier pour l'autre feuille


Dim LastRow1 As Long
        '.....
        LastRow1 = Sheets("OPCVM" ).Range("A" & Rows.Count).End(xlUp).Row + 1
        If Cells(i, 8) Like "*OPCVM*" Then Range(Cells(i, 1), Cells(i, 8)).Copy Sheets("OPCVM" ).Cells(LastRow1, 1)
        '.....


Message édité par kiki29 le 26-05-2011 à 16:54:59
Reply

Marsh Posté le 26-05-2011 à 16:57:30    

je l'ai adapté et ça marche nikel!!!
 
Merci!!!

Reply

Sujets relatifs:

Leave a Replay

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