Mon probleme est le suivant: j'ai besoin d'un controle combobox dans
lequel je puisse mettre deux colonnes.
J'ai bien lu les posts et si j'ai bien compris le resultat est le
suivant:
avec le combo "classique" c'est impossible
avec le combo microsoft forms 2.0, c'est la m=E9merde a l'exportation
Moins académique mais plus simple, peut être... 2 listes côte à côte, en jouant avec les propriétés...
ce n'est pas plus simple.. :O) - synchroniser le déroulement des deux listes est une chose beaucoup plus complexe que d'apprivoiser le ListView. - le résultat visuel ne serait pas convaincant.
-- Cordialement Yanick MVP pour Visual Basic
Salut ! :O)
Moins académique mais plus simple, peut être... 2 listes
côte à côte, en jouant avec les propriétés...
ce n'est pas plus simple.. :O)
- synchroniser le déroulement des deux listes est une chose beaucoup plus
complexe que d'apprivoiser le ListView.
- le résultat visuel ne serait pas convaincant.
Moins académique mais plus simple, peut être... 2 listes côte à côte, en jouant avec les propriétés...
ce n'est pas plus simple.. :O) - synchroniser le déroulement des deux listes est une chose beaucoup plus complexe que d'apprivoiser le ListView. - le résultat visuel ne serait pas convaincant.
-- Cordialement Yanick MVP pour Visual Basic
Ataya
merci, en copian collant ca marche super, sauf que bien sur lorsque je modifie ca marche plus... Moi l'objectif est de mettre des Subitems, donc j'ai rajouté des entetes de col et je repli comme il convient voici le code:
Dim colX As ColumnHeader With lstPers .View = lvwReport Set colX = .ColumnHeaders.Add() .ColumnHeaders(1).Width = 2000 .ColumnHeaders(1).Text = "Ton Titre de Cols ici" .ColumnHeaders(2).Width = 2000 ''ERREUR: index hors limites .ColumnHeaders(2).Text = "Ton Titre de Cols ici" .ColumnHeaders(3).Width = 2000 .ColumnHeaders(3).Text = "Ton Titre de Cols ici" .ColumnHeaders(4).Width = 2000 .ColumnHeaders(4).Text = "Ton Titre de Cols ici"
Dim myListItem As ListItem Do While rsLstPers.EOF = False Set myListItem = lstPers.ListItems.Add(, , rsLstPers(0)) myListItem.SubItems(1) = rsLstPers(1) myListItem.SubItems(2) = rsLstPers(2) myListItem.SubItems(3) = rsLstPers(3)
Loop
Comment definit t'on les limites de l'index? est-ce le nombre de col? ou est-ce lié au fait que ce soit des subitems?
merci, en copian collant ca marche super, sauf que bien sur lorsque je
modifie ca marche plus...
Moi l'objectif est de mettre des Subitems, donc j'ai rajouté des
entetes de col et je repli comme il convient
voici le code:
Dim colX As ColumnHeader
With lstPers
.View = lvwReport
Set colX = .ColumnHeaders.Add()
.ColumnHeaders(1).Width = 2000
.ColumnHeaders(1).Text = "Ton Titre de Cols ici"
.ColumnHeaders(2).Width = 2000 ''ERREUR: index hors limites
.ColumnHeaders(2).Text = "Ton Titre de Cols ici"
.ColumnHeaders(3).Width = 2000
.ColumnHeaders(3).Text = "Ton Titre de Cols ici"
.ColumnHeaders(4).Width = 2000
.ColumnHeaders(4).Text = "Ton Titre de Cols ici"
Dim myListItem As ListItem
Do While rsLstPers.EOF = False
Set myListItem = lstPers.ListItems.Add(, , rsLstPers(0))
myListItem.SubItems(1) = rsLstPers(1)
myListItem.SubItems(2) = rsLstPers(2)
myListItem.SubItems(3) = rsLstPers(3)
Loop
Comment definit t'on les limites de l'index? est-ce le nombre de col?
ou est-ce lié au fait que ce soit des subitems?
merci, en copian collant ca marche super, sauf que bien sur lorsque je modifie ca marche plus... Moi l'objectif est de mettre des Subitems, donc j'ai rajouté des entetes de col et je repli comme il convient voici le code:
Dim colX As ColumnHeader With lstPers .View = lvwReport Set colX = .ColumnHeaders.Add() .ColumnHeaders(1).Width = 2000 .ColumnHeaders(1).Text = "Ton Titre de Cols ici" .ColumnHeaders(2).Width = 2000 ''ERREUR: index hors limites .ColumnHeaders(2).Text = "Ton Titre de Cols ici" .ColumnHeaders(3).Width = 2000 .ColumnHeaders(3).Text = "Ton Titre de Cols ici" .ColumnHeaders(4).Width = 2000 .ColumnHeaders(4).Text = "Ton Titre de Cols ici"
Dim myListItem As ListItem Do While rsLstPers.EOF = False Set myListItem = lstPers.ListItems.Add(, , rsLstPers(0)) myListItem.SubItems(1) = rsLstPers(1) myListItem.SubItems(2) = rsLstPers(2) myListItem.SubItems(3) = rsLstPers(3)
Loop
Comment definit t'on les limites de l'index? est-ce le nombre de col? ou est-ce lié au fait que ce soit des subitems?
Jacques93
Bonjour Ataya a écrit :
merci, en copian collant ca marche super, sauf que bien sur lorsque je modifie ca marche plus... Moi l'objectif est de mettre des Subitems, donc j'ai rajouté des entetes de col et je repli comme il convient voici le code:
Dim colX As ColumnHeader With lstPers .View = lvwReport Set colX = .ColumnHeaders.Add() .ColumnHeaders(1).Width = 2000 .ColumnHeaders(1).Text = "Ton Titre de Cols ici" .ColumnHeaders(2).Width = 2000 ''ERREUR: index hors limites .ColumnHeaders(2).Text = "Ton Titre de Cols ici" .ColumnHeaders(3).Width = 2000 .ColumnHeaders(3).Text = "Ton Titre de Cols ici" .ColumnHeaders(4).Width = 2000 .ColumnHeaders(4).Text = "Ton Titre de Cols ici"
End With
Normal, tu ne crée qu'une colonne, de plus si tu utilises une variable colX, autant t'en servir :
Dim myListItem As ListItem Do While rsLstPers.EOF = False Set myListItem = lstPers.ListItems.Add(, , rsLstPers(0)) myListItem.SubItems(1) = rsLstPers(1) myListItem.SubItems(2) = rsLstPers(2) myListItem.SubItems(3) = rsLstPers(3)
Loop
Comment definit t'on les limites de l'index? est-ce le nombre de col? ou est-ce lié au fait que ce soit des subitems?
Je ne comprends pas ta question 'limites de l'index'
Le nombre de colonnes est celui crée par .ColumnHeaders.Add tu peux le récupérer par .ColumnHeaders.Count (ici 4) La première colonne est un objet 'ListItem', les colonnes suivantes sont des objets 'ListItem.SubItem(n)' (n variant ici de 1 à 3)
Le nombre de ligne dépend de ton RecordSet et sera renseigné dans
lstPerso.ListItems.Count
-- Cordialement,
Jacques.
Bonjour
Ataya a écrit :
merci, en copian collant ca marche super, sauf que bien sur lorsque je
modifie ca marche plus...
Moi l'objectif est de mettre des Subitems, donc j'ai rajouté des
entetes de col et je repli comme il convient
voici le code:
Dim colX As ColumnHeader
With lstPers
.View = lvwReport
Set colX = .ColumnHeaders.Add()
.ColumnHeaders(1).Width = 2000
.ColumnHeaders(1).Text = "Ton Titre de Cols ici"
.ColumnHeaders(2).Width = 2000 ''ERREUR: index hors limites
.ColumnHeaders(2).Text = "Ton Titre de Cols ici"
.ColumnHeaders(3).Width = 2000
.ColumnHeaders(3).Text = "Ton Titre de Cols ici"
.ColumnHeaders(4).Width = 2000
.ColumnHeaders(4).Text = "Ton Titre de Cols ici"
End With
Normal, tu ne crée qu'une colonne, de plus si tu utilises une variable
colX, autant t'en servir :
Dim myListItem As ListItem
Do While rsLstPers.EOF = False
Set myListItem = lstPers.ListItems.Add(, , rsLstPers(0))
myListItem.SubItems(1) = rsLstPers(1)
myListItem.SubItems(2) = rsLstPers(2)
myListItem.SubItems(3) = rsLstPers(3)
Loop
Comment definit t'on les limites de l'index? est-ce le nombre de col?
ou est-ce lié au fait que ce soit des subitems?
Je ne comprends pas ta question 'limites de l'index'
Le nombre de colonnes est celui crée par .ColumnHeaders.Add
tu peux le récupérer par .ColumnHeaders.Count (ici 4)
La première colonne est un objet 'ListItem', les colonnes suivantes sont
des objets 'ListItem.SubItem(n)' (n variant ici de 1 à 3)
Le nombre de ligne dépend de ton RecordSet et sera renseigné dans
merci, en copian collant ca marche super, sauf que bien sur lorsque je modifie ca marche plus... Moi l'objectif est de mettre des Subitems, donc j'ai rajouté des entetes de col et je repli comme il convient voici le code:
Dim colX As ColumnHeader With lstPers .View = lvwReport Set colX = .ColumnHeaders.Add() .ColumnHeaders(1).Width = 2000 .ColumnHeaders(1).Text = "Ton Titre de Cols ici" .ColumnHeaders(2).Width = 2000 ''ERREUR: index hors limites .ColumnHeaders(2).Text = "Ton Titre de Cols ici" .ColumnHeaders(3).Width = 2000 .ColumnHeaders(3).Text = "Ton Titre de Cols ici" .ColumnHeaders(4).Width = 2000 .ColumnHeaders(4).Text = "Ton Titre de Cols ici"
End With
Normal, tu ne crée qu'une colonne, de plus si tu utilises une variable colX, autant t'en servir :
Dim myListItem As ListItem Do While rsLstPers.EOF = False Set myListItem = lstPers.ListItems.Add(, , rsLstPers(0)) myListItem.SubItems(1) = rsLstPers(1) myListItem.SubItems(2) = rsLstPers(2) myListItem.SubItems(3) = rsLstPers(3)
Loop
Comment definit t'on les limites de l'index? est-ce le nombre de col? ou est-ce lié au fait que ce soit des subitems?
Je ne comprends pas ta question 'limites de l'index'
Le nombre de colonnes est celui crée par .ColumnHeaders.Add tu peux le récupérer par .ColumnHeaders.Count (ici 4) La première colonne est un objet 'ListItem', les colonnes suivantes sont des objets 'ListItem.SubItem(n)' (n variant ici de 1 à 3)
Le nombre de ligne dépend de ton RecordSet et sera renseigné dans
lstPerso.ListItems.Count
-- Cordialement,
Jacques.
Ataya
bravo et merci à tous, j'ai reussi a alimenter mon listview...reste le prb des combobox à deux colonnes maintenant....
bravo et merci à tous, j'ai reussi a alimenter mon listview...reste le
prb des combobox à deux colonnes maintenant....
bravo et merci à tous, j'ai reussi a alimenter mon listview...reste le prb des combobox à deux colonnes maintenant....
mais je croyais que tu voulais alimenter ce LV pour éviter un combo à 2 colonnes ??
--
Attention ! Adresse mail invalide ... Pour me contacter, cliquez sur le lien ci-dessous: http://scraper.chez.tiscali.fr/contact.htm
scraper
Zoury
j'avoue en avoir perdu un bout moi aussi. :OD
-- Cordialement Yanick MVP pour Visual Basic "scraper" a écrit dans le message de news:%
Bonjour Ataya, dans le message news: tu disais :
> bravo et merci à tous, j'ai reussi a alimenter mon listview...reste le > prb des combobox à deux colonnes maintenant....
mais je croyais que tu voulais alimenter ce LV pour éviter un combo à 2 colonnes ??
--
Attention ! Adresse mail invalide ... Pour me contacter, cliquez sur le lien ci-dessous: http://scraper.chez.tiscali.fr/contact.htm
scraper
j'avoue en avoir perdu un bout moi aussi. :OD
--
Cordialement
Yanick
MVP pour Visual Basic
"scraper" <scraper@pasdespam.fr> a écrit dans le message de
news:%236MqH7jVFHA.3544@TK2MSFTNGP12.phx.gbl...
Bonjour Ataya, dans le message
news:1115825134.131204.68970@g44g2000cwa.googlegroups.com
tu disais :
> bravo et merci à tous, j'ai reussi a alimenter mon listview...reste le
> prb des combobox à deux colonnes maintenant....
mais je croyais que tu voulais alimenter ce LV pour éviter un combo à 2
colonnes ??
--
Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm
