Destination copie cellule

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Destination copie cellule

kesdo93220

Bonjour à tous,

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

Code :

Sub trouverinstrument()
For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
If Cells(i, 8) Like "*OPCVM*" Then Range(Cells(i, 1), Cells(i, 8)).Copy Sheets("OPCVM" ).Cells(i, 1)
If Cells(i, 8) Like "*Action*" Then Range(Cells(i, 1), Cells(i, 8)).Copy Sheets("Actions" ).Cells(i, 1)
Next i
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

Publicité

kiki29

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

kesdo93220

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

Merci!!!

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Destination copie cellule

Sujets relatifs
Copie d'octet en C	[resolu] comment faire une cellule avec commentaire "xls like" ?
copie de cellule d'un fichier excel sans l'ouvrir VBA	copie / affectation
Excel : boucle copie de plages sous condition	macro excel nom classeur dans cellule
EXCEL VBA - Ne garder que les chiffres d'une cellule	joindre des fichiers VOB "sans copie"
condition et copie
Plus de sujets relatifs à : Destination copie cellule

Page générée en 0.057 secondes