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

Microsoft 365 Effectué une recherche dans plusieurs fichiers

L

largo41270

XLDnaute Nouveau
Bonjour a tous

J’ai besoin de votre aide

Je dois effectue une recherche dans plusieurs fichiers excel (environ 20 fichiers) comportant 15 colonnes.

Imaginons que dans tous les fichiers source que la colonne M soit les n° de palettes et en R les n° de pièce

Je voudrais pouvoir effectuer la recherche soit par une partie du n° de palette ou du n° de la pièce et Afficher la ligne complète du fichier dans le cadre résultat et si je clic sur le résultat ca ouvre le fichier

En bas de la feuille j’ai mis des modèles de N° de pièce on constate qu’il y a des parties identique

Pour éviter que ça ram de trop dans le fichier j’ai fait une liste des dossiers ou je dois chercher

Et cellule G4 j’indique dans quel dossier chercher

Je reste a votre disposition et vous remercie d’avance
 

Pièces jointes

  • Classeur2.xlsm
    15 KB · Affichages: 8
Trier par date Trier par votes

job75

XLDnaute Barbatruc
Bonjour largo41270, le forum,

Pour colorer les cellules dans la feuille de restitution il suffit d'ajouter :
VB: 
If plage(i, dercol) <> "" Then .Cells(lig, j + 2).Interior.ColorIndex = 6 'jaune
A+
 

Pièces jointes

  • recherche.zip
    219.6 KB · Affichages: 2
Vote positif 1 Vote négatif
L

largo41270

XLDnaute Nouveau
bonjour job75,
j'ai un petit problème avec le code
quand ca effectue une recherche dans la colonne "s/n" ca ne donne pas dans quelle palette elle ce trouve
et pareille quand rentre une ref Pallet no ca ne nous donne pas les ref S/N qui sont associé

merci d'avance
 

Pièces jointes

  • recherche11.zip
    384.9 KB · Affichages: 0
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour largo41270,
largo41270 à dit:
quand ca effectue une recherche dans la colonne "s/n" ca ne donne pas dans quelle palette elle ce trouve
Cliquez pour agrandir...
La macro du post #31 restitue ce qui est recherché.

Si vous voulez voir toutes les valeurs de la ligne cliquez sur le lien en colonne A, il est fait pour ça.

Maintenant si vous voulez que les 2 colonnes S/N et Pallet No. soient renseignées utilisez :
VB: 
            For j = 0 To 1
                If plage(i, col(j)) <> "" Then
                    If plage(i, col(j)).Text Like cible Then
                        .Hyperlinks.Add .Cells(lig, 1), sf & f.Name, TextToDisplay:=f.Name 'lien hypertecte
                        .Cells(lig, 2) = plage(i, col(0))
                        .Cells(lig, 3) = plage(i, col(1))
                        If plage(i, dercol) <> "" Then .Cells(lig, 2).Resize(, 2).Interior.ColorIndex = 6 'jaune
                        Exit For
                    End If
                End If
            Next j
A+
 

Pièces jointes

  • recherche.zip
    219.7 KB · Affichages: 2
Vote positif 0 Vote négatif
L

largo41270

XLDnaute Nouveau
bonjour job75 et merci

est-ce que c'est possible si on fait une recherche avec cette "K012203110010" dans le dossier "doss1"
il trouves 36 résultats, que sur 10 des résultats je passe les cellules en jaune dans "S/N" et "Pallet no." et que je les attributs au client toto dans la colonne "affaire/client" j'ai un bouton pour enregistrer les modifications dans les fichiers de la colonne "A"
encore merci pour ton boulot
 

Pièces jointes

  • recherche.zip
    222.6 KB · Affichages: 1
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Ah une coquille, il manquait le test If dercol Then sur cette ligne :
VB: 
If dercol Then If plage(i, dercol) <> "" Then .Cells(lig, 2).Resize(, 2).Interior.ColorIndex = 6 'jaune
 

Pièces jointes

  • recherche.zip
    221 KB · Affichages: 2
Vote positif 0 Vote négatif
L

largo41270

XLDnaute Nouveau
job75 à dit:
Vous pouvez toujours :

- cliquer sur un lien en colonne A pour ouvrir le fichier source

- modifier ce fichier, l'enregistrer et le refermer.
Cliquez pour agrandir...
c'est une solution mais qui me fait perdre beaucoup de temp puisque je traite environ 50 a 100 palettes par jour en tapent une partie de la ref palette ca peut donner des résultats qui vont êtres sur plusieurs fichiers
donc je suis obligé ouvrir tous les fichier pour les modifier
c'est pour ca que j'aimerai avoir un bouton pour que l'enregistrement ce face directement
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
largo41270 à dit:
donc je suis obligé ouvrir tous les fichier pour les modifier
Cliquez pour agrandir...

D'accord, alors vous pouvez utiliser cette macro, affectée au 2ème bouton :
VB: 
Sub Modifier_client()
Dim w As Worksheet, c As Range, i&, client$, lig&, fichier$, cc As Range, n&
Set w = Sheets("Feuil1")
If Application.CountIf(w.[F:F], "X") = 0 Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each c In w.[F:F].SpecialCells(xlCellTypeConstants)
    If UCase(c) = "X" Then
        i = c.Row
        client = w.Cells(i, 4)
        lig = Val(w.Cells(i, 5))
        If lig <= 0 Then
            w.Cells(i, 6) = ""
        Else
            fichier = w.Cells(i, 1).Hyperlinks(1).Address
            If Dir(fichier) = "" Then fichier = ThisWorkbook.Path & "\" & fichier
            With Workbooks.Open(fichier).Sheets(1) 'ouvre le fichier
                Set cc = .Cells.Find("AFFAIRE/CLIENT")
                If cc Is Nothing Then
                    w.Cells(i, 6) = ""
                Else
                    n = n + 1
                .Cells(lig, cc.Column) = client
                End If
            .Parent.Close Not cc Is Nothing    'enregistre et ferme le fichier
            End With
        End If
    End If
Next
MsgBox n & " cellule(s) modifiée(s) dans les fichiers sources"
End Sub
Bonne nuit.
 

Pièces jointes

  • recherche.zip
    226.6 KB · Affichages: 0
Dernière édition:
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour largo41270, le forum,

Chez moi au post #41 il fallait cette ligne de code :
VB: 
fichier = ThisWorkbook.Path & "\" & w.Cells(i, 1).Hyperlinks(1).Address
Pour que ça fonctionne dans tous les cas je viens de la remplacer par ces 2 lignes :
VB: 
fichier = w.Cells(i, 1).Hyperlinks(1).Address
If Dir(fichier) = "" Then fichier = ThisWorkbook.Path & "\" & fichier
A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2013 recherche de données sur plusieurs fichiers
Réponses
13
Affichages
420
dysorthographie
L
  • Question
Microsoft 365 recherche X lien entre 2 fichiers
Réponses
3
Affichages
184
lilie17
L
P
  • Question
XL 2019 Recherche une valeur suivant plusieurs critères.
Réponses
4
Affichages
194
Paulle
P
D
  • Résolu(e)
Microsoft 365 Tcd et comparaison tableau logistique
Réponses
8
Affichages
492
Gégé-45550
D
  • Question
XL 2013 Calcul age dans userforme
2
Réponses
22
Affichages
578
patricktoulon
Q
  • Question
XL 2019 vba pour effacer résultat cellules de plusieurs fichiers a partir d'un fichier distant
Réponses
6
Affichages
193
Phil69970
S
  • Résolu(e)
Microsoft 365 Création d'une formule de recherche avec critère
Réponses
6
Affichages
432
Sunny36
S
  • Question
XL 2021 Aide pour recherche intuitive
2
Réponses
16
Affichages
713
jeff1494
H
  • Résolu(e)
Autres la Fonction recherche v
Réponses
4
Affichages
531
HTTPS
H
S
  • Question
XL 2019 Remplacer une partie du texte dans une ligne... Outil de traduction.
Réponses
6
Affichages
471
Cousinhub
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…