Remplir un tableau: l'équivalent en macro vba de la combinaison des fonctions excel index+equiv

Bonsoir chers amis,
Je souhaiterai remplir un tableau de données mais en utilisant une macro. En effet, d'habitude j'utilise la combinaison des fonction index et equiv. Cependant, lorsque je dois traité 15000 lignes, l'analyse est très lente et cela me retarde considérablement. Quelqu'un pourrait-il m'aider à résoudre ce problème.
J'ai mis en pièce jointe un fichier excel qui illustre ce que j'aimerai faire mais je souhaiterai avoir une macro qui me le fasse.
Merci d'avance.
Mignane

bonsoir,
pour un premier début de solution j'utilise la fonction evaluate mais lorsque je fait référence à une rangée de cellule dans la feuil1 ça ne fonctionne pas.
Ci-dessous mon cas test pour une ligne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() Dim i, j As Integer Dim cond1, cond2 As Double Dim cond3 As Double With Worksheets("Feuil2") cond1 = Range("J4") 'element cond2 = Range("J5") 'noeud cond3 = Range("C15") 'condition .Cells(15, 8) = Evaluate("index(Feuil1!AE8:AE1300,match(1,(Feuil1!C8:C1300 = " & cond1 & ")*(Feuil1!E8:E1300 = " & cond2 & ")*(Feuil1!B8:B1300 = " & cond3 & "),0))") End With End Sub

---

Auriez-vous une idée?

Bonsoir,

Essaie avec

Code:

---

.Cells(15, 8) = Evaluate("index(Feuil1!AE8:AE1300,match(1,(Feuil1!C8:C1300 = """ & cond1 & """)*(Feuil1!E8:E1300 = """ & cond2 & """)*(Feuil1!B8:B1300 = " & cond3 & "),0))")

---

Cordialement.

Bonsoir,
ça marche mais pourquoi on utilise les 3 guillemets (""")?

Citation:

---

ça marche mais pourquoi on utilise les 3 guillemets (""") ?

---

Lorsque tu effectues une recherche de texte, tu indiques qu’il s’agit d’une chaine de caractères en encadrant ce texte avec des quotes.
Exemple : 213 est un nombre alors que "213" est une chaine de caractères.
Dans ton cas, les 2 variables cond1 et cond2 sont des chaines de caractères, il faut donc les encadrer avec des quotes.
De plus, avec VBA pour transcrire une quote, tu dois la doubler.
Tu peux faire le test suivant pour visualiser la différence.

Code:

---

1 2 3 4 5 6 7

Sub Test() cond1 = "201L-202L" cond2 = "201L" cond3 = 37 Debug.Print "index(Feuil1!AE8:AE1300,match(1,(Feuil1!C8:C1300 = " & cond1 & ")*(Feuil1!E8:E1300 = " & cond2 & ")*(Feuil1!B8:B1300 = " & cond3 & "),0))" Debug.Print "index(Feuil1!AE8:AE1300,match(1,(Feuil1!C8:C1300 = """ & cond1 & """)*(Feuil1!E8:E1300 = """ & cond2 & """)*(Feuil1!B8:B1300 = " & cond3 & "),0))" End Sub

---

Cordialement.

Merci pour l'exemple.
J'ai réussi à appliquer cette macro sur mon cas mais je n'ai vraiment rien gagner en temps de calcul. Y a-t-il un moyen d'améliorer ce temps de calcul.
Si oui? comment?

Dans l’exemple donné, tu inscris une valeur recherchée en Feuil2!H8 en fonction de paramètres inscrits en J4, J5 et C15 de Feuil1.
Il est difficile de voir en quoi le temps de calcul pose problème.
Bien que tu fasses état de 15000 lignes, on ne voit rien transpirer dans ton code.

Bonjour,
Sur le fichier joint, je n'ai mis qu'une petite partie des valeurs à exploiter et j'ai fait une copie des valeurs (normalement ya tout un processus de calcul avant). Mon fichier réel fait 50 Mo et rien que pour l'ouvrir ça rame.
Merci encore pour votre aide je vais mettre le sujet en mode résolu.
Cordialement.
Mignane