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

mactoche

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

Pièces jointes

  • Export_Forum_v2.xlsm
    36.1 KB · Affichages: 2

fanfan38

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

XLDnaute Nouveau
Ah je n'y arrive pas, j'ai localisé les cellules :
VB:
Set UR = Feuil1.[B2:D2].Resize(Feuil1.[D1000000].End(xlUp).Row - 1)
pour y rajouter une colonne modifié en :
Code:
Set UR = Feuil1.[B2:E2].Resize(Feuil1.[D1000000].End(xlUp).Row - 1)

Mais ça ne fonctionne pas
 

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib