Selectionner objet Listview

Bonjour,

Je travaille toujours avec mes listviews, et j'ai toujours des problèmes que je n'arrive pas à résoudre.
J'aimerais sélectionner la première ligne de ma listview, et lui donner le focus. (Faire comme si j'avais cliqué à la souris dessus mais par le code). J'ai trouvé ce code ici: http://silkyroad.developpez.com/VBA/ListView/#LII-H

Code:

---

1 2 3

ListView1.ListItems(NumeroDeLaLigne).EnsureVisible ListView1.ListItems(NumeroDeLaLigne).Selected = True ListView1.SetFocus

---

Mais cela rend la propriété selected de ma ligne vrai, mais ne me la mets pas en surbrillance comme lorsque que je clique. Et si j'appuie sur les touches fléchées, ça ne change pas ma sélection (alors que ça le fais si je sélectionne avec ma souris)

Y a-t-il une solution à mon problème ? Si, oui je veux bien que vous m'éclairiez de vos lumières

Bonjour,

Essaie ceci
ListView1.GetFirstVisible
ListView1.SetFocus

Merci de ta réponse,

mais ça ne marche toujours pas, peut être qu'il n'y a pas de solution...

Ça fonctionne pourtant bien ici ... (?)

Peut-être que c'est le léger traitement que je réalise par la suite qui me "cache" la sélection.
Juste après je mets à vrai les propriétés enabled et visible de certains boutons.

Je vais regarder

J'ai supprimer les traitements qui se produisait par la suite. Maintenant après ton code il se passe juste la procédure de gestion des erreurs qui ouvre un MsgBox sur la condition "on error". Donc qui ici ne fais rien. Et le retour de ma fonction. Cependant ça ne marche pas. J'ai l'impression que ma ListView n'a pas le focus malgré la ligne laListView.SetFocus

Pourquoi le passage dans la procédure de gestion d'erreur ?
Y a-t-il une erreur ou tu as tout simplement omis de mettre un Exit Sub avant cette procédure ?

Si tu passes en pas à pas (F8) est-ce que la ligne se sélectionne ?
Est-ce que tu as mis un Application.ScreenUpdating = False ? (pas certain mais peut-être que ça pourrait influencer l'affichage...)

Pour que l'utilisateur ne se retrouve pas dans mon code avec le programme planté, j'ai une gestion d'erreur qui affiche un message comme quoi il y a eu une erreur et qui quitte la fonction en cas d'erreur. Toute mes fonctions/procédures se termine par cela ; ça ressemble à ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Function MaFonction() as boolean Dim blnFRet as boolean   On Error GoTo MaFonctionErreur blnFRet = True 'Par défaut ça va bien se passer   'lignes de codes de la fonction   MaFonctionExit MaFonction = blnFRet Exit function   MaFonctionErreur MsgBox "Erreur dans la fonction MaFonction" blnFRet = False resume MaFonctionExit   End Function

---

Même en pas à pas il ne se passe rien, à part la propriété Selected de mon item qui est bien passé à vrai.

Non je ne touche pas à Application.ScreenUpdating

Utilise seulement les 2 lignes que je t'ai mises et oublie le Selected = True et EnsureVisible

Sinon, il y a peut-être une propriété de la ListView que tu as changée et qui cause problème...(?)