Bonjour,
Je souhaite savoir comment traduire cette fonction sous excel?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 For j = Sheets("extraction").Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 ref = Sheets("extraction").Cells(j, 1).Value Set c = Sheets("Base").Range("A:A").Find(ref, LookIn:=xlValues) If Not c Is Nothing Then Sheets("extraction").Cells(j, 16).Value = c.Offset(rowOffset:=0, columnOffset:=2).Value End If Next j
Merci d'avance
Partager