Utilisation de données pour un autre fichier en Cross

VBA
1

Bonjour à tous !

Pour des raisons de volume, j’ai rétréci mon fichier qui fait 8Mo…Les Racks allant de A à R

Je souhaiterais intégrer un moteur de recherche. Je l’avais demandé précédemment dans un autre message, que j’ai clôturé parce que j’avais très mal structuré le tableau ! J’ai refait le tableau de façon à ce sut cela soit simple. Le fichier en question est « Plan chambre Froide-test.xlsm » Le fichier complet fait 8Mo allant de A à R pour 576000 emplacements en tout !

J’ai, dans le même temps, un autre fichier qui contient un moteur de recherche 100% opérationnel (le fichier « Test-inventaire1.xlsm ») Ma question est la suivante : peut-on utiliser les codes du fichier inventaire pour le gros fichier « Plan chambre froide-test »

Le truc de cool qu’il y a sur le « test inventaire » est qu’il s’adapte dès que j’ajoute une ligne. Ce serait bien de pouvoir utiliser les mêmes lignes sur la « chambre froide »

Merci d’avance la communauté
Plan Chambre Froide-test.xlsm (1,1 Mo)
test-inventairev1.xlsm (127,0 Ko)

2

oui, c’est possible …

3

J’ai trouvé cela :
Sub MoteurDeRecherche()
motclé = InputBox(« Numéro de plan à chercher : », « Moteur de recherche », « Exemple: 315068 »)
For Each ws In Worksheets
With ws.Columns(« b:b »)
Set re = .Find(motclé, lookat:=xlWhole)
If Not re Is Nothing Then
fa = re.Address
Do
ws.Activate
re.Select
Exit Sub
Set re = .FindNext(re)
Loop Until re Is Nothing Or re.Address = fa
End If
End With
Next
End Sub

Et, ça fonctionne super bien !! Enfin !! :v:

4

amusant, c’est (sauf quelque détails) la macro que j’avais mis dans la réponse de la question précédente.
Quelle est l’advantage d’utiliser 18 feuilles de 40K lignes au lieu d’une feuille avec 700K lignes ?
Une feuille est plus pratique, il faut juste ajouter une colonne pour le « Rack ».
C’est quoi l’advantage du « FindNext » ? Normallement les labels sont uniques, non ?