1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Sub Test()
Dim c As Range, LaDate As Long, LeFormat As String
'On relève le format de date
LeFormat = Columns(1).NumberFormat
'On donne le format du N° de série à la colonne
Columns(1).NumberFormat = "General"
'on convertit la date cherchée en N° de série
LaDate = CDbl(Date)
'on lance la recherche de LaDate sur la plage de cellule A1:A & dernière ligne
With Worksheets("feuil1").Range(Cells(1, 1), Cells(Range("A65535").End(xlUp).Row, 1))
Set c = .Find(LaDate)
If Not c Is Nothing Then 'si donnée trouvé, on copie la ligne
MsgBox "Trouvé !"
Rows(c.Row).Copy
Rows(c.Row).PasteSpecial Paste:=xlPasteValues
Else
MsgBox "Pas trouvé !"
End If
End With
'On rétablit le format
Columns(1).NumberFormat = LeFormat
End Sub |
Partager