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

mactoche

XLDnaute Nouveau
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
 

Pièces jointes

  • Export_Forum.xlsx
    15.3 KB · Affichages: 7

Dranreb

XLDnaute Barbatruc
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.
 
Dernière édition:

mactoche

XLDnaute Nouveau
J'ai rajouté une colonne "Désignation" sur Feuill2 en position D
Et j'ai changé ceci :
VB:
Set UR = Feuil2.[A2:D2].Resize(Feuil2.[D1000000].End(xlUp).Row - 1)
.....
Code:
With Me.[B2:G1001]
.....
Code:
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