Re : MACRO RECHERCHE VALEUR et Copier références
A chaque fois je suis bluffé Catrice .... mais j'aimerais bien comprendre comment ça marche une fois pour toute ! Pourrais tu me donner quelques explications pour ce code ?
Sub Test()
Sheets("Feuil2").Cells.Clear
lig = Range("A65536").End(xlUp).Row
col = Range("IV2").End(xlToLeft).Column
For Each X In Range(Range("C3"), Cells(lig, col))
If X > Range("A1") Then
With Sheets("Feuil2").Range("A65536").End(xlUp)
.Offset(1, 3) = X
.Offset(1, 3).NumberFormat = "0%"
.Offset(1, 2) = Cells(X.Row, 2)
.Offset(1, 1) = Cells(X.Row, 1)
.Offset(1, 0) = Cells(2, X.Column)
End With
End If
Next
With Sheets("Feuil2")
.Range("A1").EntireRow.Delete
.Range("A1").Sort Key1:=.Range("A1")
.Select
End With
End Sub
La fonction .Find peut-être elle aussi utilisée ?
Merci encore pour ton aide !