Utiliser INDEX en macro

**letravailclasanté** · 02/07/2013, 10h36

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

**casefayere** · 02/07/2013, 10h44

Bonjour,

essayes ce code entre autre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("after effect").Range("N" & k).FormulaLocal = "=INDEX($D:$D, SMALL(IF($J$10=$A:$A, ROW($D:$D)-ROW($D$1)+1), COLUMN(A1)))"
Sheets("after effect").Range("N" & k) = Sheets("after effect").Range("N" & k).Value

**letravailclasanté** · 02/07/2013, 10h49

merci de votre réponse.

Le code ci dessus me donne une réplique exacte de la colonne D au lieu de prendre en compte les éléments de la colonne J

**casefayere** · 02/07/2013, 10h52

A toi d'adapter pour les bonnes colonnes, savoir dans quel "range" placer le code, je n'ai repris que ce que tu demandais

**letravailclasanté** · 02/07/2013, 10h57

J'ai effectivement repris le code et l'ai appliquer selon mes colonnes. Peut-être n'ai je pas été assez claire.

La formule index me permet de trouver tous les éléments correspondant à une valeur. Par exemple:

données:

orange 1
banane 2
cerise 3
orange 4

résultats:

orange 1 4

Ayant beaucoup de données, je souhaiterais pouvoir lancer cette macro