• Initiateur de la discussion Initiateur de la discussion REA
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

R

REA

Guest
Bonjour le forum,

Je m'en remet à vous pour m'aider à dompter le contrôle ListView 🙁

J'aimerais réaliser une boucle sur un listview afin de sélectionner successiment chaque ligne de celui-ci.

Voici ce que je cherche à faire (exemple avec un ComboBox) :
For i = 0 To ComboBox1.ListCount
ComboBox1.ListIndex = i
Next i

Avec un ListView :
For i = 0 to ListView1.ListItems.Count
c'est ici que je ne trouve par la bonne commande
next i

merci d'avance pour votre aide. J'ai confiance en vous, à chaque fois vous avez réponse à mes questions 🙂

Bon début de semaine à tt le monde

REA
 
Re : Boucle sur ListView

bonjour Rea

un peu de codes et remarques pour t'aider

Pour autoriser la multi sélection, passer la propriété Multiselect à True.
Ensuite sélectionnez les lignes en gardant enfoncée la touche Ctrl.

Cet exemple permet de boucler sur les lignes sélectionnées.
Dim i As Integer

For i = 1 To ListView1.ListItems.Count
'Affiche le contenu de la 1ere colonne pour chaque ligne sélectionnée
If ListView1.ListItems(i).Selected = True Then _
MsgBox ListView1.ListItems(i).Text
Next i


Remarque:la première ligne est toujours sélectionnée par défaut lors de l'initialisation.
Si vous avez besoin de la déselectionner, utilisez:

ListView1.ListItems(1).Selected = False
Set ListView1.SelectedItem = Nothing

Cet autre exemple permet de désélectionner toutes les lignes.

Private Sub CommandButton2_Click()
Dim X As Integer

For X = 1 To ListView1.ListItems.Count
ListView1.ListItems(X).Selected = False
Next

Set ListView1.SelectedItem = Nothing
End Sub

à bientôt
 
Re : Boucle sur ListView

ListView1.ListItems(i).Selected = True > Nickel c'est exactement ce qu'il me fallait.Ma macro tourne au poil 😀

Le reste est très interessant, je le garde de côté.

merci beaucoup Bebere

Bonne continuation à tout le forum😎
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
10
Affichages
678
Réponses
15
Affichages
814
Réponses
7
Affichages
540
Réponses
5
Affichages
926
Retour