ListView ne revois pas les données

Bonsoir tout le monde,

un problème se règle, un autre survient...!

Mon soucis est avec ce tuto: https://www.youtube.com/watch?v=8RXoqh9lf1c

La listVew doit renvoyer des valeurs dans les champs du UserForm dés que l'on clique sur une valeur dans la liste...

J'ai beau chercher depuis 2 heures, rien ne veut s'afficher...

Je pense que le problème vient de cette partie de code:

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

txtNumero = ListView1.SelectedItem

txtNom = ListView1.SelectedItem.SubItems(1)

txtPrenom = ListView1.SelectedItem.SubItems(2)

txtTelFixe = ListView1.SelectedItem.SubItems(3)

txtTelPort = ListView1.SelectedItem.SubItems(4)

txtAdresse = ListView1.SelectedItem.SubItems(5)

txtVille = ListView1.SelectedItem.SubItems(6)

txtCPost = ListView1.SelectedItem.SubItems(7)

txtEmail = ListView1.SelectedItem.SubItems(8)

txtNaissance = ListView1.SelectedItem.SubItems(9)

txtSexe = ListView1.SelectedItem.SubItems(10)

txtLicence = ListView1.SelectedItem.SubItems(11)

txtCarte = ListView1.SelectedItem.SubItems(12)

txtTireur = ListView1.SelectedItem.SubItems(13)

txtMillieu = ListView1.SelectedItem.SubItems(14)

txtPointeur = ListView1.SelectedItem.SubItems(15)

End Sub

Et peut-être de ce qui est surligné...

Je ne connais pas et j'aimerais une solution bien sur, mais aussi des explications (histoire de ne pas mourir idiot)

Merci de votre aide.

Classeur de travail joint:

bonsoir Atlonia

voici un début

Private Sub ListView1_DblClick()
    Nom.Value = frmListView.ListView1.SelectedItem.Text
    Prenom.Value = frmListView.ListView1.SelectedItem.ListSubItems(1).Text
    Tireur.Value = frmListView.ListView1.SelectedItem.ListSubItems(2).Text
    Millieu.Value = frmListView.ListView1.SelectedItem.ListSubItems(3).Text
    Pointeur.Value = frmListView.ListView1.SelectedItem.ListSubItems(4).Text
End Sub

tu peux rajouter des lignes comme tu veux en augmentant le dernierchiffre entre parenthèse voir même en les désordonnant

Bonsoir grisan29!

Merci pour ton code, mais quand je colle dans mon VBA et que je le modifie pour l'adapter, il me le refuse encore

Numero.Value = frmListView.ListView1.SelectedItem.Text

Nom.Value = frmListView.ListView1.SelectedItem.ListSubItems(2).Text

Prenom.Value = frmListView.ListView1.SelectedItem.ListSubItems(3).Text

Tireur.Value = frmListView.ListView1.SelectedItem.ListSubItems(13).Text

Millieu.Value = frmListView.ListView1.SelectedItem.ListSubItems(14).Text

Pointeur.Value = frmListView.ListView1.SelectedItem.ListSubItems(15).Text

ça m'affiche "Index out of bound"... Sur la ligne surlignée (colonne 13)

Bonjour,

Tu n'as pas initialisés tous les SubItems.

A+

bonjour

si ca peux te servir voila une listview que je suis en train de faire

il récupère les numéro de Ligne

A+

Maurice

bonjour archer, galopin01,atlonia

j'ai compris pourquoi le code donner ne fonctionne pas, le nom des textbox n'est pas le même, dans ton code tu mets

txtNom = ListView1.SelectedItem.SubItems(1)

alors que ton textbox se nomme

Nom = ListView1.SelectedItem.SubItems(1)

et pour les autres c'est la même chose , une fois rectifier chez moi ca fonctionne avec les 5 textbox mis en exemple

a rectifier mais fonctionnel

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

    Nom = ListView1.SelectedItem.SubItems(1)
    Prenom = ListView1.SelectedItem.SubItems(2)
    'txtCarte = ListView1.SelectedItem.SubItems(12)
    Tireur = ListView1.SelectedItem.SubItems(13)
    Millieu = ListView1.SelectedItem.SubItems(14)
    Pointeur = ListView1.SelectedItem.SubItems(15)

End Sub

Je ne crois pas... ça il a du rectifier. Enfin J'sais pas, c'est un peu le bordel !

Je crois plutôt que ce sont les SubItem qui ne sont pas initialisés :

Dans la Private Sub Actualisation() il s'est arrété à 8 ou 9 SubItems...

Bonjour

Voila 2 modèle de Listview

a toi de Voir

A+

Maurice

Ben oui, mais son modèle à lui c'est YouTube !

C'est vrai KSA a pas l'air tiptop, mébon... Chacun à le droit de choisir son sauciflard !

Merci grisan29, archer et galopin01

Merci pour l'intérêt que vous portez à mon problème.

archer, ton exemple fait une alerte "Erreur d'exécution '1004': Erreur définie par l"application ou par l'objet" à la ligne:

Private Sub Modife()

For C = 1 To 14

Controls("TextBox" & C).Value = Sh.Cells(Lig, C).Value

Next

End Sub

Grisan29, effectivement tu as mis le doigt sur mon erreur, ça marche mieux, mais qu'a moitié (Les textBox "Nom" et "Prenom" se remplissent bien, mais pas les 3 autres...!

Aurais-je raté quelque chose...?

Galopin01, Je comprend bien ton commentaire, C'est ce que j'avais cru comprendre avec "Out of bound" mais je ne vois pas dans le code ou je dois initialiser ces valeurs...!

Peux-tu m'en dire un peut plus ?

Toujours mon fichier joint:

Bonjour le fil, bonjour le forum,

atlonia,

Une version à tester sous condition que la colonne H n'ai pas de ligne vide. Sinon, il y a une erreur, un chiffre est nécessaire.

Joseph

Merci grisan29 et galopin01,

Merci beaucoup, avec votre aide et après m'être creusé la tête, j'ai enfin résolu mon problème...!

CA FONCTIONNE PARFAITEMENT !!!

Effectivement, Mes noms de TextBox ne correspondait pas, et tous mes SubItem n'étaient pas déclarer...!

Merci encore pour vos conseils et votre indulgence.

Merci à vous, grisan29 et galopin01

J'ai réajusté mes noms de TextBox, et j'ai déclaré les ListItem manquant et enfin réglé un petit problème de décalage de données dans la TextBox "Pointeur".

ça marche enfin

Merci de vos connaissances et de votre altruisme.