Bonjour,
Je cherche à faire une fonction qui me permet de construire une synthèse bi-dimensionnelle d'une liste.
Je m'explique : j'ai un onglet avec une liste de "Fonctionnalités", chacune d'entre elles étant associées à une Version.
Je cherche ensuite à proposer une vision bièdimensionnelle qui me propose la liste des Modules en ligne, en colonne, le contenu de chaque version
Cherchant à faire simple, j'ai créé une fonction "Module_Version" prenant en paramètre la fonction et la version et qui va chercher la liste des fonctionnalités, que j'appelle pour chaque croisement de mon tableau
Code :
- =Version_Fonction($A3;$C$2)
|
le résultat étant la copie d'écran ci-dessus.
Je cherche désormais à avoir un formatage conditionnel de la fonction suivant son état de Dev (disons, que soient en gras ce qui a été développé). J'ai vu les caractéristiques ".Font.Bold" par exemple, mais cela s'applique sur une cellule. Or, je me base sur une variable, donc comment faire pour que je puisse effectuer cette mise en forme dans cette procédure ?
Code :
- Function Version_Fonction(fonction As String, Version As String)
-
- Dim temp_lib As String
- Dim lig_fonction, lig_version As String
- Dim wsExcel As Excel.Worksheet 'Feuille Excel
- Dim i, idxCol, NiveauVisu, lig_niveau As Integer
-
- 'wsExcel correspond à la l'onglet à retraiter (corps)
- Set wsExcel = Sheets("Backlog" )
- temp_lib = ""
- idxCol = 3
- rc = vbCrLf
-
- For i = 1 To 500 Step 1
- lig_fonction = wsExcel.Cells(i, 2)
- lig_version = wsExcel.Cells(i, 9)
- 'lig_niveau = wsExcel.Cells(i, 5)
- If lig_fonction = fonction And lig_version = Version And NiveauVisu >= lig_niveau Then
- temp_lib = temp_lib & wsExcel.Cells(i, idxCol) & rc
- End If
- Next i
- Version_Fonction = temp_lib
- End Function
|
Merci de votre aide
PS : Ce n'est certainement pas le plus optimisé, mais c'est un outil de reporting interne basique
