Faire une rechercheV à partir d'une variable tableau.

Signaler
Messages postés
24
Date d'inscription
mercredi 29 mai 2019
Statut
Membre
Dernière intervention
9 janvier 2021
-
Messages postés
15519
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 janvier 2021
-
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

Messages postés
15519
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 janvier 2021
1 432
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