[VB] coller avec une variable

Résolu/Fermé
elisonette90 Messages postés 2 Date d'inscription mercredi 7 avril 2010 Statut Membre Dernière intervention 8 avril 2010 - Modifié par jipicy le 8/04/2010 à 10:05
elisonette90 Messages postés 2 Date d'inscription mercredi 7 avril 2010 Statut Membre Dernière intervention 8 avril 2010 - 8 avril 2010 à 09:49
Bonjour, je suis novice en vb et je bloque sur un problème qui sera peut être minime pour vous.

J'ai réussi à copier le mot que je voulais mais pour le coller c'est plus difficile.
Je souhaite coller ce mot en dessous jusqu'à la dernière cellule pleine, -1.

Mon code :

 For L = 1 To 5500 
    If Cells(L, 1) = "COCCINELLE" Then 
    Cells(L, 2).Copy 
    Cells(L, 2).Select 
    Range(Selection, Selection.End(xlDown)).Select 
    ActiveSheet.Paste 
    Application.CutCopyMode = False 
    End If 
Next 


Merci par avance.

Bonne fin de journée à vous!!
A voir également:

1 réponse

elisonette90 Messages postés 2 Date d'inscription mercredi 7 avril 2010 Statut Membre Dernière intervention 8 avril 2010 1
Modifié par jipicy le 8/04/2010 à 10:05
Bonjour,
J'ai trouvé par moi même!!
Merci et bonne journée!!

Le code :
For L = 1 To 5500 
    If Cells(L, 1) = "COCCINELLE" Then 
    Cells(L, 2).Select 
    Cells(L, 2).Copy 
    Range(Selection, Selection.End(xlDown)(-0)).Select 
    ActiveSheet.Paste 
    Application.CutCopyMode = False 
    End If 
Next
1