Slection d'un subitem d'une listview

Bonsoir à vous

dans ma listview j'ai x lignes de 6 colonnes 60000 toto 75000 mimile 80000 hec (un plan comptable)

je dois choisir un nombre commençant par 6 ou 7

est il possible de sélectionner un subitems d'une colonne

si oui est il possible de vérifier si elle commence par 6 ou 7 pour contrôle selection

par exemple

sur la meme ligne sélectionnée de ma listview j'ai

60000 toto 75000 mimile 80000 hec

est il possible de conserver uniquement 6000 et vérifié que ce nombre commence par 6 pour l'inclure dans ma textbox

merci

Bonjour

Si je ne me plante pas

Dans ce que tu dis 60000 toto 75000 mimile 80000 hec

60000 c'est l'Item

toto 75000 mimile 80000 hec ce sont les SubItems (à partir de 1)

Donc pour tester l'Item

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim I As Integer, LaValeur As String

  Me.TextBox1 = ""
  I = Me.ListView1.SelectedItem.Index

  LaValeur = Me.ListView1.ListItems(I).Text
  If Left(LaValeur, 1) = "6" Then Me.TextBox1 = LaValeur
End Sub

Pour tester le SubItem il faut connaitre son numéro

Pour tester le numéro 4

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim I As Integer, LaValeur As String

  Me.TextBox1 = ""
  I = Me.ListView1.SelectedItem.Index

  LaValeur = ListView1.ListItems(I).ListSubItems(4).Text
  If Left(LaValeur, 1) = "6" Then Me.TextBox1 = LaValeur
End Sub

Bonsoir benzai64

ta deuxième solution fonctionne très bien si je clique sur un compte commençant par 6

mais si je clique par erreur sur un compte commençant par7 rien ne se passe ok mais je voudrais alors que

la ligne sélectionnée soit désélectionnée et que je puisse reprendre ma sélection comme si cela était la première fois depuis le départ de la line 2 sur la colonne 1 ou 2

pour reprendre le cas de figure

je clique par erreur sur le compte 75000 alors que je voulais cliquer sur le compote 60000, je voudrais donc effacer cette sélection pour resélectionner la ligne et cliquer sur le bon compte 60000

merci pour ton aide

Banzai64

je pense avoir trouver une partie de la solution

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

Dim I As Integer, LaValeur As String

Me.TextBox11 = ""

I = Me.ListView1.SelectedItem.Index

LaValeur = ListView1.ListItems(I).ListSubItems(3).Text

If Left(LaValeur, 1) = "6" Then Me.TextBox11 = LaValeur

If Left(LaValeur, 1) <> "6" Then

ListView1.ListItems(I).Selected = False

Set ListView1.SelectedItem = Nothing

MsgBox "erreur"

End If

end sub

je voudrais pouvoir faire

For L = 1 to 5

LaValeur = ListView1.ListItems(I).ListSubItems(L).Text

If Left(LaValeur, 1) = "6" Then Me.TextBox11 = LaValeur

If Left(LaValeur, 1) <> "6" Then

ListView1.ListItems(I).Selected = False

Set ListView1.SelectedItem = Nothing

MsgBox "erreur"

End If

next L

end sub

mais pour les listsubitems je voudrais une variable disons L pour tester les sommes des colonnes 1,3,5

pour avoir .listsubitems(L) à la place de 3

mais je n'y arrive pas

merci