MACRO RECHERCHE VALEUR et Copier références

Re : MACRO RECHERCHE VALEUR et Copier références

Bonsoir,

ci-joint un exemple

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 !

Re : MACRO RECHERCHE VALEUR et Copier références

Re,

J'ai remis le fichier avec qqs commentaires dans le post précédent.

Avec la methode Find, je ne crois pas que ce soit possible.
En effet, on cherche une valeur "supérieur à".
Find cherche une valeur exacte ou une chaine...