Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Utilisation de données pour un autre fichier

  • Initiateur de la discussion Initiateur de la discussion Gok73
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Gok73

XLDnaute Nouveau
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é
 

Pièces jointes

Bonjour Gok73, Oneida,

Effectivement la demande n'est pas claire, on ne sait pas ce qu'il faut faire.

En attendant il est écrit dans le fichier test-inventairev1.xlsm :
Le lien n'apparait pas avec RECHERCHEV
RECHERCHEV ne copie que les valeurs alors utilisez cette macro dans le code de la feuille :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 6 Or Target.Column <> 2 Then Exit Sub
Dim c As Range
Set c = Columns(7).Find(Target(1), , xlValues, xlWhole)
Target(1, 2).Resize(, 3).ClearContents 'RAZ
If c Is Nothing  Or Target(1) = "" Then Exit Sub
Target(1, 2).Resize(, 3) = c(1, 2).Resize(, 3).Value
If c(1, 4).Hyperlinks.Count Then Hyperlinks.Add Target(1, 4), "", c(1, 4).Hyperlinks(1).SubAddress
End Sub
Elle se déclenche quand on modifie ou valide une cellule en colonne B.

A+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…