Dans une ListView lorsque je clique sur une ligne seul la première
colonne est sélectée dans la ligne.
Je voudrais sélecter la ligne entière
j'ai fais ceci:
--------------------------------------------------------
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As
MSComctlLib.ColumnHeader)
ListView1.FullRowSelect = True
End Sub
--------------------------------------------------------
Mais je n'ai toujours que la cellule de la colonne 1 de sélectionner
dans la ligne.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Brat'ac,
il vaut mieux le faire à l'initiation du userform
Private Sub UserForm_initialize() With Me.ListView1 .View = 3 ' type Report .Gridlines = True ' affichage de lignes .FullRowSelect = True ' sélection complète de la ligne <------------------ .HideColumnHeaders = False ' afficher les en-têtes de colonnes .LabelEdit = 1 ' ne pas autoriser la saisie End With End Sub
-- isabelle
Le 2012-05-04 12:35, Brat'ac a écrit :
Bonjour,
Dans une ListView lorsque je clique sur une ligne seul la première colonne est sélectée dans la ligne.
Je voudrais sélecter la ligne entière j'ai fais ceci: -------------------------------------------------------- Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) ListView1.FullRowSelect = True End Sub -------------------------------------------------------- Mais je n'ai toujours que la cellule de la colonne 1 de sélectionner dans la ligne.
J'ai fais quoi comme bêtise ?
Merci
bonjour Brat'ac,
il vaut mieux le faire à l'initiation du userform
Private Sub UserForm_initialize()
With Me.ListView1
.View = 3 ' type Report
.Gridlines = True ' affichage de lignes
.FullRowSelect = True ' sélection complète de la ligne <------------------
.HideColumnHeaders = False ' afficher les en-têtes de colonnes
.LabelEdit = 1 ' ne pas autoriser la saisie
End With
End Sub
--
isabelle
Le 2012-05-04 12:35, Brat'ac a écrit :
Bonjour,
Dans une ListView lorsque je clique sur une ligne seul la première colonne est sélectée dans la ligne.
Je voudrais sélecter la ligne entière
j'ai fais ceci:
--------------------------------------------------------
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView1.FullRowSelect = True
End Sub
--------------------------------------------------------
Mais je n'ai toujours que la cellule de la colonne 1 de sélectionner dans la ligne.
Private Sub UserForm_initialize() With Me.ListView1 .View = 3 ' type Report .Gridlines = True ' affichage de lignes .FullRowSelect = True ' sélection complète de la ligne <------------------ .HideColumnHeaders = False ' afficher les en-têtes de colonnes .LabelEdit = 1 ' ne pas autoriser la saisie End With End Sub
-- isabelle
Le 2012-05-04 12:35, Brat'ac a écrit :
Bonjour,
Dans une ListView lorsque je clique sur une ligne seul la première colonne est sélectée dans la ligne.
Je voudrais sélecter la ligne entière j'ai fais ceci: -------------------------------------------------------- Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) ListView1.FullRowSelect = True End Sub -------------------------------------------------------- Mais je n'ai toujours que la cellule de la colonne 1 de sélectionner dans la ligne.
J'ai fais quoi comme bêtise ?
Merci
Brat'ac
isabelle avait prétendu :
bonjour Brat'ac,
il vaut mieux le faire à l'initiation du userform
Private Sub UserForm_initialize() With Me.ListView1 .View = 3 ' type Report .Gridlines = True ' affichage de lignes .FullRowSelect = True ' sélection complète de la ligne <------------------ .HideColumnHeaders = False ' afficher les en-têtes de colonnes .LabelEdit = 1 ' ne pas autoriser la saisie End With End Sub
Merci Isabelle, c'est OK
Bonne soirée.
isabelle avait prétendu :
bonjour Brat'ac,
il vaut mieux le faire à l'initiation du userform
Private Sub UserForm_initialize()
With Me.ListView1
.View = 3 ' type Report
.Gridlines = True ' affichage de lignes
.FullRowSelect = True ' sélection complète de la ligne
<------------------
.HideColumnHeaders = False ' afficher les en-têtes de colonnes
.LabelEdit = 1 ' ne pas autoriser la saisie
End With
End Sub
Private Sub UserForm_initialize() With Me.ListView1 .View = 3 ' type Report .Gridlines = True ' affichage de lignes .FullRowSelect = True ' sélection complète de la ligne <------------------ .HideColumnHeaders = False ' afficher les en-têtes de colonnes .LabelEdit = 1 ' ne pas autoriser la saisie End With End Sub
