XL 2013 Mise en forme, insertion et récupération de cellules automatique (macro)

[mactoche]

Bonjour à tous

Tout nouvel inscrit sur le forum que je parcours depuis un petit moment lorsque je commence a bloquer sur excel.

Je me trouve aujourd'hui a vouloir semi-automatiser un process d'exportation de 2 applications sous forme de feuille excel pour une meilleur lecture.

Voici mon problème (fichier joint)

J'ai 3 feuilles dans mon classeur :
Feuille1 (User) récupère mes utilisateurs avec leurs rôles complexes
Feuille2 (Rôles) récupère les rôles complexes qui englobes des rôles simple, qui englobes eux mêmes des codes

Je cherche tout simplement a récupérer le détail de chaque rôles complexes attribués aux utilisateurs afin d'avoir un tableau clair et lisible

Sur la Feuille3 (Résultat) c'est le résultat souhaité

Merci d'avance pour vos réponses
Christophe

 

[mactoche]

ah ok je suis perdu 🙁

 

[Dranreb]

Cherchez encore …
Vous n'avez pas bien localisé l'instruction récupérant les rôles. Si aussi les objets Worksheet représentant les feuilles "User" et "Rôles" s'appelaient WshUser et WshRôle au lieu de Feuil1 et Feuil2, ce serait plus facile de s'y retrouver.

 

[mactoche]

J'ai rajouté une colonne "Désignation" sur Feuill2 en position D
Et j'ai changé ceci :

Set UR = Feuil2.[A2:D2].Resize(Feuil2.[D1000000].End(xlUp).Row - 1)

.....

With Me.[B2:G1001]

.....

With Me.[B2:G2].Resize(LR)

Du coup en Feuill3 (Résultat) j'ai la colonne G qui apparait avec les notions = #N/A

Je ne dois plus être très loin 🙂

Christophe

 

[Dranreb]

Probablement.
Peut être oublié TR(LR, 6) = TD(LD, 3) ?
Je joins le corrigé (à regarder après, si vous voulez)

 

[mactoche]

Merci @Dranreb
C'est super

J'ai testé et j'ai réussi a rajouter d'autres colonnes, merci encore c'est top !
Christophe