Re : Macro pour comparer deux abscisses et renvoyer les ordonnées correspondantes
Re,
Exact, petit bug dans le code ...
autant pour moi.
Il faut modifier cette ligne comme suit :
Set c = MaZone.Offset(0, 2).Find(X
, LookAt:=xlWhole)
ou bien utiliser ce code :
Sub Test()
Sheets(2).Range("A1").CurrentRegion.Offset(1, 0).Clear
Set MaZone = Sheets(1).Range("A2:" & Sheets(1).Range("A65536").End(xlUp).Address)
For Each X In MaZone
MaVar = Application.Match(X.Value, MaZone.Offset(0, 2), 0)
If Not IsError(MaVar) Then
With Sheets(2).Range("A65536").End(xlUp)
.Offset(1, 2).Value = Sheets(1).Cells(MaVar, 3).Value
.Offset(1, 0).Resize(1, 2).Value = X.Resize(1, 2).Value
End With
End If
Next
End Sub
Avec ton fichier exemple, je trouve 0.06, 0.09, 0.12, 0.36, 0.39 ... comme premieres valeurs.
Mais pas de 0.2.