Faire une rechercheV à partir d'une variable tableau.

Fermé
Steinned Messages postés 24 Date d'inscription mercredi 29 mai 2019 Statut Membre Dernière intervention 9 janvier 2021 - 9 janv. 2021 à 15:48
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 9 janv. 2021 à 17:46
Bonjour,

J'essaye de faire une rechercheV sous VBA en utilisant un tableau enregistrer sous VBA car mon temps de calcul est trop long.

J'ai donc commencé par enregistrer mes valeurs dans un module sous le format suivant :


Option Explicit
Sub Tableau_Matériaux()

With Sheets("Base de donnée - Matériaux")
Dim tableau(955, 3)
Dim i As Integer
For i = 0 To 955
tableau(i, 0) = Range("A" & i + 3)
tableau(i, 1) = Range("B" & i + 3)
tableau(i, 2) = Range("C" & i + 3)
Next
End With
End Sub


et c'est à partir de ce moment que ça bloque je n'arrive pas à utiliser le tableau pour la rechercheV.
Je précise que j'utilisé un autre code avant mais que comme il est trop long pour faire le calcul j'ai décider d'utiliser un tableau.
Je vous le mets en copie si jamais quelqu'un à une idée sur comment faire.


Option Explicit
Option Compare Text

'Permet de faire une rechercheV pour les matériaux

Sub Matériaux()

Dim j%, i%

Range("o5:o2000,q5:q2000") = Empty

For j = 5 To 2000
For i = 508 To Range("a9999").End(xlUp).Row
If Range("m" & j) = Range("a" & i) Then
Range("o" & j) = Range("b" & i)
Range("q" & j) = Range("c" & i)
Exit For
End If
Next i
Next j

End Sub

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 9 janv. 2021 à 17:54
Bonjour,

Pouvez mettre un fichier a dispo avec des donnees non confidentielles mais cohérentes?
Sauf erreur de ma part, une seule boucle est nécessaire
0