Interaction ListView / Classeur / ListBox
Résolu
Tim D
-
20 mai 2015 à 11:48
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 29 mai 2015 à 10:36
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 29 mai 2015 à 10:36
2 réponses
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
211
Modifié par ucfoutu le 20/05/2015 à 17:50
Modifié par ucfoutu le 20/05/2015 à 17:50
Bonjour,
Je crains fort que l'on s'y perde (et probablement toi aussi) dans ces explications qui s'apparentent à un labyrinthe !
Essaye d'aller à l'essentiel, en isolant la
Je ne comprends par ailleurs pas où intervient, dans cette affaire, le logiciel VB.Net (sous-forum dans lequel tu as ouvert la présente discussion)
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
Je crains fort que l'on s'y perde (et probablement toi aussi) dans ces explications qui s'apparentent à un labyrinthe !
Essaye d'aller à l'essentiel, en isolant la
seuledifficulté que tu rencontres (cette seule partie, en l'isolant de tout ton contexte).
Je ne comprends par ailleurs pas où intervient, dans cette affaire, le logiciel VB.Net (sous-forum dans lequel tu as ouvert la présente discussion)
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
Bonjour,
je développe sous VBA et j'avoue que j'ai beaucoup de mal à exprimer mon besoin donc je vais essayer de faire au plus simple.
Je saisie des enregistrements dans mon classeur par le biais d'un formulaire, j'affiche toutes les enregistrements du classeur dans un ListView et je veux que lorsque je double clique sur une ligne de ma ListView que les champs du formulaire soient remplis automatiquement avec les valeurs de la ligne afin de les modifier.
Pas de soucis pour remplir automatiquement les TextBox et checkBox, par contre un des champs est une liste à choix multiple (ListBox), car en effet dans le classeur je ne dispose que d'une seule cellule par ligne pour ce champs donc je concatène les éléments sélectionnés l'un aprés l'autre séparés d'une virgule et un espace.
Seulement lorsque qu'il s'agit de "re-sélectionner" les éléments de la ListBox pour la modification je ne voit pas comment faire y'a-t-il une solution ou dois-je faire autrement ? Merci d'avance
je développe sous VBA et j'avoue que j'ai beaucoup de mal à exprimer mon besoin donc je vais essayer de faire au plus simple.
Je saisie des enregistrements dans mon classeur par le biais d'un formulaire, j'affiche toutes les enregistrements du classeur dans un ListView et je veux que lorsque je double clique sur une ligne de ma ListView que les champs du formulaire soient remplis automatiquement avec les valeurs de la ligne afin de les modifier.
Pas de soucis pour remplir automatiquement les TextBox et checkBox, par contre un des champs est une liste à choix multiple (ListBox), car en effet dans le classeur je ne dispose que d'une seule cellule par ligne pour ce champs donc je concatène les éléments sélectionnés l'un aprés l'autre séparés d'une virgule et un espace.
Seulement lorsque qu'il s'agit de "re-sélectionner" les éléments de la ListBox pour la modification je ne voit pas comment faire y'a-t-il une solution ou dois-je faire autrement ? Merci d'avance
Whismeril
Messages postés
19024
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
18 avril 2024
656
26 mai 2015 à 10:35
26 mai 2015 à 10:35
Message transféré dans le forum VBA
cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
17 août 2018
23
26 mai 2015 à 14:49
26 mai 2015 à 14:49
Bonjour,
Si je comprends bien, tu pourrais utiliser Split avec la virgule comme séparateur. Ensuite, il te suffit de boucler le tableau généré et rechercher le même texte dans la listbox. Quand la valeur est trouvée,
Ça prend donc une boucle pour lire chaque item généré par le Split et une autre boucle pour trouver cette valeur dans la listbox pour la cocher.
Si je comprends bien, tu pourrais utiliser Split avec la virgule comme séparateur. Ensuite, il te suffit de boucler le tableau généré et rechercher le même texte dans la listbox. Quand la valeur est trouvée,
Listbox.Selected(variable de boucle) = Truepour cocher.
Ça prend donc une boucle pour lire chaque item généré par le Split et une autre boucle pour trouver cette valeur dans la listbox pour la cocher.
Voila ce que sa donne pour les curieux:
If Me.Controls("ListView" & jour).SelectedItem.SubItems(5) <> "" Then
'testArray = Split(Me.Controls("ListView" & jour).SelectedItem.SubItems(5), ", ")
testArray = Split(testString, ", ")
For i = 0 To UBound(testArray)
For j = 0 To ListBoxMotifs.ListCount - 1
If testArray(i) = ListBoxMotifs.List(j) Then
ListBoxMotifs.Selected(j) = True
GoTo Suivant
End If
Next j
Suivant:
Next i
End If
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
14
>
Tim D
27 mai 2015 à 13:09
27 mai 2015 à 13:09
Bonjour,
Juste une petite incruste sur ce sujet pour une légère modification...
On peut éviter de se servir du Goto en sortant simplement de la boucle For j, Next :
Juste une petite incruste sur ce sujet pour une légère modification...
On peut éviter de se servir du Goto en sortant simplement de la boucle For j, Next :
If Me.Controls("ListView" & jour).SelectedItem.SubItems(5) <> "" Then
'testArray = Split(Me.Controls("ListView" & jour).SelectedItem.SubItems(5), ", ")
testArray = Split(testString, ", ")
For i = 0 To UBound(testArray)
For j = 0 To ListBoxMotifs.ListCount - 1
If testArray(i) = ListBoxMotifs.List(j) Then
ListBoxMotifs.Selected(j) = True
Exit For
End If
Next j
Next i
End If
