Utiliser INDEX en macro

Version imprimable

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:

=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:

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 :)

Bonjour,

essayes ce code entre autre :

Code:

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

02/07/2013, 10h49
letravailclasanté

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
02/07/2013, 10h52
casefayere

A toi d'adapter pour les bonnes colonnes, savoir dans quel "range" placer le code, je n'ai repris que ce que tu demandais
02/07/2013, 10h57
letravailclasanté

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
02/07/2013, 11h46
Ben_L

Bonjour,

Dans votre code initial, vous pouvez remplacer

Code:

Application.INDEX

par

Code:

Application.WorksheetFunction.Index

Cdt

en fait, la réponse de casefayere devrait fonctionner mais je n'ai pas le même résultat en utilisant la formule dans la macro que dans une cellule active directement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub logicielsmachines()
 
Dim NbLignestestmacro As Integer
Dim k As Integer
 
k = 2
 
NbLignestestmacro = Application.CountA(Range("'TABLEAU DE CONTROLE'!A:A"))
 
While k <= NbLignestestmacro
 
Sheets("TABLEAU DE CONTROLE").Range("E" & k).FormulaLocal = "=INDEX($B:$B, SMALL(IF($C2=$A:$A, ROW($B:$B)-ROW($B$1)+1), COLUMN(A$1)))"
Sheets("TABLEAU DE CONTROLE").Range("E" & k) = Sheets("TABLEAU DE CONTROLE").Range("E" & k).Value
 
k = k + 1
 
Wend
 
End Sub

02/07/2013, 14h04
Ben_L

La ligne :

Code:

Sheets("TABLEAU DE CONTROLE").Range("E" & k) = Sheets("TABLEAU DE CONTROLE").Range("E" & k).Value

recopie la valeur d'une cellule dans cette même cellule.

Vérifiez où vous souhaitez recopier cette valeur.

Cdt
02/07/2013, 14h57
letravailclasanté

1 pièce(s) jointe(s)

cette ligne ne me semble pas très utile, je l'ai donc enlevé mais j'ai toujours le même résultat. J'ai attaché un fichier excel pour vous montrer.

En appliquant la macro, j'ai 1 et 0 qui s'affiche, en appliquant directement la formule, j'ai la bonne réponsePièce jointe 122190
02/07/2013, 15h29
Ben_L

1 pièce(s) jointe(s)

En pièce jointe une proposition de classeur qui fait la même chose que votre exemple.
En modifiant la structure de la feuille, on peut utiliser le solveur.

Cdt

EDIT: Toutes mes excuses, le fichier en pièce était relatif à un autre post... :oops:

je n'ai pas l'impression d'avoir compris votre fichier excel.

J'utilise la macro suivante avec le fichier excel qui s'appelle exemple et je ne comprends pas pourquoi je n'obtiens pas le même résultat qu'en appliquant directement la formule
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Sub logicielsmachines() Dim NbLignestestmacro As Integer Dim k As Integer k = 2 NbLignestestmacro = Application.CountA(Range("'Sheet1'!A:A")) While k <= NbLignestestmacro Sheets("Sheet1").Range("E" & k).FormulaLocal = "=INDEX($B:$B, SMALL(IF($D2=$A:$A, ROW($B:$B)-ROW($B$1)+1), COLUMN(A$1)))" k = k + 1 Wend End Sub

03/07/2013, 15h24
casefayere

Bonjour,
Quand on parle de "FormulaLocal" il faut remettre la formule telle qu'elle apparait avec Excel, exemple "If" = "Si"

je dois encore me déplacer mais espère que quelqu'un t'aidera entre temps.
03/07/2013, 15h36
letravailclasanté

mon excel est en anglais, j'ai bien fait un copié collé de la formule telle quelle
03/07/2013, 15h44
Ben_L

Dans Excel, le séparateur de liste est le point-virgule alors que c'est la virgule dans VBA.

Dans votre code

Code:

Sheets("Sheet1").Range("E" & k).FormulaLocal = "=INDEX($B:$B, SMALL(IF($D2=$A:$A, ROW($B:$B)-ROW($B$1)+1), COLUMN(A$1)))"

remplacez les virgules par des points virgules chaque fois que nécessaire.

Cdt
03/07/2013, 19h27
Invité

Citation:

Envoyé par letravailclasanté

cette ligne ne me semble pas très utile, je l'ai donc enlevé mais j'ai toujours le même résultat. J'ai attaché un fichier excel pour vous montrer.

En appliquant la macro, j'ai 1 et 0 qui s'affiche, en appliquant directement la formule, j'ai la bonne réponsePièce jointe 122190

Bonjours,

Quel est la bonne formule dans Excel ? Dans le fichier Excel, le résultat ne donne pas la plus petite valeur ?
Ananas = 5 au lieu de 3 par exemple.