XL 2019 table des matières

[Yvon M]

bonjour
je suis en train de créer une tables des matières, avec les lien vers les fichiers concernés.
je voudrais dans une box ou cellule, entrée un mot ou une partie d'un mot, pour que un tri se fasse sur les lignes ou ce dernier et trouver.
suis arriver a avoir un résultat mais je n'obtient que la premiere ligne, contenant ma recherche.
en vous remerciant, d'avance,
mes salutations

 

[Yvon M]

bonjour
ca marche tres bien,
juste une question, se fichier est sur cle USB, lorsque je change de pc la lettre change
j'ai une cellule dans la feuilles paramètre, ou se trouve l'adresse des fichier a ouvrir "/d:/_______"
et t'il possible sur Excel de récupérer la lettre du lecteur, pour modifier cette cellule automatiquement.?
la je vois peu etre un peu loin!
merci beaucoup, pour ton aide.
cordialement
Yvon

 

[AtTheOne]

Bonsoir à toutes & à tous, bonsoir @Yvon M

récupérer la lettre du lecteur

C'est possible avec cette formule : =GAUCHE(CELLULE("nomfichier");2)
Amicalement
Alain

 

[Yvon M]

oui, a force de chercher j'ai trouver
je vous remercie, pour votre aide
salutations

 

[Yvon M]

bonjour a tous
je revient vers vous ,car mon fichier a évolué, plus de colonne et de ligne.
du coup ma macro plante, et je n'arrive pas comprendre ou se situe le problème.
erreur d'execution "9" l'indice n'appartient pas a la selection.
en débogage ca me met en jaune la ligne suivante
"TbAll = Worksheets("Table des Matières").ListObjects("_Tdm").DataBodyRange.Value"
merci d'avance pour votre aide

Option Base 1
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
    'Sortir si La modif ne provient pas du mot clef
    If Intersect(Target, [_Mot_Clef]) Is Nothing Then Exit Sub
    
    Dim Tb, MotClef$, Extrait(), Article, Nb_Articles As Long, i As Long
    
    'RàZ de l'extraction
    [_Extraction].ClearContents
    With Me.ListObjects("_Extraction")
        .Resize .HeaderRowRange.Resize(2)
    End With
    
    MotClef = [_Mot_Clef]
    'Sortir si le mot clef est vide
    If MotClef = "" Then Exit Sub
    
    'Liste des articles
    TbAll = Worksheets("Table des Matières").ListObjects("_Tdm").DataBodyRange.Value
    Tb = Worksheets("Table des Matières").[_TdM[Article / Sujet]]
    Tb_Lien = Worksheets("Table des Matières").[_TdM[Magazines]].FormulaR1C1
    For i = 1 To UBound(Tb)
       TbAll(i, 5) = Tb_Lien(i, 1)
    Next i
    'Recherche des articles qui correspondent
    Nb_Articles = 0
    i = 0
    For Each Article In Tb
        i = i + 1
        If sansaccent(CStr(Article)) Like "*" & sansaccent(MotClef) & "*" Then
            Nb_Articles = Nb_Articles + 1
            ReDim Preserve Extrait(Nb_Articles)
            Extrait(Nb_Articles) = i
        End If
    Next
    
    'Restitution du résultat de la recherche
    If Nb_Articles > 0 Then
        ReDim Tb_Res(1 To Nb_Articles, 1 To 9)
        For i = 1 To Nb_Articles: For j = 1 To 9
            Tb_Res(i, j) = TbAll(Extrait(i), j)
        Next j: Next i
        
        With Me.ListObjects("_Extraction")
            .Resize .HeaderRowRange.Resize(Nb_Articles + 1)
            .Range.Offset(1).Resize(Nb_Articles).FormulaR1C1 = Tb_Res
        End With
    End If
End Sub

 

[AtTheOne]

Bonjour à toutes & à tous, bonjour @Yvon M
Avec les informations que tu donnes

en débogage ca me met en jaune la ligne suivante
"TbAll = Worksheets("Table des Matières").ListObjects("_Tdm").DataBodyRange.Value"

Soit la feuille "Table des Matières" soit le Tableau structuré "_Tdm" n'existe pas orthographié exactement de cette façon.
À bientôt

 

[Yvon M]

après verification tout semble correct, mais défaut toujours la
je voulait mettre le fichier, mais trop gros pour ici.
merci de te pencher sur mon problème

 

[Staple1600]

Bonjour le fil

@Yvon M
[Pour infos]
On ne joint jamais le fichier original
Mais un fichier exemple allégé et anonymisé
Et si la taille du fichier exemple est encore conséquente, tu peux compresser le classeur et joindre le *.zip obtenu

 

[Yvon M]

fichier ou j'ai supprimer pas mal de lignes ,et enregistrer en binaire, puis zipper.

 

[Staple1600]

Re

Heureusement que j'avais précisé allégé

 

[AtTheOne]

re
@Yvon M ,
Comme je te le disais au post #20, dans ton exemple la feuille "Table des Matières" ne contient plus de tableau structuré donc encore moins le tableau "_Tdm" !
(Sans compter tous les #REF!)

 

[Yvon M]

les #ref son des liens qui vont chercher la revus
sur un fichier simplifier ,ancien models avec moins de colonnes, ca ressemble a la meme chose, et ca fonctionne, quand je clic dans la fenêtre en haut a gauche ,je retrouve bien _TdM, qui me ramène au tableau table des matière .plus bosser sur excel depuis mon depart en retraite ,je commence a rouiller.
merci pour ton aide

 

[Yvon M]

ok ,merci de ton aide ,je n'ai plus le défaut, j'ai structurer le tableau,
je me rappeler plus cette étape, je fini de mettre au point,pour voir si d'autre Pb surviennent.
encore merci, pour ton aide a me rafraichir la mémoire.