Discussion :

[soazig]

Bonjour,
J'aimerai afficher ou cacher des colonnes d'un Datagrid dynamiquement, c'est à dire sur sélection dans une combo, j'affiche ou non une certaine colonne.
J'appelle la procédure suivante sur click sur ma combo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Public Sub subAfficherColconv()
    Dim bAfficher As Boolean
    bAfficher = (cb2Categorie.Text = cstMutuelle)
        DataGridListeIdentifiant.Columns(edeb_conv).Visible = bAfficher
        DataGridListeIdentifiant.Refresh
End Sub

Si je sélectionne dans ma combo de façon à cacher la colonne, la colonne qui auparavant était affichée est cachée, jusque là c'est normal.
Mais si j'essaie de rafficher la colonne, elle n'est pas affichée mais j'ai quand même DataGridListeIdentifiant.Columns(edeb_conv).Visible = True.

NB le booléen bAfficher est bien à Faux quand je veux afficher la colonne, il n'y a pas d'erreur la dessus.
Lorsque la colonne est supposée être affichée on a bien
DataGridListeIdentifiant.Columns(edeb_conv).Visible = True

Je suis perdue
Pouvez-vous m'aider?
Merci beaucoup

[STG]

En inversant les lignes de codes cela donne quoi ?

En remplaçant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Public Sub subAfficherColconv() 
    Dim bAfficher As Boolean 
    bAfficher = (cb2Categorie.Text = cstMutuelle) 
        DataGridListeIdentifiant.Columns(edeb_conv).Visible = bAfficher 
        DataGridListeIdentifiant.Refresh 
End Sub

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Public Sub subAfficherColconv() 
    Dim bAfficher As Boolean 
    bAfficher = (cb2Categorie.Text = cstMutuelle) 
        DataGridListeIdentifiant.Refresh 
        DataGridListeIdentifiant.Columns(edeb_conv).Visible = bAfficher 
End Sub

[soazig]

Pas mieux.
A mon avis le Refresh ne sert à rien.
J'ai également essayé de redimensionner le datagrid , pour provoquer un réaffichage.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'        DataGridListeIdentifiant.Width = DataGridListeIdentifiant.Width - 100
        DataGridListeIdentifiant.Width = DataGridListeIdentifiant.Width + 100

Sans plus de résultat.
D'autres idées?

[bidou]

essayes un redimensionnement de la colonne

[soazig]

J'ai essayé, voir ci dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Sub subAfficherColconv()
    Dim bAfficher As Boolean
    bAfficher = (cb2Categorie.Code = cstMutuelle) Or (cb2Categorie.Code = "")
 
        If bAfficher Then
            DataGridListeIdentifiant.Columns(edeb_conv).Width = 500
        Else
            DataGridListeIdentifiant.Columns(edeb_conv).Width = 0
        End If
        DataGridListeIdentifiant.Refresh
 End Sub

Ca ne marche pas mieux. Merci quand même.

[bidou]

j'ai fais le test suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_Activate()
 
Dim compteur As Long
 
For compteur = 0 To DataGrid1.Columns.Count - 1
Combo1.AddItem DataGrid1.Columns(compteur).Caption
Next compteur
 
End Sub

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Combo1_Click()
 
    DataGrid1.Columns(Combo1.ListIndex).Visible = Not DataGrid1.Columns(Combo1.ListIndex).Visible
 
End Sub

en selectionnant dans le combo j'ai bien l'affichage/masquage qui fonctionne parfaitement.
Par contre dans certains cas, le datagrid fait un scroll horizontale ce qui fait que la colonne n'apparait pas si je ne rescrolle pas

[soazig]

Merci Bidou,
En fait le problème vient du fait que c'est la première colonne (0) que je cache, si je cache une autre colonne pas de problème.
Mais ça ne m'arrange pas pour autant, ma colonne reste toujours cachée.
En fait j'ai trouvé, comme tu as parlé d'un problème de scrolling, j'ai défini la propriété leftcol et ça marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Public Sub subAfficherColconv()
    Dim bAfficher As Boolean
    bAfficher = (cb2Categorie.Code = cstMutuelle)
 
        DataGridListeIdentifiant.Columns(edeb_conv).Visible = bAfficher
        If bAfficher Then
            DataGridListeIdentifiant.LeftCol = edeb_conv
        End If
End Sub

Merci beaucoup, je vais de ce pas mettre résolu dans le titre.
NB: C'est bien ce que je disais le Refresh ne servait à rien