bonjour : une petite remarque : vous referencez toujours le numéro ligne 0, : Dim element As ListViewItem = ListView1.Items(0) je propose : Dim NumLigne = ListView1.FocusedItem.Index Dim element As ListViewItem = ListView1.Items(NumLigne) Sinon vous pointez toujours sur la premire ligne de la listview.
Projetx7 apparemment vous nous avez montré comment supprimer avec la methode longue mais qu'est ce qu'on est de la methode courte genre (ListView1.Items.Add(New ListViewItem(New String({}))
xlt Project, c'est encore moi. stp j'aimerai savoir comment effectuer une recherche dans une listView sans passer par une base de donnée. du genre j'ai un TextBox lequel je saisi un mot a rechercher, et la listView m'affiche les différents éléments de ces items commençant par le mot par le mot que j'ai saisi. merci d'avance.
xlt ProjectX! c'est encore moi. excuse moi si je te dérange une fois de plus. Au fait j'aimerais savoir comment transférer le contenu d'une ListView1 vers une ListView2. je l'est fait avec la boucle "For" et ça marche, j'aimerais mtn savoir si tu pouvait m'aider en le faisant avec la boucle "For Each", j'essai mais je suis bloquer. stp peux tu m'aider si c'est possible.
Voila: ListView2.Items.Clear() 'Vider la LV2 For Each item As ListViewItem In ListView1.Items Dim newItem As New ListViewItem(item.Text) newItem.Checked = item.Checked For i As Integer = 1 To item.SubItems.Count - 1 newItem.SubItems.Add(item.SubItems(i)) Next ListView2.Items.Add(newItem) Next
mais si tu compte vider la listview1 ça c'est mieux: ListView2.Items.Clear() 'Vider la LV2 For Each item As ListViewItem In ListView1.Items ListView1.Items.Remove(item) ListView2.Items.Add(item) Next
oui oui. je la vide. j'essayais de faire un système de recherche, donc j'ai use une boucle For pour rechercher l’élément voulu dans la lv1. si cet élément existe alors je le transfert dans la LV2 qui me sert de Temp puis je vide la LV1 et je la recharge avec les éléments que j'ai mis dans la LV2. ça marchais, mais je voulais le voulais le faire avec une boucle For Each pour voir laquelle des 2 méthode était la plus rapide. Merci pour le tuyau.
xlt Projetx7. j'ai surement mal posé ma question. au fait, j'aimerais pouvoir faire la somme des nombres et chiffre que j'ai mis dans la colonne d'une ListeView. ligne par ligne pour avoir le total.
ah je vois, voila: Dim total As Single = 0 Dim Colonne As Integer = 0 'Quelle colonne For Each item As ListViewItem In ListView1.Items total = total + CSng(item.SubItems(Colonne).Text.Replace(",", ".")) Next MessageBox.Show(total.ToString(), "Résultat") Quand on veut écrire 1 et demi il faut mettre 1.5 et non pas 1,5 c'est pour ça que j'ai remplacer , avec . avec la méthode Replace.
bonjour. j'aimerai programmer sur VBA un bouton AJOUTER qui poura fonctionner pour remplir plusieur feuille d'un classeur EXCELL de façon indépendante. Exemple: un formulaire qui a -une feuille commande produits -une feuile livraison produits J'aimerai ajouter des nouvelles saisis sur ces feuilles avec le mème bouton "AJOUTER"
xlt ProjetX7. c'est encore moi pour encore te fatiguer. ta réponse m'a sauvé, mais cette fois j'aimerais savoir comment faire la somme des items seulement sélectionnées dans une colonne précise par ex. la colonne 5. Sauve moi une fois de plus stp stp.
Slt, ListView1.SelectedItems nous retourne les éléments sélectionnés dans la listview donc tu peux faire: Dim total As Single = 0 Dim Colonne As Integer = 4 For Each item As ListViewItem In ListView1.SelectedItems total = total + CSng(item.SubItems(Colonne).Text.Replace(",", ".")) Next MessageBox.Show(total.ToString(), "Résultat") Sinon si ça ne règle pas ton problème n'hésite pas a me faire signe ^^
au fait ma colonne avec les Ckeckbox a l'index 0 tandis que les autres pour lesquelles je veux avoir le total des item sont le 6, 7, et 8. ce que je recherche c'est avoir la somme des lignes que je coche. je sais pas si tu me comprend.
ah je vois, tu peux faire comme ça: Dim total As Single = 0 For Each item As ListViewItem In ListView1.Items If (item.Checked) Then total = total + CSng(item.SubItems(6).Text.Replace(",", ".")) + CSng(item.SubItems(7).Text.Replace(",", ".")) _ + CSng(item.SubItems(8).Text.Replace(",", ".")) End If Next MessageBox.Show(total.ToString(), "Résultat") tkt pas si ce n'est toujours pas ce que tu veux je suis la :)
bonjour pourquoi dans le code du bouton supprimer tu mets l'indice (0) alors que tu ne vas pas forcément supprimer l'item d'indice o Dim Element As ListViewItem = ListView1.SelectedItems(0) merci d'une réponse cordialement
![[Visual Basic.NET #59] Listview avec ImageList](http://i.ytimg.com/vi/TYiquk_iRRA/mqdefault.jpg)
![[Visual Basic.NET #59] Listview avec ImageList](/img/tr.png)
![VB.NET And SQL Database - Records Navigation Using Visual Basic .Net [ with source code ]](/img/n.gif)
Super explication, je suis novice et ce fût super
Déo très cooll 🤙🏽
video tres efficase elle ma bien aider merci beaucoup bon travail vraiment
Merci pour cette vidéo ^^ , j'ai une question quand on quitte l'application les données dans la liste view restent bien enregistrer ?
Super ta vidéo à tu une vidéo pour enregistrer les valeurs de la listview dans un fichier ?
Bonjour j'aimerais faire la même chose mais avec une basse de données access. Avez-vous des suggestions?
J'APPRECIE BEAUCOUP TES VIDEOS MERCI BEAUCOUP JE NE SAIS SI TU AS DES VIDEOS SUR CRYSTAL REPORT EN VB.NET
bonjour : une petite remarque : vous referencez toujours le numéro ligne 0, :
Dim element As ListViewItem = ListView1.Items(0)
je propose :
Dim NumLigne = ListView1.FocusedItem.Index
Dim element As ListViewItem = ListView1.Items(NumLigne)
Sinon vous pointez toujours sur la premire ligne de la listview.
Projetx7 apparemment vous nous avez montré comment supprimer avec la methode longue mais qu'est ce qu'on est de la methode courte genre (ListView1.Items.Add(New ListViewItem(New String({}))
bonjour , svp comment puis je compter les lignes dans une listview ? merci d'avance
xlt Project, c'est encore moi. stp j'aimerai savoir comment effectuer une recherche dans une listView sans passer par une base de donnée. du genre j'ai un TextBox lequel je saisi un mot a rechercher, et la listView m'affiche les différents
éléments de ces items commençant par le mot par le mot que j'ai saisi. merci d'avance.
xlt ProjectX! c'est encore moi. excuse moi si je te dérange une fois de plus.
Au fait j'aimerais savoir comment transférer le contenu d'une ListView1 vers une ListView2.
je l'est fait avec la boucle "For" et ça marche, j'aimerais mtn savoir si tu pouvait m'aider en le faisant avec la boucle "For Each", j'essai mais je suis bloquer. stp peux tu m'aider si c'est possible.
Voila:
ListView2.Items.Clear() 'Vider la LV2
For Each item As ListViewItem In ListView1.Items
Dim newItem As New ListViewItem(item.Text)
newItem.Checked = item.Checked
For i As Integer = 1 To item.SubItems.Count - 1
newItem.SubItems.Add(item.SubItems(i))
Next
ListView2.Items.Add(newItem)
Next
mais si tu compte vider la listview1 ça c'est mieux:
ListView2.Items.Clear() 'Vider la LV2
For Each item As ListViewItem In ListView1.Items
ListView1.Items.Remove(item)
ListView2.Items.Add(item)
Next
oui oui. je la vide. j'essayais de faire un système de recherche, donc j'ai use une boucle For pour rechercher l’élément voulu dans la lv1. si cet élément existe alors je le transfert dans la LV2 qui me sert de Temp puis je vide la LV1 et je la recharge avec les éléments que j'ai mis dans la LV2. ça marchais, mais je voulais le voulais le faire avec une boucle For Each pour voir laquelle des 2 méthode était la plus rapide. Merci pour le tuyau.
xlt ProjectX, Merci pour les tuyaux, juste te dire un ptit bjr. Aller passe une agréable jrné
Merci à toi aussi également :)
xlt Projetx7. stp, j'aimerais savoir comment faire la somme des items d'une colonne dans une ListView
Dim Somme As Integer = ListView1.Items.Count
xlt Projetx7. j'ai surement mal posé ma question. au fait, j'aimerais pouvoir faire la somme des nombres et chiffre que j'ai mis dans la colonne d'une ListeView. ligne par ligne pour avoir le total.
ah je vois, voila:
Dim total As Single = 0
Dim Colonne As Integer = 0 'Quelle colonne
For Each item As ListViewItem In ListView1.Items
total = total + CSng(item.SubItems(Colonne).Text.Replace(",", "."))
Next
MessageBox.Show(total.ToString(), "Résultat")
Quand on veut écrire 1 et demi il faut mettre 1.5 et non pas 1,5 c'est pour ça que j'ai remplacer , avec . avec la méthode Replace.
genial!! thanks
bonjour. j'aimerai programmer sur VBA un bouton AJOUTER qui poura fonctionner pour remplir plusieur feuille d'un classeur EXCELL de façon indépendante.
Exemple:
un formulaire qui a
-une feuille commande produits
-une feuile livraison produits
J'aimerai ajouter des nouvelles saisis sur ces feuilles avec le mème bouton "AJOUTER"
xlt ProjetX7. c'est encore moi pour encore te fatiguer. ta réponse m'a sauvé, mais cette fois
j'aimerais savoir comment faire la somme des items seulement sélectionnées dans une colonne précise
par ex. la colonne 5.
Sauve moi une fois de plus stp stp.
Slt, ListView1.SelectedItems nous retourne les éléments sélectionnés dans la listview donc tu peux faire:
Dim total As Single = 0
Dim Colonne As Integer = 4
For Each item As ListViewItem In ListView1.SelectedItems
total = total + CSng(item.SubItems(Colonne).Text.Replace(",", "."))
Next
MessageBox.Show(total.ToString(), "Résultat")
Sinon si ça ne règle pas ton problème n'hésite pas a me faire signe ^^
Désolsé mais le "SelectedItems" ne passe pas. il affiche 0 quand il fait le calcul.
au fait ma colonne avec les Ckeckbox a l'index 0 tandis que les autres pour lesquelles je veux
avoir le total des item sont le 6, 7, et 8.
ce que je recherche c'est avoir la somme des lignes que je coche. je sais pas si tu me comprend.
ah je vois, tu peux faire comme ça:
Dim total As Single = 0
For Each item As ListViewItem In ListView1.Items
If (item.Checked) Then
total = total + CSng(item.SubItems(6).Text.Replace(",", ".")) + CSng(item.SubItems(7).Text.Replace(",", ".")) _
+ CSng(item.SubItems(8).Text.Replace(",", "."))
End If
Next
MessageBox.Show(total.ToString(), "Résultat")
tkt pas si ce n'est toujours pas ce que tu veux je suis la :)
Coool. tu me sauve encore.
ok. merci pour ta disponibilité!!
bonjour
pourquoi dans le code du bouton supprimer tu mets l'indice (0) alors que tu ne vas pas forcément supprimer l'item d'indice o
Dim Element As ListViewItem = ListView1.SelectedItems(0)
merci d'une réponse cordialement
: pour copier un textbox ou button
elle selection les botton + Ctr + cllick botton Maous goche et move la maous sorui