Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Comment se rempli un listview ?

Comment se rempli un listview ?

11 réponses
Avatar
TEV
Bonjour,

Comme dit dans le titre comment fait on pour remplir un listview avec des
données provenant d'une requête SQL.

Christian.
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
Sophie
Bonjour Christian,

Exemple avec la méthode Dao,

Dim listItem As listItem
Dim intNoAssureur As Integer
Dim strSQL As String
rsContact as Recordset

'/// vide la ListView

lvwListeContact.ListItems.Clear

'/// sélectionne seulement les enregistrements correspondant au
champ
'/// "Numéro" affiché sur la feuille

intNoAssureur = Int(txtNumero.Text)
strSQL = "SELECT * FROM [TableAssureurContact]" & _
" WHERE [TableAssureurContact].Numero = " & intNoAssureur & " ;
"
Set rsContact = dbGivan.OpenRecordset(strSQL)

If rsContact.RecordCount <> 0 Then

rsContact.MoveFirst

Do Until rsContact.EOF

Set listItem = lvwListeContact.ListItems.Add()
listItem.Text = rsContact![RefAssureurContact]
listItem.SubItems(1) = rsContact![NomContact]
listItem.SubItems(2) = rsContact![Titre]
listItem.SubItems(3) = rsContact![Tel]
listItem.SubItems(4) = rsContact![Ext]
listItem.SubItems(5) = rsContact![Fax]
listItem.SubItems(6) = rsContact![Cell]
listItem.SubItems(7) = rsContact![Remarque]
rsContact.MoveNext
Loop

'/// Libère les ressources

Set listItem = Nothing

End If

'/// Libère les ressources

rsContact.Close
Set rsContact = Nothing
strSQL = ""

Sophie

"TEV" a écrit dans le message de
news:3f5bc53d$0$2731$
Bonjour,

Comme dit dans le titre comment fait on pour remplir un listview avec des
données provenant d'une requête SQL.

Christian.




Avatar
TEV
Merci pour la réponse, mais du coup je ne vois pas trop ce qui cloche chez
moi. Il n'affiche rien à partir des subitems.

Mon code est le suivant j'utilise ADO et RCVF est le recordset contenant les
données.

Do Until RcVF.EOF
Set itListV = ListV.ListItems.Add()
itListV.Text = RcVF.Fields(0) ' Là il écrit quelque chose
itListV.SubItems(1) = RcVF.Fields(1) ' A partir d'ici plus rien
itListV.SubItems(2) = RcVF.Fields(2)
itListV.SubItems(3) = RcVF.Fields(3)
itListV.SubItems(4) = RcVF.Fields(4)
itListV.SubItems(5) = RcVF.Fields(5)
RcVF.MoveNext
Loop

Il y a probablement une préparation que je n'ai pas su faire.

Christian.

"Sophie" a écrit dans le message de news:

Bonjour Christian,

Exemple avec la méthode Dao,

Dim listItem As listItem
Dim intNoAssureur As Integer
Dim strSQL As String
rsContact as Recordset

'/// vide la ListView

lvwListeContact.ListItems.Clear

'/// sélectionne seulement les enregistrements correspondant au
champ
'/// "Numéro" affiché sur la feuille

intNoAssureur = Int(txtNumero.Text)
strSQL = "SELECT * FROM [TableAssureurContact]" & _
" WHERE [TableAssureurContact].Numero = " & intNoAssureur & "


;
"
Set rsContact = dbGivan.OpenRecordset(strSQL)

If rsContact.RecordCount <> 0 Then

rsContact.MoveFirst

Do Until rsContact.EOF

Set listItem = lvwListeContact.ListItems.Add()
listItem.Text = rsContact![RefAssureurContact]
listItem.SubItems(1) = rsContact![NomContact]
listItem.SubItems(2) = rsContact![Titre]
listItem.SubItems(3) = rsContact![Tel]
listItem.SubItems(4) = rsContact![Ext]
listItem.SubItems(5) = rsContact![Fax]
listItem.SubItems(6) = rsContact![Cell]
listItem.SubItems(7) = rsContact![Remarque]
rsContact.MoveNext
Loop

'/// Libère les ressources

Set listItem = Nothing

End If

'/// Libère les ressources

rsContact.Close
Set rsContact = Nothing
strSQL = ""

Sophie

"TEV" a écrit dans le message de
news:3f5bc53d$0$2731$
> Bonjour,
>
> Comme dit dans le titre comment fait on pour remplir un listview avec


des
> données provenant d'une requête SQL.
>
> Christian.
>
>




Avatar
Bismark Prods
A la fin il y a un Set itListV = nothing qui manque deja
et puis pourquoi tu n'ajoute pas dans la methode add ? au lieu de faire à
vide ?

"TEV" a écrit dans le message de
news:3f5d0e5e$0$11519$
Merci pour la réponse, mais du coup je ne vois pas trop ce qui cloche chez
moi. Il n'affiche rien à partir des subitems.

Mon code est le suivant j'utilise ADO et RCVF est le recordset contenant


les
données.

Do Until RcVF.EOF
Set itListV = ListV.ListItems.Add()
itListV.Text = RcVF.Fields(0) ' Là il écrit quelque chose
itListV.SubItems(1) = RcVF.Fields(1) ' A partir d'ici plus rien
itListV.SubItems(2) = RcVF.Fields(2)
itListV.SubItems(3) = RcVF.Fields(3)
itListV.SubItems(4) = RcVF.Fields(4)
itListV.SubItems(5) = RcVF.Fields(5)
RcVF.MoveNext
Loop

Il y a probablement une préparation que je n'ai pas su faire.

Christian.

"Sophie" a écrit dans le message de news:

> Bonjour Christian,
>
> Exemple avec la méthode Dao,
>
> Dim listItem As listItem
> Dim intNoAssureur As Integer
> Dim strSQL As String
> rsContact as Recordset
>
> '/// vide la ListView
>
> lvwListeContact.ListItems.Clear
>
> '/// sélectionne seulement les enregistrements correspondant au
> champ
> '/// "Numéro" affiché sur la feuille
>
> intNoAssureur = Int(txtNumero.Text)
> strSQL = "SELECT * FROM [TableAssureurContact]" & _
> " WHERE [TableAssureurContact].Numero = " & intNoAssureur &


"
;
> "
> Set rsContact = dbGivan.OpenRecordset(strSQL)
>
> If rsContact.RecordCount <> 0 Then
>
> rsContact.MoveFirst
>
> Do Until rsContact.EOF
>
> Set listItem = lvwListeContact.ListItems.Add()
> listItem.Text = rsContact![RefAssureurContact]
> listItem.SubItems(1) = rsContact![NomContact]
> listItem.SubItems(2) = rsContact![Titre]
> listItem.SubItems(3) = rsContact![Tel]
> listItem.SubItems(4) = rsContact![Ext]
> listItem.SubItems(5) = rsContact![Fax]
> listItem.SubItems(6) = rsContact![Cell]
> listItem.SubItems(7) = rsContact![Remarque]
> rsContact.MoveNext
> Loop
>
> '/// Libère les ressources
>
> Set listItem = Nothing
>
> End If
>
> '/// Libère les ressources
>
> rsContact.Close
> Set rsContact = Nothing
> strSQL = ""
>
> Sophie
>
> "TEV" a écrit dans le message de
> news:3f5bc53d$0$2731$
> > Bonjour,
> >
> > Comme dit dans le titre comment fait on pour remplir un listview avec
des
> > données provenant d'une requête SQL.
> >
> > Christian.
> >
> >
>
>




Avatar
Sophie
Si j'ai bien compris essaie ceci:
Variable= ListV.SelectedItem.Text

Sophie

"TEV" a écrit dans le message de
news:3f5e432d$0$10902$
Vraiment je te remercie.
J'ai enfin trouvé ce qui clochait, il me fallait mettre
listview.view = lvwReport

Et donc, en faisant comme cela tout les exemples que l'on m'a donné
fonctionnent.

Maintenant j'ai comme soucis de vouloir checké les cases à cocher de la
listviews et de récupérer la valeur qui se trouve dans la colonne(pas le
false ou le true) en l'occurence des id. Le code suivant ne fait que les
afficher
listview.checkboxes = true
ou les retirer en faisant
listview.checkboxes = false
Je suis désolé c'est du genre super casse pied, mais je galère. Et encore
merci pour l'intérêt.


"Bismark Prods" a écrit dans le message de news:

> Je ne sais pas ce que tu ne fais pas mais je sais ce que je fais presque
400
> fois par jour lol !
>
> Dim IList As ListItem
>
> Set IList = ListView1.ListItems.Add(, , "truc")
> IList.SubItems(1) = "truc2"
> ...
> Set IList = Nothing
>
> Personnellement je n'utilise presque jamais l'index et le key de la
methode
> Add mais tu peux le faire si tu as besoin !!!
>
> lol bonne soirée
>
> "TEV" a écrit dans le message de
> news:3f5dc777$0$15950$
> > Le Set itListV = nothing figure dans le programme, il n'est simplement
pas
> > présent dans l'extrait.
> >
> > >pourquoi tu n'ajoute pas dans la methode add ? au lieu de faire à
> > > vide
> >
> > Je ne comprends pas la question. Je pensais ajouter quelques chose


comme
> > cela puisque la variable itListV correspond à add.
> > C'est faux puisque cela ne marche pas, donc comment faut il faire. De
plus
> > d'après l'exemple que m'a indiqué Sophie, cela devrait fonctionner ?
Alors
> > qu'est ce que je ne fais pas ?
> >
> > "Bismark Prods" a écrit dans le message de news:
> >
> > > A la fin il y a un Set itListV = nothing qui manque deja
> > > et puis pourquoi tu n'ajoute pas dans la methode add ? au lieu de
faire
> à
> > > vide ?
> > >
> > > "TEV" a écrit dans le message de
> > > news:3f5d0e5e$0$11519$
> > > > Merci pour la réponse, mais du coup je ne vois pas trop ce qui
cloche
> > chez
> > > > moi. Il n'affiche rien à partir des subitems.
> > > >
> > > > Mon code est le suivant j'utilise ADO et RCVF est le recordset
> contenant
> > > les
> > > > données.
> > > >
> > > > Do Until RcVF.EOF
> > > > Set itListV = ListV.ListItems.Add()
> > > > itListV.Text = RcVF.Fields(0) ' Là il écrit quelque chose
> > > > itListV.SubItems(1) = RcVF.Fields(1) ' A partir d'ici
plus
> > rien
> > > > itListV.SubItems(2) = RcVF.Fields(2)
> > > > itListV.SubItems(3) = RcVF.Fields(3)
> > > > itListV.SubItems(4) = RcVF.Fields(4)
> > > > itListV.SubItems(5) = RcVF.Fields(5)
> > > > RcVF.MoveNext
> > > > Loop
> > > >
> > > > Il y a probablement une préparation que je n'ai pas su faire.
> > > >
> > > > Christian.
> > > >
> > > > "Sophie" a écrit dans le message de
news:
> > > >
> > > > > Bonjour Christian,
> > > > >
> > > > > Exemple avec la méthode Dao,
> > > > >
> > > > > Dim listItem As listItem
> > > > > Dim intNoAssureur As Integer
> > > > > Dim strSQL As String
> > > > > rsContact as Recordset
> > > > >
> > > > > '/// vide la ListView
> > > > >
> > > > > lvwListeContact.ListItems.Clear
> > > > >
> > > > > '/// sélectionne seulement les enregistrements
> correspondant
> > au
> > > > > champ
> > > > > '/// "Numéro" affiché sur la feuille
> > > > >
> > > > > intNoAssureur = Int(txtNumero.Text)
> > > > > strSQL = "SELECT * FROM [TableAssureurContact]" & _
> > > > > " WHERE [TableAssureurContact].Numero = " &
> intNoAssureur
> > &
> > > "
> > > > ;
> > > > > "
> > > > > Set rsContact = dbGivan.OpenRecordset(strSQL)
> > > > >
> > > > > If rsContact.RecordCount <> 0 Then
> > > > >
> > > > > rsContact.MoveFirst
> > > > >
> > > > > Do Until rsContact.EOF
> > > > >
> > > > > Set listItem = lvwListeContact.ListItems.Add()
> > > > > listItem.Text = rsContact![RefAssureurContact]
> > > > > listItem.SubItems(1) = rsContact![NomContact]
> > > > > listItem.SubItems(2) = rsContact![Titre]
> > > > > listItem.SubItems(3) = rsContact![Tel]
> > > > > listItem.SubItems(4) = rsContact![Ext]
> > > > > listItem.SubItems(5) = rsContact![Fax]
> > > > > listItem.SubItems(6) = rsContact![Cell]
> > > > > listItem.SubItems(7) = rsContact![Remarque]
> > > > > rsContact.MoveNext
> > > > > Loop
> > > > >
> > > > > '/// Libère les ressources
> > > > >
> > > > > Set listItem = Nothing
> > > > >
> > > > > End If
> > > > >
> > > > > '/// Libère les ressources
> > > > >
> > > > > rsContact.Close
> > > > > Set rsContact = Nothing
> > > > > strSQL = ""
> > > > >
> > > > > Sophie
> > > > >
> > > > > "TEV" a écrit dans le message de
> > > > > news:3f5bc53d$0$2731$
> > > > > > Bonjour,
> > > > > >
> > > > > > Comme dit dans le titre comment fait on pour remplir un


listview
> > avec
> > > > des
> > > > > > données provenant d'une requête SQL.
> > > > > >
> > > > > > Christian.
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>




Avatar
Sophie
Voici un autre exemple si tu désires
récupérer tous ceux dont la case est
cochées.

'/// récupère toutes les cases qui sont cochées

For X = 1 To lvwListe.ListItems.Count

If lvwListe.ListItems(X).Checked = True Then

strNom = lvwListe.ListItems(X).Text
??? (ton code)

End If

Next X

"Sophie" a écrit dans le message de
news:O4mnM%
Si j'ai bien compris essaie ceci:
Variable= ListV.SelectedItem.Text

Sophie

"TEV" a écrit dans le message de
news:3f5e432d$0$10902$
> Vraiment je te remercie.
> J'ai enfin trouvé ce qui clochait, il me fallait mettre
> listview.view = lvwReport
>
> Et donc, en faisant comme cela tout les exemples que l'on m'a donné
> fonctionnent.
>
> Maintenant j'ai comme soucis de vouloir checké les cases à cocher de la
> listviews et de récupérer la valeur qui se trouve dans la colonne(pas le
> false ou le true) en l'occurence des id. Le code suivant ne fait que les
> afficher
> listview.checkboxes = true
> ou les retirer en faisant
> listview.checkboxes = false
> Je suis désolé c'est du genre super casse pied, mais je galère. Et


encore
> merci pour l'intérêt.
>
>
> "Bismark Prods" a écrit dans le message de news:
>
> > Je ne sais pas ce que tu ne fais pas mais je sais ce que je fais


presque
> 400
> > fois par jour lol !
> >
> > Dim IList As ListItem
> >
> > Set IList = ListView1.ListItems.Add(, , "truc")
> > IList.SubItems(1) = "truc2"
> > ...
> > Set IList = Nothing
> >
> > Personnellement je n'utilise presque jamais l'index et le key de la
> methode
> > Add mais tu peux le faire si tu as besoin !!!
> >
> > lol bonne soirée
> >
> > "TEV" a écrit dans le message de
> > news:3f5dc777$0$15950$
> > > Le Set itListV = nothing figure dans le programme, il n'est


simplement
> pas
> > > présent dans l'extrait.
> > >
> > > >pourquoi tu n'ajoute pas dans la methode add ? au lieu de faire à
> > > > vide
> > >
> > > Je ne comprends pas la question. Je pensais ajouter quelques chose
comme
> > > cela puisque la variable itListV correspond à add.
> > > C'est faux puisque cela ne marche pas, donc comment faut il faire.


De
> plus
> > > d'après l'exemple que m'a indiqué Sophie, cela devrait fonctionner ?
> Alors
> > > qu'est ce que je ne fais pas ?
> > >
> > > "Bismark Prods" a écrit dans le message de news:
> > >
> > > > A la fin il y a un Set itListV = nothing qui manque deja
> > > > et puis pourquoi tu n'ajoute pas dans la methode add ? au lieu de
> faire
> > à
> > > > vide ?
> > > >
> > > > "TEV" a écrit dans le message de
> > > > news:3f5d0e5e$0$11519$
> > > > > Merci pour la réponse, mais du coup je ne vois pas trop ce qui
> cloche
> > > chez
> > > > > moi. Il n'affiche rien à partir des subitems.
> > > > >
> > > > > Mon code est le suivant j'utilise ADO et RCVF est le recordset
> > contenant
> > > > les
> > > > > données.
> > > > >
> > > > > Do Until RcVF.EOF
> > > > > Set itListV = ListV.ListItems.Add()
> > > > > itListV.Text = RcVF.Fields(0) ' Là il écrit quelque


chose
> > > > > itListV.SubItems(1) = RcVF.Fields(1) ' A partir d'ici
> plus
> > > rien
> > > > > itListV.SubItems(2) = RcVF.Fields(2)
> > > > > itListV.SubItems(3) = RcVF.Fields(3)
> > > > > itListV.SubItems(4) = RcVF.Fields(4)
> > > > > itListV.SubItems(5) = RcVF.Fields(5)
> > > > > RcVF.MoveNext
> > > > > Loop
> > > > >
> > > > > Il y a probablement une préparation que je n'ai pas su faire.
> > > > >
> > > > > Christian.
> > > > >
> > > > > "Sophie" a écrit dans le message de
> news:
> > > > >
> > > > > > Bonjour Christian,
> > > > > >
> > > > > > Exemple avec la méthode Dao,
> > > > > >
> > > > > > Dim listItem As listItem
> > > > > > Dim intNoAssureur As Integer
> > > > > > Dim strSQL As String
> > > > > > rsContact as Recordset
> > > > > >
> > > > > > '/// vide la ListView
> > > > > >
> > > > > > lvwListeContact.ListItems.Clear
> > > > > >
> > > > > > '/// sélectionne seulement les enregistrements
> > correspondant
> > > au
> > > > > > champ
> > > > > > '/// "Numéro" affiché sur la feuille
> > > > > >
> > > > > > intNoAssureur = Int(txtNumero.Text)
> > > > > > strSQL = "SELECT * FROM [TableAssureurContact]" & _
> > > > > > " WHERE [TableAssureurContact].Numero = " &
> > intNoAssureur
> > > &
> > > > "
> > > > > ;
> > > > > > "
> > > > > > Set rsContact = dbGivan.OpenRecordset(strSQL)
> > > > > >
> > > > > > If rsContact.RecordCount <> 0 Then
> > > > > >
> > > > > > rsContact.MoveFirst
> > > > > >
> > > > > > Do Until rsContact.EOF
> > > > > >
> > > > > > Set listItem = lvwListeContact.ListItems.Add()
> > > > > > listItem.Text = rsContact![RefAssureurContact]
> > > > > > listItem.SubItems(1) = rsContact![NomContact]
> > > > > > listItem.SubItems(2) = rsContact![Titre]
> > > > > > listItem.SubItems(3) = rsContact![Tel]
> > > > > > listItem.SubItems(4) = rsContact![Ext]
> > > > > > listItem.SubItems(5) = rsContact![Fax]
> > > > > > listItem.SubItems(6) = rsContact![Cell]
> > > > > > listItem.SubItems(7) = rsContact![Remarque]
> > > > > > rsContact.MoveNext
> > > > > > Loop
> > > > > >
> > > > > > '/// Libère les ressources
> > > > > >
> > > > > > Set listItem = Nothing
> > > > > >
> > > > > > End If
> > > > > >
> > > > > > '/// Libère les ressources
> > > > > >
> > > > > > rsContact.Close
> > > > > > Set rsContact = Nothing
> > > > > > strSQL = ""
> > > > > >
> > > > > > Sophie
> > > > > >
> > > > > > "TEV" a écrit dans le message de
> > > > > > news:3f5bc53d$0$2731$
> > > > > > > Bonjour,
> > > > > > >
> > > > > > > Comme dit dans le titre comment fait on pour remplir un
listview
> > > avec
> > > > > des
> > > > > > > données provenant d'une requête SQL.
> > > > > > >
> > > > > > > Christian.
> > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>




Avatar
Bismark Prods
multiselect ?

"TEV" a écrit dans le message de
news:3f5ec834$0$12120$
Merci Sophie c'est une des réponses que j'espérais. L'autre était de


savoir
comment cocher une checkbox avec le code.

Et est-ce que cela fait pareil chez toi ? Lorsque je coche manuellement


une
des cases la ligne sélectionnée reste la première. Par exemple je coche la
2ème case et pourtant la 1er ligne est sélectionnée et non pas la 2ème. Y


a
t'il moyen d'y remédier ?

"Sophie" a écrit dans le message de news:

> Voici un autre exemple si tu désires
> récupérer tous ceux dont la case est
> cochées.
>
> '/// récupère toutes les cases qui sont cochées
>
> For X = 1 To lvwListe.ListItems.Count
>
> If lvwListe.ListItems(X).Checked = True Then
>
> strNom = lvwListe.ListItems(X).Text
> ??? (ton code)
>
> End If
>
> Next X
>
> "Sophie" a écrit dans le message de
> news:O4mnM%
> > Si j'ai bien compris essaie ceci:
> > Variable= ListV.SelectedItem.Text
> >
> > Sophie
> >
> > "TEV" a écrit dans le message de
> > news:3f5e432d$0$10902$
> > > Vraiment je te remercie.
> > > J'ai enfin trouvé ce qui clochait, il me fallait mettre
> > > listview.view = lvwReport
> > >
> > > Et donc, en faisant comme cela tout les exemples que l'on m'a donné
> > > fonctionnent.
> > >
> > > Maintenant j'ai comme soucis de vouloir checké les cases à cocher de
la
> > > listviews et de récupérer la valeur qui se trouve dans la


colonne(pas
le
> > > false ou le true) en l'occurence des id. Le code suivant ne fait que
les
> > > afficher
> > > listview.checkboxes = true
> > > ou les retirer en faisant
> > > listview.checkboxes = false
> > > Je suis désolé c'est du genre super casse pied, mais je galère. Et
> encore
> > > merci pour l'intérêt.
> > >
> > >
> > > "Bismark Prods" a écrit dans le message de news:
> > >
> > > > Je ne sais pas ce que tu ne fais pas mais je sais ce que je fais
> presque
> > > 400
> > > > fois par jour lol !
> > > >
> > > > Dim IList As ListItem
> > > >
> > > > Set IList = ListView1.ListItems.Add(, , "truc")
> > > > IList.SubItems(1) = "truc2"
> > > > ...
> > > > Set IList = Nothing
> > > >
> > > > Personnellement je n'utilise presque jamais l'index et le key de


la
> > > methode
> > > > Add mais tu peux le faire si tu as besoin !!!
> > > >
> > > > lol bonne soirée
> > > >
> > > > "TEV" a écrit dans le message de
> > > > news:3f5dc777$0$15950$
> > > > > Le Set itListV = nothing figure dans le programme, il n'est
> simplement
> > > pas
> > > > > présent dans l'extrait.
> > > > >
> > > > > >pourquoi tu n'ajoute pas dans la methode add ? au lieu de faire


à
> > > > > > vide
> > > > >
> > > > > Je ne comprends pas la question. Je pensais ajouter quelques


chose
> > comme
> > > > > cela puisque la variable itListV correspond à add.
> > > > > C'est faux puisque cela ne marche pas, donc comment faut il


faire.
> De
> > > plus
> > > > > d'après l'exemple que m'a indiqué Sophie, cela devrait


fonctionner
?
> > > Alors
> > > > > qu'est ce que je ne fais pas ?
> > > > >
> > > > > "Bismark Prods" a écrit dans le message de
news:
> > > > >
> > > > > > A la fin il y a un Set itListV = nothing qui manque deja
> > > > > > et puis pourquoi tu n'ajoute pas dans la methode add ? au lieu
de
> > > faire
> > > > à
> > > > > > vide ?
> > > > > >
> > > > > > "TEV" a écrit dans le message de
> > > > > > news:3f5d0e5e$0$11519$
> > > > > > > Merci pour la réponse, mais du coup je ne vois pas trop ce


qui
> > > cloche
> > > > > chez
> > > > > > > moi. Il n'affiche rien à partir des subitems.
> > > > > > >
> > > > > > > Mon code est le suivant j'utilise ADO et RCVF est le


recordset
> > > > contenant
> > > > > > les
> > > > > > > données.
> > > > > > >
> > > > > > > Do Until RcVF.EOF
> > > > > > > Set itListV = ListV.ListItems.Add()
> > > > > > > itListV.Text = RcVF.Fields(0) ' Là il écrit quelque
> chose
> > > > > > > itListV.SubItems(1) = RcVF.Fields(1) ' A partir
d'ici
> > > plus
> > > > > rien
> > > > > > > itListV.SubItems(2) = RcVF.Fields(2)
> > > > > > > itListV.SubItems(3) = RcVF.Fields(3)
> > > > > > > itListV.SubItems(4) = RcVF.Fields(4)
> > > > > > > itListV.SubItems(5) = RcVF.Fields(5)
> > > > > > > RcVF.MoveNext
> > > > > > > Loop
> > > > > > >
> > > > > > > Il y a probablement une préparation que je n'ai pas su


faire.
> > > > > > >
> > > > > > > Christian.
> > > > > > >
> > > > > > > "Sophie" a écrit dans le message
de
> > > news:
> > > > > > >
> > > > > > > > Bonjour Christian,
> > > > > > > >
> > > > > > > > Exemple avec la méthode Dao,
> > > > > > > >
> > > > > > > > Dim listItem As listItem
> > > > > > > > Dim intNoAssureur As Integer
> > > > > > > > Dim strSQL As String
> > > > > > > > rsContact as Recordset
> > > > > > > >
> > > > > > > > '/// vide la ListView
> > > > > > > >
> > > > > > > > lvwListeContact.ListItems.Clear
> > > > > > > >
> > > > > > > > '/// sélectionne seulement les enregistrements
> > > > correspondant
> > > > > au
> > > > > > > > champ
> > > > > > > > '/// "Numéro" affiché sur la feuille
> > > > > > > >
> > > > > > > > intNoAssureur = Int(txtNumero.Text)
> > > > > > > > strSQL = "SELECT * FROM [TableAssureurContact]" & _
> > > > > > > > " WHERE [TableAssureurContact].Numero = " &
> > > > intNoAssureur
> > > > > &
> > > > > > "
> > > > > > > ;
> > > > > > > > "
> > > > > > > > Set rsContact = dbGivan.OpenRecordset(strSQL)
> > > > > > > >
> > > > > > > > If rsContact.RecordCount <> 0 Then
> > > > > > > >
> > > > > > > > rsContact.MoveFirst
> > > > > > > >
> > > > > > > > Do Until rsContact.EOF
> > > > > > > >
> > > > > > > > Set listItem = lvwListeContact.ListItems.Add()
> > > > > > > > listItem.Text = rsContact![RefAssureurContact]
> > > > > > > > listItem.SubItems(1) = rsContact![NomContact]
> > > > > > > > listItem.SubItems(2) = rsContact![Titre]
> > > > > > > > listItem.SubItems(3) = rsContact![Tel]
> > > > > > > > listItem.SubItems(4) = rsContact![Ext]
> > > > > > > > listItem.SubItems(5) = rsContact![Fax]
> > > > > > > > listItem.SubItems(6) = rsContact![Cell]
> > > > > > > > listItem.SubItems(7) = rsContact![Remarque]
> > > > > > > > rsContact.MoveNext
> > > > > > > > Loop
> > > > > > > >
> > > > > > > > '/// Libère les ressources
> > > > > > > >
> > > > > > > > Set listItem = Nothing
> > > > > > > >
> > > > > > > > End If
> > > > > > > >
> > > > > > > > '/// Libère les ressources
> > > > > > > >
> > > > > > > > rsContact.Close
> > > > > > > > Set rsContact = Nothing
> > > > > > > > strSQL = ""
> > > > > > > >
> > > > > > > > Sophie
> > > > > > > >
> > > > > > > > "TEV" a écrit dans le message de
> > > > > > > >


news:3f5bc53d$0$2731$
> > > > > > > > > Bonjour,
> > > > > > > > >
> > > > > > > > > Comme dit dans le titre comment fait on pour remplir un
> > listview
> > > > > avec
> > > > > > > des
> > > > > > > > > données provenant d'une requête SQL.
> > > > > > > > >
> > > > > > > > > Christian.
> > > > > > > > >
> > > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>




Avatar
TEV
> multiselect ?



Ben ça le fait avec les deux, sans multiselect et avec. Sinon c'est la seule
question qui reste les autres sont résolues.

"Bismark Prods" a écrit dans le message de news:

multiselect ?

"TEV" a écrit dans le message de
news:3f5ec834$0$12120$
> Merci Sophie c'est une des réponses que j'espérais. L'autre était de
savoir
> comment cocher une checkbox avec le code.
>
> Et est-ce que cela fait pareil chez toi ? Lorsque je coche manuellement
une
> des cases la ligne sélectionnée reste la première. Par exemple je coche


la
> 2ème case et pourtant la 1er ligne est sélectionnée et non pas la 2ème.


Y
a
> t'il moyen d'y remédier ?
>
> "Sophie" a écrit dans le message de news:
>
> > Voici un autre exemple si tu désires
> > récupérer tous ceux dont la case est
> > cochées.
> >
> > '/// récupère toutes les cases qui sont cochées
> >
> > For X = 1 To lvwListe.ListItems.Count
> >
> > If lvwListe.ListItems(X).Checked = True Then
> >
> > strNom = lvwListe.ListItems(X).Text
> > ??? (ton code)
> >
> > End If
> >
> > Next X
> >
> > "Sophie" a écrit dans le message de
> > news:O4mnM%
> > > Si j'ai bien compris essaie ceci:
> > > Variable= ListV.SelectedItem.Text
> > >
> > > Sophie
> > >
> > > "TEV" a écrit dans le message de
> > > news:3f5e432d$0$10902$
> > > > Vraiment je te remercie.
> > > > J'ai enfin trouvé ce qui clochait, il me fallait mettre
> > > > listview.view = lvwReport
> > > >
> > > > Et donc, en faisant comme cela tout les exemples que l'on m'a


donné
> > > > fonctionnent.
> > > >
> > > > Maintenant j'ai comme soucis de vouloir checké les cases à cocher


de
> la
> > > > listviews et de récupérer la valeur qui se trouve dans la
colonne(pas
> le
> > > > false ou le true) en l'occurence des id. Le code suivant ne fait


que
> les
> > > > afficher
> > > > listview.checkboxes = true
> > > > ou les retirer en faisant
> > > > listview.checkboxes = false
> > > > Je suis désolé c'est du genre super casse pied, mais je galère. Et
> > encore
> > > > merci pour l'intérêt.
> > > >
> > > >
> > > > "Bismark Prods" a écrit dans le message de


news:
> > > >
> > > > > Je ne sais pas ce que tu ne fais pas mais je sais ce que je fais
> > presque
> > > > 400
> > > > > fois par jour lol !
> > > > >
> > > > > Dim IList As ListItem
> > > > >
> > > > > Set IList = ListView1.ListItems.Add(, , "truc")
> > > > > IList.SubItems(1) = "truc2"
> > > > > ...
> > > > > Set IList = Nothing
> > > > >
> > > > > Personnellement je n'utilise presque jamais l'index et le key de
la
> > > > methode
> > > > > Add mais tu peux le faire si tu as besoin !!!
> > > > >
> > > > > lol bonne soirée
> > > > >
> > > > > "TEV" a écrit dans le message de
> > > > > news:3f5dc777$0$15950$
> > > > > > Le Set itListV = nothing figure dans le programme, il n'est
> > simplement
> > > > pas
> > > > > > présent dans l'extrait.
> > > > > >
> > > > > > >pourquoi tu n'ajoute pas dans la methode add ? au lieu de


faire
à
> > > > > > > vide
> > > > > >
> > > > > > Je ne comprends pas la question. Je pensais ajouter quelques
chose
> > > comme
> > > > > > cela puisque la variable itListV correspond à add.
> > > > > > C'est faux puisque cela ne marche pas, donc comment faut il
faire.
> > De
> > > > plus
> > > > > > d'après l'exemple que m'a indiqué Sophie, cela devrait
fonctionner
> ?
> > > > Alors
> > > > > > qu'est ce que je ne fais pas ?
> > > > > >
> > > > > > "Bismark Prods" a écrit dans le message de
> news:
> > > > > >
> > > > > > > A la fin il y a un Set itListV = nothing qui manque deja
> > > > > > > et puis pourquoi tu n'ajoute pas dans la methode add ? au


lieu
> de
> > > > faire
> > > > > à
> > > > > > > vide ?
> > > > > > >
> > > > > > > "TEV" a écrit dans le message de
> > > > > > > news:3f5d0e5e$0$11519$
> > > > > > > > Merci pour la réponse, mais du coup je ne vois pas trop ce
qui
> > > > cloche
> > > > > > chez
> > > > > > > > moi. Il n'affiche rien à partir des subitems.
> > > > > > > >
> > > > > > > > Mon code est le suivant j'utilise ADO et RCVF est le
recordset
> > > > > contenant
> > > > > > > les
> > > > > > > > données.
> > > > > > > >
> > > > > > > > Do Until RcVF.EOF
> > > > > > > > Set itListV = ListV.ListItems.Add()
> > > > > > > > itListV.Text = RcVF.Fields(0) ' Là il écrit


quelque
> > chose
> > > > > > > > itListV.SubItems(1) = RcVF.Fields(1) ' A partir
> d'ici
> > > > plus
> > > > > > rien
> > > > > > > > itListV.SubItems(2) = RcVF.Fields(2)
> > > > > > > > itListV.SubItems(3) = RcVF.Fields(3)
> > > > > > > > itListV.SubItems(4) = RcVF.Fields(4)
> > > > > > > > itListV.SubItems(5) = RcVF.Fields(5)
> > > > > > > > RcVF.MoveNext
> > > > > > > > Loop
> > > > > > > >
> > > > > > > > Il y a probablement une préparation que je n'ai pas su
faire.
> > > > > > > >
> > > > > > > > Christian.
> > > > > > > >
> > > > > > > > "Sophie" a écrit dans le


message
> de
> > > > news:
> > > > > > > >
> > > > > > > > > Bonjour Christian,
> > > > > > > > >
> > > > > > > > > Exemple avec la méthode Dao,
> > > > > > > > >
> > > > > > > > > Dim listItem As listItem
> > > > > > > > > Dim intNoAssureur As Integer
> > > > > > > > > Dim strSQL As String
> > > > > > > > > rsContact as Recordset
> > > > > > > > >
> > > > > > > > > '/// vide la ListView
> > > > > > > > >
> > > > > > > > > lvwListeContact.ListItems.Clear
> > > > > > > > >
> > > > > > > > > '/// sélectionne seulement les enregistrements
> > > > > correspondant
> > > > > > au
> > > > > > > > > champ
> > > > > > > > > '/// "Numéro" affiché sur la feuille
> > > > > > > > >
> > > > > > > > > intNoAssureur = Int(txtNumero.Text)
> > > > > > > > > strSQL = "SELECT * FROM [TableAssureurContact]" & _
> > > > > > > > > " WHERE [TableAssureurContact].Numero = " &
> > > > > intNoAssureur
> > > > > > &
> > > > > > > "
> > > > > > > > ;
> > > > > > > > > "
> > > > > > > > > Set rsContact = dbGivan.OpenRecordset(strSQL)
> > > > > > > > >
> > > > > > > > > If rsContact.RecordCount <> 0 Then
> > > > > > > > >
> > > > > > > > > rsContact.MoveFirst
> > > > > > > > >
> > > > > > > > > Do Until rsContact.EOF
> > > > > > > > >
> > > > > > > > > Set listItem lvwListeContact.ListItems.Add()
> > > > > > > > > listItem.Text rsContact![RefAssureurContact]
> > > > > > > > > listItem.SubItems(1) rsContact![NomContact]
> > > > > > > > > listItem.SubItems(2) = rsContact![Titre]
> > > > > > > > > listItem.SubItems(3) = rsContact![Tel]
> > > > > > > > > listItem.SubItems(4) = rsContact![Ext]
> > > > > > > > > listItem.SubItems(5) = rsContact![Fax]
> > > > > > > > > listItem.SubItems(6) = rsContact![Cell]
> > > > > > > > > listItem.SubItems(7) = rsContact![Remarque]
> > > > > > > > > rsContact.MoveNext
> > > > > > > > > Loop
> > > > > > > > >
> > > > > > > > > '/// Libère les ressources
> > > > > > > > >
> > > > > > > > > Set listItem = Nothing
> > > > > > > > >
> > > > > > > > > End If
> > > > > > > > >
> > > > > > > > > '/// Libère les ressources
> > > > > > > > >
> > > > > > > > > rsContact.Close
> > > > > > > > > Set rsContact = Nothing
> > > > > > > > > strSQL = ""
> > > > > > > > >
> > > > > > > > > Sophie
> > > > > > > > >
> > > > > > > > > "TEV" a écrit dans le message de
> > > > > > > > >
news:3f5bc53d$0$2731$
> > > > > > > > > > Bonjour,
> > > > > > > > > >
> > > > > > > > > > Comme dit dans le titre comment fait on pour remplir


un
> > > listview
> > > > > > avec
> > > > > > > > des
> > > > > > > > > > données provenant d'une requête SQL.
> > > > > > > > > >
> > > > > > > > > > Christian.
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > >
> > > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>




Avatar
Bismark Prods
Option Explicit

Private Sub Form_Load()
Dim IList As ListItem

Call ListView1.ColumnHeaders.Add(, , "Colonne A", ListView1.Width * 0.15)
Call ListView1.ColumnHeaders.Add(, , "Colonne B", ListView1.Width * 0.55)

Set IList = ListView1.ListItems.Add(, , "Hello1")
IList.SubItems(1) = "Benji"
Set IList = Nothing

Set IList = ListView1.ListItems.Add(, , "Hello2")
IList.SubItems(1) = "Benji"
Set IList = Nothing

End Sub


Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
Debug.Print Item.Text
End Sub

Si tu veux jouer sur la ligne mise en surbrillance ! il faut voir avec
l'événement ItemCheck !


"TEV" a écrit dans le message de
news:3f5f1fce$0$24745$
> multiselect ?

Ben ça le fait avec les deux, sans multiselect et avec. Sinon c'est la


seule
question qui reste les autres sont résolues.

"Bismark Prods" a écrit dans le message de news:

> multiselect ?
>
> "TEV" a écrit dans le message de
> news:3f5ec834$0$12120$
> > Merci Sophie c'est une des réponses que j'espérais. L'autre était de
> savoir
> > comment cocher une checkbox avec le code.
> >
> > Et est-ce que cela fait pareil chez toi ? Lorsque je coche


manuellement
> une
> > des cases la ligne sélectionnée reste la première. Par exemple je


coche
la
> > 2ème case et pourtant la 1er ligne est sélectionnée et non pas la


2ème.
Y
> a
> > t'il moyen d'y remédier ?
> >
> > "Sophie" a écrit dans le message de news:
> >
> > > Voici un autre exemple si tu désires
> > > récupérer tous ceux dont la case est
> > > cochées.
> > >
> > > '/// récupère toutes les cases qui sont cochées
> > >
> > > For X = 1 To lvwListe.ListItems.Count
> > >
> > > If lvwListe.ListItems(X).Checked = True Then
> > >
> > > strNom = lvwListe.ListItems(X).Text
> > > ??? (ton code)
> > >
> > > End If
> > >
> > > Next X
> > >
> > > "Sophie" a écrit dans le message de
> > > news:O4mnM%
> > > > Si j'ai bien compris essaie ceci:
> > > > Variable= ListV.SelectedItem.Text
> > > >
> > > > Sophie
> > > >
> > > > "TEV" a écrit dans le message de
> > > > news:3f5e432d$0$10902$
> > > > > Vraiment je te remercie.
> > > > > J'ai enfin trouvé ce qui clochait, il me fallait mettre
> > > > > listview.view = lvwReport
> > > > >
> > > > > Et donc, en faisant comme cela tout les exemples que l'on m'a
donné
> > > > > fonctionnent.
> > > > >
> > > > > Maintenant j'ai comme soucis de vouloir checké les cases à


cocher
de
> > la
> > > > > listviews et de récupérer la valeur qui se trouve dans la
> colonne(pas
> > le
> > > > > false ou le true) en l'occurence des id. Le code suivant ne fait
que
> > les
> > > > > afficher
> > > > > listview.checkboxes = true
> > > > > ou les retirer en faisant
> > > > > listview.checkboxes = false
> > > > > Je suis désolé c'est du genre super casse pied, mais je galère.


Et
> > > encore
> > > > > merci pour l'intérêt.
> > > > >
> > > > >
> > > > > "Bismark Prods" a écrit dans le message de
news:
> > > > >
> > > > > > Je ne sais pas ce que tu ne fais pas mais je sais ce que je


fais
> > > presque
> > > > > 400
> > > > > > fois par jour lol !
> > > > > >
> > > > > > Dim IList As ListItem
> > > > > >
> > > > > > Set IList = ListView1.ListItems.Add(, , "truc")
> > > > > > IList.SubItems(1) = "truc2"
> > > > > > ...
> > > > > > Set IList = Nothing
> > > > > >
> > > > > > Personnellement je n'utilise presque jamais l'index et le key


de
> la
> > > > > methode
> > > > > > Add mais tu peux le faire si tu as besoin !!!
> > > > > >
> > > > > > lol bonne soirée
> > > > > >
> > > > > > "TEV" a écrit dans le message de
> > > > > > news:3f5dc777$0$15950$
> > > > > > > Le Set itListV = nothing figure dans le programme, il n'est
> > > simplement
> > > > > pas
> > > > > > > présent dans l'extrait.
> > > > > > >
> > > > > > > >pourquoi tu n'ajoute pas dans la methode add ? au lieu de
faire
> à
> > > > > > > > vide
> > > > > > >
> > > > > > > Je ne comprends pas la question. Je pensais ajouter quelques
> chose
> > > > comme
> > > > > > > cela puisque la variable itListV correspond à add.
> > > > > > > C'est faux puisque cela ne marche pas, donc comment faut il
> faire.
> > > De
> > > > > plus
> > > > > > > d'après l'exemple que m'a indiqué Sophie, cela devrait
> fonctionner
> > ?
> > > > > Alors
> > > > > > > qu'est ce que je ne fais pas ?
> > > > > > >
> > > > > > > "Bismark Prods" a écrit dans le message


de
> > news:
> > > > > > >
> > > > > > > > A la fin il y a un Set itListV = nothing qui manque deja
> > > > > > > > et puis pourquoi tu n'ajoute pas dans la methode add ? au
lieu
> > de
> > > > > faire
> > > > > > à
> > > > > > > > vide ?
> > > > > > > >
> > > > > > > > "TEV" a écrit dans le message de
> > > > > > > >


news:3f5d0e5e$0$11519$
> > > > > > > > > Merci pour la réponse, mais du coup je ne vois pas trop


ce
> qui
> > > > > cloche
> > > > > > > chez
> > > > > > > > > moi. Il n'affiche rien à partir des subitems.
> > > > > > > > >
> > > > > > > > > Mon code est le suivant j'utilise ADO et RCVF est le
> recordset
> > > > > > contenant
> > > > > > > > les
> > > > > > > > > données.
> > > > > > > > >
> > > > > > > > > Do Until RcVF.EOF
> > > > > > > > > Set itListV = ListV.ListItems.Add()
> > > > > > > > > itListV.Text = RcVF.Fields(0) ' Là il écrit
quelque
> > > chose
> > > > > > > > > itListV.SubItems(1) = RcVF.Fields(1) ' A


partir
> > d'ici
> > > > > plus
> > > > > > > rien
> > > > > > > > > itListV.SubItems(2) = RcVF.Fields(2)
> > > > > > > > > itListV.SubItems(3) = RcVF.Fields(3)
> > > > > > > > > itListV.SubItems(4) = RcVF.Fields(4)
> > > > > > > > > itListV.SubItems(5) = RcVF.Fields(5)
> > > > > > > > > RcVF.MoveNext
> > > > > > > > > Loop
> > > > > > > > >
> > > > > > > > > Il y a probablement une préparation que je n'ai pas su
> faire.
> > > > > > > > >
> > > > > > > > > Christian.
> > > > > > > > >
> > > > > > > > > "Sophie" a écrit dans le
message
> > de
> > > > > news:
> > > > > > > > >
> > > > > > > > > > Bonjour Christian,
> > > > > > > > > >
> > > > > > > > > > Exemple avec la méthode Dao,
> > > > > > > > > >
> > > > > > > > > > Dim listItem As listItem
> > > > > > > > > > Dim intNoAssureur As Integer
> > > > > > > > > > Dim strSQL As String
> > > > > > > > > > rsContact as Recordset
> > > > > > > > > >
> > > > > > > > > > '/// vide la ListView
> > > > > > > > > >
> > > > > > > > > > lvwListeContact.ListItems.Clear
> > > > > > > > > >
> > > > > > > > > > '/// sélectionne seulement les


enregistrements
> > > > > > correspondant
> > > > > > > au
> > > > > > > > > > champ
> > > > > > > > > > '/// "Numéro" affiché sur la feuille
> > > > > > > > > >
> > > > > > > > > > intNoAssureur = Int(txtNumero.Text)
> > > > > > > > > > strSQL = "SELECT * FROM [TableAssureurContact]" &


_
> > > > > > > > > > " WHERE [TableAssureurContact].Numero = "


&
> > > > > > intNoAssureur
> > > > > > > &
> > > > > > > > "
> > > > > > > > > ;
> > > > > > > > > > "
> > > > > > > > > > Set rsContact = dbGivan.OpenRecordset(strSQL)
> > > > > > > > > >
> > > > > > > > > > If rsContact.RecordCount <> 0 Then
> > > > > > > > > >
> > > > > > > > > > rsContact.MoveFirst
> > > > > > > > > >
> > > > > > > > > > Do Until rsContact.EOF
> > > > > > > > > >
> > > > > > > > > > Set listItem > lvwListeContact.ListItems.Add()
> > > > > > > > > > listItem.Text > rsContact![RefAssureurContact]
> > > > > > > > > > listItem.SubItems(1) > rsContact![NomContact]
> > > > > > > > > > listItem.SubItems(2) = rsContact![Titre]
> > > > > > > > > > listItem.SubItems(3) = rsContact![Tel]
> > > > > > > > > > listItem.SubItems(4) = rsContact![Ext]
> > > > > > > > > > listItem.SubItems(5) = rsContact![Fax]
> > > > > > > > > > listItem.SubItems(6) = rsContact![Cell]
> > > > > > > > > > listItem.SubItems(7) rsContact![Remarque]
> > > > > > > > > > rsContact.MoveNext
> > > > > > > > > > Loop
> > > > > > > > > >
> > > > > > > > > > '/// Libère les ressources
> > > > > > > > > >
> > > > > > > > > > Set listItem = Nothing
> > > > > > > > > >
> > > > > > > > > > End If
> > > > > > > > > >
> > > > > > > > > > '/// Libère les ressources
> > > > > > > > > >
> > > > > > > > > > rsContact.Close
> > > > > > > > > > Set rsContact = Nothing
> > > > > > > > > > strSQL = ""
> > > > > > > > > >
> > > > > > > > > > Sophie
> > > > > > > > > >
> > > > > > > > > > "TEV" a écrit dans le message de
> > > > > > > > > >
> news:3f5bc53d$0$2731$
> > > > > > > > > > > Bonjour,
> > > > > > > > > > >
> > > > > > > > > > > Comme dit dans le titre comment fait on pour remplir
un
> > > > listview
> > > > > > > avec
> > > > > > > > > des
> > > > > > > > > > > données provenant d'une requête SQL.
> > > > > > > > > > >
> > > > > > > > > > > Christian.
> > > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > >
> > > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>




Avatar
Sophie
Bonjour Christian,

Sa fait la même chose chez moi , malheureusement,
j'ai pas encore trouvé la solution.

Sophie

"TEV" a écrit dans le message de
news:3f5ec834$0$12120$
Merci Sophie c'est une des réponses que j'espérais. L'autre était de


savoir
comment cocher une checkbox avec le code.

Et est-ce que cela fait pareil chez toi ? Lorsque je coche manuellement


une
des cases la ligne sélectionnée reste la première. Par exemple je coche la
2ème case et pourtant la 1er ligne est sélectionnée et non pas la 2ème. Y


a
t'il moyen d'y remédier ?

"Sophie" a écrit dans le message de news:

> Voici un autre exemple si tu désires
> récupérer tous ceux dont la case est
> cochées.
>
> '/// récupère toutes les cases qui sont cochées
>
> For X = 1 To lvwListe.ListItems.Count
>
> If lvwListe.ListItems(X).Checked = True Then
>
> strNom = lvwListe.ListItems(X).Text
> ??? (ton code)
>
> End If
>
> Next X
>
> "Sophie" a écrit dans le message de
> news:O4mnM%
> > Si j'ai bien compris essaie ceci:
> > Variable= ListV.SelectedItem.Text
> >
> > Sophie
> >
> > "TEV" a écrit dans le message de
> > news:3f5e432d$0$10902$
> > > Vraiment je te remercie.
> > > J'ai enfin trouvé ce qui clochait, il me fallait mettre
> > > listview.view = lvwReport
> > >
> > > Et donc, en faisant comme cela tout les exemples que l'on m'a donné
> > > fonctionnent.
> > >
> > > Maintenant j'ai comme soucis de vouloir checké les cases à cocher de
la
> > > listviews et de récupérer la valeur qui se trouve dans la


colonne(pas
le
> > > false ou le true) en l'occurence des id. Le code suivant ne fait que
les
> > > afficher
> > > listview.checkboxes = true
> > > ou les retirer en faisant
> > > listview.checkboxes = false
> > > Je suis désolé c'est du genre super casse pied, mais je galère. Et
> encore
> > > merci pour l'intérêt.
> > >
> > >
> > > "Bismark Prods" a écrit dans le message de news:
> > >
> > > > Je ne sais pas ce que tu ne fais pas mais je sais ce que je fais
> presque
> > > 400
> > > > fois par jour lol !
> > > >
> > > > Dim IList As ListItem
> > > >
> > > > Set IList = ListView1.ListItems.Add(, , "truc")
> > > > IList.SubItems(1) = "truc2"
> > > > ...
> > > > Set IList = Nothing
> > > >
> > > > Personnellement je n'utilise presque jamais l'index et le key de


la
> > > methode
> > > > Add mais tu peux le faire si tu as besoin !!!
> > > >
> > > > lol bonne soirée
> > > >
> > > > "TEV" a écrit dans le message de
> > > > news:3f5dc777$0$15950$
> > > > > Le Set itListV = nothing figure dans le programme, il n'est
> simplement
> > > pas
> > > > > présent dans l'extrait.
> > > > >
> > > > > >pourquoi tu n'ajoute pas dans la methode add ? au lieu de faire


à
> > > > > > vide
> > > > >
> > > > > Je ne comprends pas la question. Je pensais ajouter quelques


chose
> > comme
> > > > > cela puisque la variable itListV correspond à add.
> > > > > C'est faux puisque cela ne marche pas, donc comment faut il


faire.
> De
> > > plus
> > > > > d'après l'exemple que m'a indiqué Sophie, cela devrait


fonctionner
?
> > > Alors
> > > > > qu'est ce que je ne fais pas ?
> > > > >
> > > > > "Bismark Prods" a écrit dans le message de
news:
> > > > >
> > > > > > A la fin il y a un Set itListV = nothing qui manque deja
> > > > > > et puis pourquoi tu n'ajoute pas dans la methode add ? au lieu
de
> > > faire
> > > > à
> > > > > > vide ?
> > > > > >
> > > > > > "TEV" a écrit dans le message de
> > > > > > news:3f5d0e5e$0$11519$
> > > > > > > Merci pour la réponse, mais du coup je ne vois pas trop ce


qui
> > > cloche
> > > > > chez
> > > > > > > moi. Il n'affiche rien à partir des subitems.
> > > > > > >
> > > > > > > Mon code est le suivant j'utilise ADO et RCVF est le


recordset
> > > > contenant
> > > > > > les
> > > > > > > données.
> > > > > > >
> > > > > > > Do Until RcVF.EOF
> > > > > > > Set itListV = ListV.ListItems.Add()
> > > > > > > itListV.Text = RcVF.Fields(0) ' Là il écrit quelque
> chose
> > > > > > > itListV.SubItems(1) = RcVF.Fields(1) ' A partir
d'ici
> > > plus
> > > > > rien
> > > > > > > itListV.SubItems(2) = RcVF.Fields(2)
> > > > > > > itListV.SubItems(3) = RcVF.Fields(3)
> > > > > > > itListV.SubItems(4) = RcVF.Fields(4)
> > > > > > > itListV.SubItems(5) = RcVF.Fields(5)
> > > > > > > RcVF.MoveNext
> > > > > > > Loop
> > > > > > >
> > > > > > > Il y a probablement une préparation que je n'ai pas su


faire.
> > > > > > >
> > > > > > > Christian.
> > > > > > >
> > > > > > > "Sophie" a écrit dans le message
de
> > > news:
> > > > > > >
> > > > > > > > Bonjour Christian,
> > > > > > > >
> > > > > > > > Exemple avec la méthode Dao,
> > > > > > > >
> > > > > > > > Dim listItem As listItem
> > > > > > > > Dim intNoAssureur As Integer
> > > > > > > > Dim strSQL As String
> > > > > > > > rsContact as Recordset
> > > > > > > >
> > > > > > > > '/// vide la ListView
> > > > > > > >
> > > > > > > > lvwListeContact.ListItems.Clear
> > > > > > > >
> > > > > > > > '/// sélectionne seulement les enregistrements
> > > > correspondant
> > > > > au
> > > > > > > > champ
> > > > > > > > '/// "Numéro" affiché sur la feuille
> > > > > > > >
> > > > > > > > intNoAssureur = Int(txtNumero.Text)
> > > > > > > > strSQL = "SELECT * FROM [TableAssureurContact]" & _
> > > > > > > > " WHERE [TableAssureurContact].Numero = " &
> > > > intNoAssureur
> > > > > &
> > > > > > "
> > > > > > > ;
> > > > > > > > "
> > > > > > > > Set rsContact = dbGivan.OpenRecordset(strSQL)
> > > > > > > >
> > > > > > > > If rsContact.RecordCount <> 0 Then
> > > > > > > >
> > > > > > > > rsContact.MoveFirst
> > > > > > > >
> > > > > > > > Do Until rsContact.EOF
> > > > > > > >
> > > > > > > > Set listItem = lvwListeContact.ListItems.Add()
> > > > > > > > listItem.Text = rsContact![RefAssureurContact]
> > > > > > > > listItem.SubItems(1) = rsContact![NomContact]
> > > > > > > > listItem.SubItems(2) = rsContact![Titre]
> > > > > > > > listItem.SubItems(3) = rsContact![Tel]
> > > > > > > > listItem.SubItems(4) = rsContact![Ext]
> > > > > > > > listItem.SubItems(5) = rsContact![Fax]
> > > > > > > > listItem.SubItems(6) = rsContact![Cell]
> > > > > > > > listItem.SubItems(7) = rsContact![Remarque]
> > > > > > > > rsContact.MoveNext
> > > > > > > > Loop
> > > > > > > >
> > > > > > > > '/// Libère les ressources
> > > > > > > >
> > > > > > > > Set listItem = Nothing
> > > > > > > >
> > > > > > > > End If
> > > > > > > >
> > > > > > > > '/// Libère les ressources
> > > > > > > >
> > > > > > > > rsContact.Close
> > > > > > > > Set rsContact = Nothing
> > > > > > > > strSQL = ""
> > > > > > > >
> > > > > > > > Sophie
> > > > > > > >
> > > > > > > > "TEV" a écrit dans le message de
> > > > > > > >


news:3f5bc53d$0$2731$
> > > > > > > > > Bonjour,
> > > > > > > > >
> > > > > > > > > Comme dit dans le titre comment fait on pour remplir un
> > listview
> > > > > avec
> > > > > > > des
> > > > > > > > > données provenant d'une requête SQL.
> > > > > > > > >
> > > > > > > > > Christian.
> > > > > > > > >
> > > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>




Avatar
Bismark Prods
la solution est facile ! il suffit de sélectionner manuellement (par prog)
l'élément touchés dans ItemCheck ! et c'est bon !

"Sophie" a écrit dans le message de
news:
Bonjour Christian,

Sa fait la même chose chez moi , malheureusement,
j'ai pas encore trouvé la solution.

Sophie

"TEV" a écrit dans le message de
news:3f5ec834$0$12120$
> Merci Sophie c'est une des réponses que j'espérais. L'autre était de
savoir
> comment cocher une checkbox avec le code.
>
> Et est-ce que cela fait pareil chez toi ? Lorsque je coche manuellement
une
> des cases la ligne sélectionnée reste la première. Par exemple je coche


la
> 2ème case et pourtant la 1er ligne est sélectionnée et non pas la 2ème.


Y
a
> t'il moyen d'y remédier ?
>
> "Sophie" a écrit dans le message de news:
>
> > Voici un autre exemple si tu désires
> > récupérer tous ceux dont la case est
> > cochées.
> >
> > '/// récupère toutes les cases qui sont cochées
> >
> > For X = 1 To lvwListe.ListItems.Count
> >
> > If lvwListe.ListItems(X).Checked = True Then
> >
> > strNom = lvwListe.ListItems(X).Text
> > ??? (ton code)
> >
> > End If
> >
> > Next X
> >
> > "Sophie" a écrit dans le message de
> > news:O4mnM%
> > > Si j'ai bien compris essaie ceci:
> > > Variable= ListV.SelectedItem.Text
> > >
> > > Sophie
> > >
> > > "TEV" a écrit dans le message de
> > > news:3f5e432d$0$10902$
> > > > Vraiment je te remercie.
> > > > J'ai enfin trouvé ce qui clochait, il me fallait mettre
> > > > listview.view = lvwReport
> > > >
> > > > Et donc, en faisant comme cela tout les exemples que l'on m'a


donné
> > > > fonctionnent.
> > > >
> > > > Maintenant j'ai comme soucis de vouloir checké les cases à cocher


de
> la
> > > > listviews et de récupérer la valeur qui se trouve dans la
colonne(pas
> le
> > > > false ou le true) en l'occurence des id. Le code suivant ne fait


que
> les
> > > > afficher
> > > > listview.checkboxes = true
> > > > ou les retirer en faisant
> > > > listview.checkboxes = false
> > > > Je suis désolé c'est du genre super casse pied, mais je galère. Et
> > encore
> > > > merci pour l'intérêt.
> > > >
> > > >
> > > > "Bismark Prods" a écrit dans le message de


news:
> > > >
> > > > > Je ne sais pas ce que tu ne fais pas mais je sais ce que je fais
> > presque
> > > > 400
> > > > > fois par jour lol !
> > > > >
> > > > > Dim IList As ListItem
> > > > >
> > > > > Set IList = ListView1.ListItems.Add(, , "truc")
> > > > > IList.SubItems(1) = "truc2"
> > > > > ...
> > > > > Set IList = Nothing
> > > > >
> > > > > Personnellement je n'utilise presque jamais l'index et le key de
la
> > > > methode
> > > > > Add mais tu peux le faire si tu as besoin !!!
> > > > >
> > > > > lol bonne soirée
> > > > >
> > > > > "TEV" a écrit dans le message de
> > > > > news:3f5dc777$0$15950$
> > > > > > Le Set itListV = nothing figure dans le programme, il n'est
> > simplement
> > > > pas
> > > > > > présent dans l'extrait.
> > > > > >
> > > > > > >pourquoi tu n'ajoute pas dans la methode add ? au lieu de


faire
à
> > > > > > > vide
> > > > > >
> > > > > > Je ne comprends pas la question. Je pensais ajouter quelques
chose
> > > comme
> > > > > > cela puisque la variable itListV correspond à add.
> > > > > > C'est faux puisque cela ne marche pas, donc comment faut il
faire.
> > De
> > > > plus
> > > > > > d'après l'exemple que m'a indiqué Sophie, cela devrait
fonctionner
> ?
> > > > Alors
> > > > > > qu'est ce que je ne fais pas ?
> > > > > >
> > > > > > "Bismark Prods" a écrit dans le message de
> news:
> > > > > >
> > > > > > > A la fin il y a un Set itListV = nothing qui manque deja
> > > > > > > et puis pourquoi tu n'ajoute pas dans la methode add ? au


lieu
> de
> > > > faire
> > > > > à
> > > > > > > vide ?
> > > > > > >
> > > > > > > "TEV" a écrit dans le message de
> > > > > > > news:3f5d0e5e$0$11519$
> > > > > > > > Merci pour la réponse, mais du coup je ne vois pas trop ce
qui
> > > > cloche
> > > > > > chez
> > > > > > > > moi. Il n'affiche rien à partir des subitems.
> > > > > > > >
> > > > > > > > Mon code est le suivant j'utilise ADO et RCVF est le
recordset
> > > > > contenant
> > > > > > > les
> > > > > > > > données.
> > > > > > > >
> > > > > > > > Do Until RcVF.EOF
> > > > > > > > Set itListV = ListV.ListItems.Add()
> > > > > > > > itListV.Text = RcVF.Fields(0) ' Là il écrit


quelque
> > chose
> > > > > > > > itListV.SubItems(1) = RcVF.Fields(1) ' A partir
> d'ici
> > > > plus
> > > > > > rien
> > > > > > > > itListV.SubItems(2) = RcVF.Fields(2)
> > > > > > > > itListV.SubItems(3) = RcVF.Fields(3)
> > > > > > > > itListV.SubItems(4) = RcVF.Fields(4)
> > > > > > > > itListV.SubItems(5) = RcVF.Fields(5)
> > > > > > > > RcVF.MoveNext
> > > > > > > > Loop
> > > > > > > >
> > > > > > > > Il y a probablement une préparation que je n'ai pas su
faire.
> > > > > > > >
> > > > > > > > Christian.
> > > > > > > >
> > > > > > > > "Sophie" a écrit dans le


message
> de
> > > > news:
> > > > > > > >
> > > > > > > > > Bonjour Christian,
> > > > > > > > >
> > > > > > > > > Exemple avec la méthode Dao,
> > > > > > > > >
> > > > > > > > > Dim listItem As listItem
> > > > > > > > > Dim intNoAssureur As Integer
> > > > > > > > > Dim strSQL As String
> > > > > > > > > rsContact as Recordset
> > > > > > > > >
> > > > > > > > > '/// vide la ListView
> > > > > > > > >
> > > > > > > > > lvwListeContact.ListItems.Clear
> > > > > > > > >
> > > > > > > > > '/// sélectionne seulement les enregistrements
> > > > > correspondant
> > > > > > au
> > > > > > > > > champ
> > > > > > > > > '/// "Numéro" affiché sur la feuille
> > > > > > > > >
> > > > > > > > > intNoAssureur = Int(txtNumero.Text)
> > > > > > > > > strSQL = "SELECT * FROM [TableAssureurContact]" & _
> > > > > > > > > " WHERE [TableAssureurContact].Numero = " &
> > > > > intNoAssureur
> > > > > > &
> > > > > > > "
> > > > > > > > ;
> > > > > > > > > "
> > > > > > > > > Set rsContact = dbGivan.OpenRecordset(strSQL)
> > > > > > > > >
> > > > > > > > > If rsContact.RecordCount <> 0 Then
> > > > > > > > >
> > > > > > > > > rsContact.MoveFirst
> > > > > > > > >
> > > > > > > > > Do Until rsContact.EOF
> > > > > > > > >
> > > > > > > > > Set listItem lvwListeContact.ListItems.Add()
> > > > > > > > > listItem.Text rsContact![RefAssureurContact]
> > > > > > > > > listItem.SubItems(1) rsContact![NomContact]
> > > > > > > > > listItem.SubItems(2) = rsContact![Titre]
> > > > > > > > > listItem.SubItems(3) = rsContact![Tel]
> > > > > > > > > listItem.SubItems(4) = rsContact![Ext]
> > > > > > > > > listItem.SubItems(5) = rsContact![Fax]
> > > > > > > > > listItem.SubItems(6) = rsContact![Cell]
> > > > > > > > > listItem.SubItems(7) = rsContact![Remarque]
> > > > > > > > > rsContact.MoveNext
> > > > > > > > > Loop
> > > > > > > > >
> > > > > > > > > '/// Libère les ressources
> > > > > > > > >
> > > > > > > > > Set listItem = Nothing
> > > > > > > > >
> > > > > > > > > End If
> > > > > > > > >
> > > > > > > > > '/// Libère les ressources
> > > > > > > > >
> > > > > > > > > rsContact.Close
> > > > > > > > > Set rsContact = Nothing
> > > > > > > > > strSQL = ""
> > > > > > > > >
> > > > > > > > > Sophie
> > > > > > > > >
> > > > > > > > > "TEV" a écrit dans le message de
> > > > > > > > >
news:3f5bc53d$0$2731$
> > > > > > > > > > Bonjour,
> > > > > > > > > >
> > > > > > > > > > Comme dit dans le titre comment fait on pour remplir


un
> > > listview
> > > > > > avec
> > > > > > > > des
> > > > > > > > > > données provenant d'une requête SQL.
> > > > > > > > > >
> > > > > > > > > > Christian.
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > >
> > > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>




1 2