Discussion :

[mignane]

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

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

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

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?

[gFZT82]

Bonsoir,

Essaie avec

Code :

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

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

Cordialement.

[mignane]

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

[gFZT82]

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

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

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.

[mignane]

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?

[gFZT82]

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.

[mignane]

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