Bonjour,


cela fait un petit moment que je ne me suis pas plongée dans le code VAB et j'aurais besoin de vous.
Je cherche à pouvoir utiliser la fonction suivante en macro VBA

Code : Sélectionner tout - Visualiser dans une fenêtre à part
=INDEX($D:$D, SMALL(IF($J$10=$A:$A, ROW($D:$D)-ROW($D$1)+1), COLUMN(A1)))
j'ai tenté un début de code suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub logicielsmachines()
 
Dim NbLignestestmacro As Integer
Dim k As Integer
 
k = 2
 
NbLignestestmacro = Application.CountA(Range("'after effect'!A:A"))
 
Application.ScreenUpdating = False
 
While k <= NbLignestestmacro
 
Range("after effect!" & "N" & k).Value = Application.INDEX(Range("after effect!" & "D" & k), SMALL(IF(Range("after effect!" & "J" & k).Value = (Range("after effect!" & "A" & k)), ROW(Range("after effect!" & "D"+1))-ROW(Range("after effect!" & "D"+1), COLUMN(Range("after effect!" & "A1")))
mais dès lors, j'ai un problème avec la dernière ligne.

Pourriez-vous m'aider ?


Merci