Copie de lignes Résolu

Question

Bonjour, 

Je suis un novice en macro, je souhaite copier toutes les lignes d'une feuille nommée "TAMPON" vers une autre feuille "CHARPENTE" si dans la colonne E la valeur commence par "24CHA".

Merci

michel_m · Answer

bonjour

Quel logiciel et version ?

lermite222 · Answer

Bonjour, bonjour Michel,
Peut-être comme ça...
Sub CopieLigne()
Dim LigSource As Long, LigCopie As Long
LigCopie = 4 '1ère ligne où copier
    For LigSource = 2 To Sheets("TAMPON").Range("E65536").End(xlUp).Row
        If Cells(LigSource, "E") Like "24CHA*" Then
            Sheets("TAMPON").Rows(LigSource).Copy Sheets("CHARPENTE").Rows(LigCopie)
            LigCopie = LigCopie + 1
        End If
    Next LigSource
End Sub
A+

lermite222 · Answer

La fonction répond exactement aux explications que tu as donné, si les adresses  ou le test 24CHA sont différents à toi d'adapter.
Si t'en sort pas met ton classeur sur CiJoint.com et mettre le lien dans un poste suivant.

Copie de lignes

3 réponses

Discussions similaires

Newsletters