Code VBA pour Copier une ligne en connaissant X.adresse

[Phiphi27700]

Bonjour à tous
Voilà dans mon classeur Test je cherche a copier la ligne allant de la colonne A:B en fonction de la valeur mise en E1
et coller la ligne à partir de A1 dans la feuille 2. Evidemment avec <Range(c.Address).Copy> il me copie que la valeur de c.Address

Sub Recherche_PN_existant()
Dim LastLig1 As Long
Dim c As Range
Dim firstAddress As String

V1 = Range("E1").Value
    With Sheets("Feuil1")
        LastLig1 = .Cells(Rows.Count, 1).End(xlUp).Row
        Set c = .Range("A1:A" & LastLig1).Find(V1, LookAt:=xlWhole) 'Cherche la Valeur Exacte

        If c Is Nothing Then
            MsgBox "Inconnu"
        Else
            MsgBox c.Address
            Range(c.Address).Copy
            Sheets("Feuil2").Select
            Range("A1").Select
            ActiveSheet.Paste
        End If
    End With
End Sub

Merci

 

[Pierrot93]

Re : Code VBA pour Copier une ligne en connaissant X.adresse

Bonjour,

essaye ceci :

c.EntireRow.Copy Destination:=Feuil2.Range("A1")

bon après midi
@+

 

[Phiphi27700]

Re : Code VBA pour Copier une ligne en connaissant X.adresse

Génial merci
Bonne journée
Phiphi

 

[Phiphi27700]

Re : Code VBA pour Copier une ligne en connaissant X.adresse

Un petit plus si je copie vers un autre classeur quel sera mon code?
Merci

 

[Pierrot93]

Re : Code VBA pour Copier une ligne en connaissant X.adresse

Re,

c.EntireRow.Copy Destination:=Workbooks("NomClasseur.xls").Sheets("Feuil2").Range("A1")

le classeur en question doit être ouvert...

 

[Phiphi27700]

Re : Code VBA pour Copier une ligne en connaissant X.adresse

Merci
Un dernier point si je souhaite copier nom pas la ligne entière mais par exemple de b a z?
Merci

 

[Pierrot93]

Re : Code VBA pour Copier une ligne en connaissant X.adresse

Re,

dernier point si je souhaite copier nom pas la ligne entière mais par exemple de b a z?

 Range("B" & c.Row).resize(,25).Copy Destination:=Workbooks("NomClasseur.xls").Sheets("Feuil2").Range("A1")

 

[Phiphi27700]

Re : Code VBA pour Copier une ligne en connaissant X.adresse

Merci j'ai toute la solution
Très bonne fin de journée