OVH Cloud OVH Cloud

Listview

7 réponses
Avatar
Jean
Bonjour,

je découvre ListView mais j'ai un petit problème

j'ai écris ça :

ListView1.ListItems.Clear

With ListView1
With .ColumnHeaders
.Clear
.Add , , "Prénoms", 70
.Add , , "Info1", 40
.Add , , "Info2", 40
.Add , , "Info3", 40
End With

i = 1
.ListItems.Add , , i
.ListItems(i).ListSubItems.Add , , "info 1"
.ListItems(i).ListSubItems.Add , , "info 2"
.ListItems(i).ListSubItems.Add , , "info 3"
i = 2
.ListItems.Add , , i
.ListItems(i).ListSubItems.Add , , "info 1"
.ListItems(i).ListSubItems.Add , , "info 2"
.ListItems(i).ListSubItems.Add , , "info 3"

End With

Je m'attendais à avoir deux lignes du type
1 Info1 Info2 Info3
2 Info1 Info2 Info3

Mais j'ai ça :
1
2 Info1 Info2 Info3

Pouvez-vous m'expliquer pourquoi et où est mon erreur.

Merci d'avance

Jean

7 réponses

Avatar
michdenis
Bonjour Jean,

Un exemple simple là :


http://cjoint.com/?csvWpxsW1w



Salutations!



"Jean" a écrit dans le message de news: 43f77968$0$6644$
Bonjour,

je découvre ListView mais j'ai un petit problème

j'ai écris ça :

ListView1.ListItems.Clear

With ListView1
With .ColumnHeaders
.Clear
.Add , , "Prénoms", 70
.Add , , "Info1", 40
.Add , , "Info2", 40
.Add , , "Info3", 40
End With

i = 1
.ListItems.Add , , i
.ListItems(i).ListSubItems.Add , , "info 1"
.ListItems(i).ListSubItems.Add , , "info 2"
.ListItems(i).ListSubItems.Add , , "info 3"
i = 2
.ListItems.Add , , i
.ListItems(i).ListSubItems.Add , , "info 1"
.ListItems(i).ListSubItems.Add , , "info 2"
.ListItems(i).ListSubItems.Add , , "info 3"

End With

Je m'attendais à avoir deux lignes du type
1 Info1 Info2 Info3
2 Info1 Info2 Info3

Mais j'ai ça :
1
2 Info1 Info2 Info3

Pouvez-vous m'expliquer pourquoi et où est mon erreur.

Merci d'avance

Jean
Avatar
JLuc
*Bonjour michdenis*,
Ca m'a l'air tout a fait bien ce Listview, mais ou trouver de l'aide
sur ce controle ?


Bonjour Jean,

Un exemple simple là :


http://cjoint.com/?csvWpxsW1w



Salutations!



"Jean" a écrit dans le message de news:
43f77968$0$6644$ Bonjour,

je découvre ListView mais j'ai un petit problème

j'ai écris ça :

ListView1.ListItems.Clear

With ListView1
With .ColumnHeaders
.Clear
.Add , , "Prénoms", 70
.Add , , "Info1", 40
.Add , , "Info2", 40
.Add , , "Info3", 40
End With

i = 1
.ListItems.Add , , i
.ListItems(i).ListSubItems.Add , , "info 1"
.ListItems(i).ListSubItems.Add , , "info 2"
.ListItems(i).ListSubItems.Add , , "info 3"
i = 2
.ListItems.Add , , i
.ListItems(i).ListSubItems.Add , , "info 1"
.ListItems(i).ListSubItems.Add , , "info 2"
.ListItems(i).ListSubItems.Add , , "info 3"

End With

Je m'attendais à avoir deux lignes du type
1 Info1 Info2 Info3
2 Info1 Info2 Info3

Mais j'ai ça :
1
2 Info1 Info2 Info3

Pouvez-vous m'expliquer pourquoi et où est mon erreur.

Merci d'avance

Jean



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
Jean
Bonjour et meci

Par contre j'ai un problème.
J'ai la même vesion que toi (ListView ActiveX Control - Version 6.0 SP4)
mais lorsque j'efface simplement l'objet ListView1 et que je le remplace par
un que je trace (je ne touche pas au code), ça marche plus.

Voici mon fichier ci-joint : http://cjoint.com/?ctjmbrfaal

Je suis en Excel 2002

As-tu une idée de ce qui se passe ?

Merci d'avance

Jean


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

Bonjour Jean,

Un exemple simple là :


http://cjoint.com/?csvWpxsW1w



Salutations!



"Jean" a écrit dans le message de news:
43f77968$0$6644$
Bonjour,

je découvre ListView mais j'ai un petit problème

j'ai écris ça :

ListView1.ListItems.Clear

With ListView1
With .ColumnHeaders
.Clear
.Add , , "Prénoms", 70
.Add , , "Info1", 40
.Add , , "Info2", 40
.Add , , "Info3", 40
End With

i = 1
.ListItems.Add , , i
.ListItems(i).ListSubItems.Add , , "info 1"
.ListItems(i).ListSubItems.Add , , "info 2"
.ListItems(i).ListSubItems.Add , , "info 3"
i = 2
.ListItems.Add , , i
.ListItems(i).ListSubItems.Add , , "info 1"
.ListItems(i).ListSubItems.Add , , "info 2"
.ListItems(i).ListSubItems.Add , , "info 3"

End With

Je m'attendais à avoir deux lignes du type
1 Info1 Info2 Info3
2 Info1 Info2 Info3

Mais j'ai ça :
1
2 Info1 Info2 Info3

Pouvez-vous m'expliquer pourquoi et où est mon erreur.

Merci d'avance

Jean





Avatar
michdenis
Bonjour Jean,

Si tu promets de le dire à personne ...

En mode création, il y a une propriété du contrôle ListView appelée : View

A ) Tu sélectionnes le contrôle ListView
B ) Propriété "View" : 3- lvwReport
C ) Tu fais une sauvegarde ... et observe ce qui se passe lorsque
tu affiche le formulaire : miracle !


Salutations!




"Jean" a écrit dans le message de news: 43f82917$0$19716$
Bonjour et meci

Par contre j'ai un problème.
J'ai la même vesion que toi (ListView ActiveX Control - Version 6.0 SP4)
mais lorsque j'efface simplement l'objet ListView1 et que je le remplace par
un que je trace (je ne touche pas au code), ça marche plus.

Voici mon fichier ci-joint : http://cjoint.com/?ctjmbrfaal

Je suis en Excel 2002

As-tu une idée de ce qui se passe ?

Merci d'avance

Jean


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

Bonjour Jean,

Un exemple simple là :


http://cjoint.com/?csvWpxsW1w



Salutations!



"Jean" a écrit dans le message de news:
43f77968$0$6644$
Bonjour,

je découvre ListView mais j'ai un petit problème

j'ai écris ça :

ListView1.ListItems.Clear

With ListView1
With .ColumnHeaders
.Clear
.Add , , "Prénoms", 70
.Add , , "Info1", 40
.Add , , "Info2", 40
.Add , , "Info3", 40
End With

i = 1
.ListItems.Add , , i
.ListItems(i).ListSubItems.Add , , "info 1"
.ListItems(i).ListSubItems.Add , , "info 2"
.ListItems(i).ListSubItems.Add , , "info 3"
i = 2
.ListItems.Add , , i
.ListItems(i).ListSubItems.Add , , "info 1"
.ListItems(i).ListSubItems.Add , , "info 2"
.ListItems(i).ListSubItems.Add , , "info 3"

End With

Je m'attendais à avoir deux lignes du type
1 Info1 Info2 Info3
2 Info1 Info2 Info3

Mais j'ai ça :
1
2 Info1 Info2 Info3

Pouvez-vous m'expliquer pourquoi et où est mon erreur.

Merci d'avance

Jean





Avatar
Jean
Grand merci

je viens juste de le trouver, j'avais tout juste émis un autre message
auquel je viens de me répondre.
J'avais pourtant bien regardé tout les paramètres que tu avais utilisé mais
celui_là, je ne l'avais pas vu.

Merci encore.

Jean
"michdenis" a écrit dans le message de news:
OGF$
Bonjour Jean,

Si tu promets de le dire à personne ...

En mode création, il y a une propriété du contrôle ListView appelée : View

A ) Tu sélectionnes le contrôle ListView
B ) Propriété "View" : 3- lvwReport
C ) Tu fais une sauvegarde ... et observe ce qui se passe lorsque
tu affiche le formulaire : miracle !


Salutations!




"Jean" a écrit dans le message de news:
43f82917$0$19716$
Bonjour et meci

Par contre j'ai un problème.
J'ai la même vesion que toi (ListView ActiveX Control - Version 6.0 SP4)
mais lorsque j'efface simplement l'objet ListView1 et que je le remplace
par
un que je trace (je ne touche pas au code), ça marche plus.

Voici mon fichier ci-joint : http://cjoint.com/?ctjmbrfaal

Je suis en Excel 2002

As-tu une idée de ce qui se passe ?

Merci d'avance

Jean


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

Bonjour Jean,

Un exemple simple là :


http://cjoint.com/?csvWpxsW1w



Salutations!



"Jean" a écrit dans le message de news:
43f77968$0$6644$
Bonjour,

je découvre ListView mais j'ai un petit problème

j'ai écris ça :

ListView1.ListItems.Clear

With ListView1
With .ColumnHeaders
.Clear
.Add , , "Prénoms", 70
.Add , , "Info1", 40
.Add , , "Info2", 40
.Add , , "Info3", 40
End With

i = 1
.ListItems.Add , , i
.ListItems(i).ListSubItems.Add , , "info 1"
.ListItems(i).ListSubItems.Add , , "info 2"
.ListItems(i).ListSubItems.Add , , "info 3"
i = 2
.ListItems.Add , , i
.ListItems(i).ListSubItems.Add , , "info 1"
.ListItems(i).ListSubItems.Add , , "info 2"
.ListItems(i).ListSubItems.Add , , "info 3"

End With

Je m'attendais à avoir deux lignes du type
1 Info1 Info2 Info3
2 Info1 Info2 Info3

Mais j'ai ça :
1
2 Info1 Info2 Info3

Pouvez-vous m'expliquer pourquoi et où est mon erreur.

Merci d'avance

Jean










Avatar
michdenis
Bonjour Jluc,

Ce contrôle a fait son appararition avec la version 5.0 de Visual Basic
(le programme et non VBA). Il y a aussi une version 6.0 émanant de la dernière
Version du programme "Visual basic". Comme ce dernier programme est
déjà installé sur mon ordi., il m'est difficile de faire la distinction entre les
fichiers activex que le CD d'installation de microsoft office contient exclusivement.

Il se peut (c'est vrai pour un certain nombre d'activex) que ce dernier soit
présent sans que le programme "visual basic" soit installé.

Si tu n'as pas Visual Basic, comme source d'information, il te reste "google" et
il y a aussi un forum sur visual basic...je suppose que tu y trouveras des gens
susceptibles de répondre à tes questions sur le sujet.


Salutations!
Avatar
JLuc
*Bonjour michdenis*,
Merci pour ces reponses
JLuc

Bonjour Jluc,

Ce contrôle a fait son appararition avec la version 5.0 de Visual Basic
(le programme et non VBA). Il y a aussi une version 6.0 émanant de la
dernière Version du programme "Visual basic". Comme ce dernier programme est
déjà installé sur mon ordi., il m'est difficile de faire la distinction entre
les fichiers activex que le CD d'installation de microsoft office contient
exclusivement.

Il se peut (c'est vrai pour un certain nombre d'activex) que ce dernier soit
présent sans que le programme "visual basic" soit installé.

Si tu n'as pas Visual Basic, comme source d'information, il te reste "google"
et il y a aussi un forum sur visual basic...je suppose que tu y trouveras des
gens susceptibles de répondre à tes questions sur le sujet.


Salutations!



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O