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

 

[fanfan38]

Bonjour
Ci joint ma solution (par macro)
les plages ont été nommées et sont copiée...
A+ François

 

[mactoche]

super merci François

si je veux faire dans modifications dans la macro je fais comment ?

@+ Christophe

 

[fanfan38]

Tu remets un petit mot sur ce post avec un fichier c'est beaucoup mieux...
A+ François

 

[mactoche]

en faite si je souhaites modifier les données dans les rôles complexes la macro ne fonctionne pas, dans résultat elle m'efface les rôles complexes que j'ai modifié, en PJ pour exemple : j'ai changé le rôle ZX44-22ACV par XXX et il ne s'affiche plus.

 

[fanfan38]

Alors... ça se passe là:
Select Case Sheets("Résultat").Cells(ligResultat, 4).Value
Case Is = "ZS77XACT"
[ZS77XACT].Copy Destination:=Sheets("Résultat").Range("E" & ligResultat)
Case Is = "ZSXC210-X"
[ZSXC210_X].Copy Destination:=Sheets("Résultat").Range("E" & ligResultat)
Case Is = "ZSAQ-WW12"
[ZZSAQ_WW12].Copy Destination:=Sheets("Résultat").Range("E" & ligResultat)
Case Is = "ZERTCC-VV"
[ZERTCC_VV].Copy Destination:=Sheets("Résultat").Range("E" & ligResultat)
Case Is = "ZX44-22ACV"
[ZX44_22ACV].Copy Destination:=Sheets("Résultat").Range("E" & ligResultat)
End Select

explication: quand tu es sur la page "Rôles" tu clic sur l'onglet Formules en haut
ensuite tu choisis "gestionnaire de noms" (a peu près au milieu)
Là tu vois que j'ai nommé les cellules qui correspondent au rôle complex (attention le tiret"-" n'est pas accepté)
donc si tu veux créer un rôle complex "xxx" tu sélectionnes sur cette feuille les rôle individuel et les codes correspondant et tu les nommes dans le gestionnaire de noms...
ensuite tu ajoutes dans la macro (avant end select)
case is="xxx"
[le nom que tu as choisis pour ces cellules].copy Destination:=Sheets("Résultat").Range("E" & ligResultat)

J'espère avoir été clair
A+ François

 

[mactoche]

tu as été très clair

je vais tester ça... j'imagine que c'est personnalisable ? Du style rajouter une colonne "Désignation de rôle" en l'incluant dans le gestionnaire de noms ?

Merci encore
Christophe

 

[Dranreb]

Bonjour.
Autre solution ne nécessitant pas de retouche de macro ni de noms.
Exécution par activation de Feuil3 (Résultat)
Pièce joint supprimée, voir poste #11

 

[mactoche]

Merci @Dranreb et du coup ça fonctionne comment ?

Si je modifie un rôle la feuille résultat la cellule perd la présentation alignement et bordure

Si je modifie toutes les données ça va fonctionner aussi ?

Merci

 

[Dranreb]

La feuille Résultat est entièrement refaite lorsqu'on l'active, à partir des autres feuilles.

 

[Dranreb]

J'ai rectifié une erreur dans les dernières instructions.

 

[mactoche]

Ah ouais c'est magnifique, merci @Dranreb
Et comment je fais si je veux rajouter des colonnes "Désignations" dans la feuille "Roles" et qu'elle s'importe aux "Résultats" ?

Merci
Christophe

 

[Dranreb]

Modifiez en conséquence la Sub Worksheet_Activate de Feuil3 (Résultat)

 

[mactoche]

Ah je n'y arrive pas, j'ai localisé les cellules :

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

pour y rajouter une colonne modifié en :

Set UR = Feuil1.[B2:E2].Resize(Feuil1.[D1000000].End(xlUp).Row - 1)

Mais ça ne fonctionne pas

 

[Dranreb]

Ah non, ce s'est pas suffisant; il faut aussi que les valeurs de 3 colonnes a lieu de 2 soient enregistrées dans le Dictionary et aussi reproduites dans le résultat.