Phiphi27700
XLDnaute Nouveau
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
Merci
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
HTML:
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