Bonjour,
Je me décide à écrire un petit post, car après 2h de recherche, je n'arrive toujours pas à faire ce que je souhaite, c'est à dire coloriser les cellules définies d'un DataGrid.
Voici ma fonction de base :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Private Sub ColorCells(ByRef a_DataToColor As Array, _ ByVal myColor As Color, _ ByRef myO_DataGrid As DataGrid) Dim nbrOfRow_DG As Int32 = CType(myO_DataGrid.DataSource, DataTable).Rows.Count Dim nbrOfCol_DG As Int32 = myO_DataGrid.VisibleColumnCount ' On parcours toutes les lignes du DG... For i As Int32 = 0 To nbrOfRow_DG ' ...puis toutes les colonnes For j As Int32 = 0 To nbrOfCol_DG CType(myO_DataGrid.Item(i, j), ????).BackColor = myColor Next Next end sub
<a_DataToColor> est un tableau de boolean qui indique si les cellules à colorier( non implémenté ici) et <myO_DataGrid> indique le dataGrid instancié du form (et <myColor> la couleur ).
Il faut surement Cast"er" la cellule récupérée, mais j'ai que du texte avec les objet que j'ai essayé, donc que dois-je mettre à la place de ???? si j'utilise la bon principe ?
Merci bien de votre aide, car ça doit être tout bête...mais malgré mes tests et recherche, je n'y arrive pas.
Joyeux Noël en avance !
Damien.
Partager