XL 2016 Objet ListObjects

[Merlin258413]

Bonjour j'ai essayé de reprendre ce bout code sur un fichier qui fonctionne parfaitement.
Lorsque j'essaie de l'implanter dans mon nouveau projet
J'ai un message d'erreur Erreur d’exécution '9' L'indice n'appartient pas à la sélection.
Je n'arrive pas à savoir pourquoi

Option Explicit
Sub COMPLETUDE()
Dim ColDate&, Te(), Le&, TLgn&(), Ts(), Ls&, Ls1erBU&, Ls1Acti&, _
   BU As SsGroup, ACTI As SsGroup, Prog As SsGroup, PRESTA As SsGroup, _
   Montant As Currency, Détail, c&, Cel As Range

Rem. ——— Chargement des données
With FBase.ListObjects("BASE").Range

Il bloque sur With FBase.ListObjects("BASE").Range
Pouvez vous m'aider ?
En vous remerciant

 

[Staple1600]

Bonsoir le fil, Merlin258413

Merlin258413
Tu n'as pas de tableau structuré (ou ListObject) nommé BASE dans ton classeur joint.
C'est donc normal, qu'Excel tousse sur cette ligne
With FBase.ListObjects("BASE").Range

PS: Je laisse Dranreb prendre la suite puisqu'on reconnait sa patte à la lecture du code VBA de ton fichier exemple.

 

[Dranreb]

Bonsoir.
Je n'ai rien à ajouter pour le moment, pas de ListObject dans FBase.
Mais beaucoup de références je trouve, dont une demi douzaine portées MANQUANT chez moi.
Et pas les modules de services qu'il faut.
Quitte à mettre des références, mettez celle à GigIdx juste après l'avoir installé. Lui il a tout ce qu'il lui faut.
À changer alors: SsGroupe en SsGr, GroupOrg en Gigogne et Contenu en Co.
Marrant comme on retrouve longtemps après des vieilleries comme ça …

 

[Merlin258413]

Bonjour merci pour votre aide, avec vos recommandations et piste je vais continuer à travailler sur le fichier.
Dranreb encore merci 4 ans après j'utilise encore vos connaissances de VBA