Suppression texte dans listbox
Résolu/Fermé
A voir également:
- Suppression texte dans listbox
- Forcer suppression fichier - Guide
- Excel cellule couleur si condition texte - Guide
- Suppression page word - Guide
- Mettre un texte en majuscule - Guide
- Suppression compte instagram - Guide
6 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
29 janv. 2018 à 11:27
29 janv. 2018 à 11:27
Bonjour,
voir ici:
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-G
voir ici:
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-G
Merci,
Désolé, j'ai oublié de mentionner que je suis en VB2017 express
Voici mon code
Private Sub SUPPRESSION001()
Dim I As Integer
TextBox6.Text = AdresseGroup.Items.Count - 1.ToString
If TextBox6.Text > -1 Then
For I = 0 To TextBox6.Text
Text_Conversion.Text = AdresseGroup.Items(I).ToString
If Text_Conversion.Text = "TEXTE 3" Then
AdresseGroup.SelectedIndex.ToString.Remove(I) <== c'est cette ligne où je n'arrive pas à trouver ce qe je dois mettre
End If
Next
End If
End Sub
Désolé, j'ai oublié de mentionner que je suis en VB2017 express
Voici mon code
Private Sub SUPPRESSION001()
Dim I As Integer
TextBox6.Text = AdresseGroup.Items.Count - 1.ToString
If TextBox6.Text > -1 Then
For I = 0 To TextBox6.Text
Text_Conversion.Text = AdresseGroup.Items(I).ToString
If Text_Conversion.Text = "TEXTE 3" Then
AdresseGroup.SelectedIndex.ToString.Remove(I) <== c'est cette ligne où je n'arrive pas à trouver ce qe je dois mettre
End If
Next
End If
End Sub
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
Modifié le 29 janv. 2018 à 11:42
Modifié le 29 janv. 2018 à 11:42
Voir ceci alors:
'removing the selected item
http://w3ii.com/index.html
'removing the selected item
http://w3ii.com/index.html
Lorsque le programme passe sur la suppression de l'item est plante.
ce ne serait pas plus facile s'il me renvoyait l'index du "TEXTE 3" et que j'effacerais cet index ?
ce ne serait pas plus facile s'il me renvoyait l'index du "TEXTE 3" et que j'effacerais cet index ?
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
29 janv. 2018 à 12:16
29 janv. 2018 à 12:16
adapter le nom de la listBox
Voilà
Private Sub Remove()
For i As Integer = listnew.Items.Count - 1 To 0 Step -1
If listnew.GetSelected(i) Then
listnew.Items.RemoveAt(i)
End If
Next i
End Sub
Voilà
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
C'est énorme VB, il ne faut pas dire le contraire.
Ta solution n'a pas fonctionné mais en mixant un peu le tout, cela fonctionne.
Voici mon code
Private Sub SUPPRESSION001()
Dim index As Integer = AdresseGroup.FindStringExact("TEXTE 3")
If index > -1 Then
AdresseGroup.SetSelected(index, True)
AdresseGroup.Items.RemoveAt(index)
End If
End Sub
Je vais continue mon programme en le complexant un peu plus et on va voir si cela tient la route.
Encore merci pour vos idées
Ta solution n'a pas fonctionné mais en mixant un peu le tout, cela fonctionne.
Voici mon code
Private Sub SUPPRESSION001()
Dim index As Integer = AdresseGroup.FindStringExact("TEXTE 3")
If index > -1 Then
AdresseGroup.SetSelected(index, True)
AdresseGroup.Items.RemoveAt(index)
End If
End Sub
Je vais continue mon programme en le complexant un peu plus et on va voir si cela tient la route.
Encore merci pour vos idées
