Discussion :

[c.piette]

Bonjour bonjour,

J'ai créé un formulaire pour compléter un ListView. J'aimerais que l'utilisateur puisse modifier l'un de ces lignes si celui-ci le désirait. J'aimerais donc que lorsque l'utilisateur clique sur une ligne, le contenu de cette ligne (2 colonnes en tout), soit retranscrit. La première colonne dans un ComboBox et la Deuxième dans un TextBox. Cependant, mon code ne semble pas fonctionné. J'ai une erreur du type:

"Erreur d'exécution 91 : Variable objet ou variable de bloc With non définie".

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
Private Sub ListViewDefinitionActivites_ItemClick(ByVal Item As MSComctlLib.ListItem)
 
'#### Lors qu'une ligne est sélectionnée, le contenu de cette ligne est transféré dans les objets associés.
 
ComboBoxCriteresAlimentes.Text = ListViewDefinitionActivites.SelectedItem.ListSubItems(0).Text
TextBoxPoints.Text = ListViewDefinitionActivites.SelectedItem.ListSubItems(1).Text
 
End Sub

Merci d'avance pour l'aide

[joe.levrai]

Bonjour,

si tu veux ajouter le contenu de la colonne 1 dans un combobox, il faut utiliser la méthode Add de l'objet Combobox

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub ListViewDefinitionActivites_ItemClick(ByVal Item As MSComctlLib.ListItem)
 
'#### Lors qu'une ligne est sélectionnée, le contenu de cette ligne est transféré dans les objets associés.
 
ComboBoxCriteresAlimentes.Add ListViewDefinitionActivites.SelectedItem.ListSubItems(0)
TextBoxPoints.Text = ListViewDefinitionActivites.SelectedItem.ListSubItems(1).Text
 
End Sub

et si tu veux que la valeur de la colonne 1 soit affichée par défaut dans ton combobox, tu ajoutes cette ligne après le Add du combobox

Code :

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

1
2
 
ComboBoxCriteresAlimentes.value = ListViewDefinitionActivites.SelectedItem.ListSubItems(0)

[c.piette]

Bonjour,


Merci pour ta réponse. Cependant cela e fonctionne toujours pas :/


J'ai même essayé en ne laissant que la ligne de code permettant de remplir la TextBox mais rien n'y fait... La même erreur s'affiche :/


Que faire ?

[joe.levrai]

Olala, ça m'apprendra à pas tester

bon alors, mea culpa pour la coquille, c'est la méthode AddItem et pas Add !

ensuite, tu indiques vouloir récupérer la colonne 1 dans ton combobox, mais tu pointes sur la seconde colonne:

SelectedItem : première colonne
ListSubItems(1) : deuxième colonne
ListSubItems(2) : troisième colonne
etc...

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub ListViewDefinitionActivites_ItemClick(ByVal Item As MSComctlLib.ListItem)
 
'#### Lors qu'une ligne est sélectionnée, le contenu de cette ligne est transféré dans les objets associés.
 
ComboBoxCriteresAlimentes.AddItem ListViewDefinitionActivites.SelectedItem
TextBoxPoints = ListViewDefinitionActivites.SelectedItem.ListSubItems(1)
 
End Sub

[c.piette]

Re,


Merci à toi, ça fonctionne !

Solution toute simple en plus !