Microsoft 365 Ventilations de datas provenant de plusieurs feuilles

Druddy

XLDnaute Nouveau
Supporter XLD
Bonjour à Tous,

Nouvellement Manager d'une équipe de Hotline, je cherche à ventiler des données provenant de plusieurs feuilles vers une (Menu). Les Datas provenants de 3 fichiers que je mets à jours via un code et des GetOpenFilename.
L'intervenant sélectionne un Site Code et clic sur "Go" pour avoir les informations correspondantes.
Le "Reset" sert à purger l'affichage obtenu pour une nouvelle recherche.
Pouvez-vous me dire si cela est réalisable ou bien si vous avez une autre approche ?

On m'a parlé de Power BI mais je viens de débuter les tutos pour apprendre.

Je vous joins mon fichier et les datas sont anonymes.

Je vous remercie d'avance de l'intérêt que vous porterez à mon projet.
 

Pièces jointes

  • Projet SiteCode InfosV2.xlsm
    56.7 KB · Affichages: 7

Druddy

XLDnaute Nouveau
Supporter XLD
Bonjour,
Je ne sais pas si tu as eu une réponse sur l'autre site !
Voilà ce que j'avais fait
Jean marie
Bonjour et Merci ChTi60.

C'est exactement ça que je recherche.
Maintenant il faut que j'arrive à rapatrier le fichier sur mon laptop de boulot et pas facile car mon administrateur bloque les macros.
Peut-être en ajoutant le code dans un txt ?
Merci encore pour ce super boulot
 
Dernière édition:

Druddy

XLDnaute Nouveau
Supporter XLD
Hello tout le monde j'arrive à la fin de mon projet et encore mille mercis à ChTi160
Il me reste qq petits soucis comme rapatrier un lien hypertexte pour la 2ème cellule (Colonne 2 de ma table ne contient que des liens hypertexte.


VB:
For Lgn = 1 To UBound(Tbl_Topology, 1)
  If Tbl_Topology(Lgn, 1) Like StrSiteCode Then
  x = x + 1
    ReDim Preserve Tbl_R_Topology(31, x)
     Tbl_R_Topology(1, x) = StrSiteCode
     Tbl_R_Topology(2, x) = Tbl_Topology(Lgn, 2)
     Tbl_R_Topology(3, x) = Tbl_Topology(Lgn, 3)
     Tbl_R_Topology(4, x) = Tbl_Topology(Lgn, 4)
     Tbl_R_Topology(5, x) = Tbl_Topology(Lgn, 5)
     Tbl_R_Topology(6, x) = Tbl_Topology(Lgn, 6)
  End If
Next Lgn
If x > 0 Then
 Feuil1.Cells(31, 1).Resize(UBound(Tbl_R_Topology, 2), UBound(Tbl_R_Topology, 1)) = Application.Transpose(Tbl_R_Topology)

Je vous remercie par avance,
 

Druddy

XLDnaute Nouveau
Supporter XLD
Bonsoir Druddy
pourquoi dans
VB:
ReDim Preserve Tbl_R_Topology(31, x)
Tu as 31 lignes alors que tu n'en remplies que 6
Ou alors je n'ai pas compris
Jean marie
Bonjour Jean-Marie,
Désolé C'est le script adapté à mon projet final.
Je remets mon exemple avec les hyperlinks dans l'onglet SiteContacts que j'aimerais retrouver et actifs dans mon menu correspondant à la recherche.

Je te remercie par avance,
 

Pièces jointes

  • Projet SiteCode Exemple Chti160-1.xls
    131 KB · Affichages: 2
Dernière édition:

Statistiques des forums

Discussions
292 942
Messages
1 927 370
Membres
183 525
dernier inscrit
testapp