[VB] coller avec une variable

Résolu
elisonette90 Messages postés 2 Statut Membre -  
elisonette90 Messages postés 2 Statut Membre -
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!!

1 réponse

  1. elisonette90 Messages postés 2 Statut Membre 1
     
    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