Bonjour,
J'ai une ListView avec 9 colonnes j'aimerai quand je click sur chercher que la valeur de la première colonne s'affiche sur un textbox. Si quelqu'un pourrais m'aider!
Je vous remercie par avance.
Cordialement
Max
Voici une partie de mon code
Dim Ws As Worksheet
Dim NbImages As Long
Dim colonne1a As String
Dim nomfeuille2 As String
Dim Ligne As Long, Idx As Long
Private Sub CommandButton1_Click() 'cherche
ListView1.ListItems.Clear
If TextBox1 = "" Then Exit Sub
With Sheets("Adresse")
i = 10 '10 = dixiéme ligne
Do
Set C = .Range(.Cells(i, 1), .Cells(i, 10)).Find(TextBox1, LookIn:=xlValues, lookat:=xlWhole) '4= colone D
If Not C Is Nothing Then
Flag = True
IniLvw C.Row
End If
i = i + 1
Loop While .Cells(i, 1) <> "" '4= colone D
End With
If Not Flag Then MsgBox "Rien trouvé !"
txtTotal = ListView1.ListItems.Count
Flag = False
End Sub
Sub IniLvw(a As Long)
With ListView1
.ListItems.Add , , Sheets("Adresse").Cells(a, 1) '4= colone D
X = .ListItems.Count
For i = 1 To 9
.ListItems(X).ListSubItems.Add , , Sheets("Adresse").Cells(a, i + 1) '4= colone D
Next
.ListItems(X).ListSubItems.Add , , a
For i = 1 To .ListItems.Count
If .ListItems(i) = TextBox1 Then .ListItems(i).Bold = True
For j = 1 To .ColumnHeaders.Count - 1
If .ListItems(i).ListSubItems(j).Text = TextBox1 Then
.ListItems(i).ListSubItems(j).Bold = True
End If
Next j
Next i
End With
End Sub
Private Sub CommandButton3_Click() 'validation
With Sheets("Adresse")
For i = 1 To 10
.Cells(Ligne, i) = Controls("TextBox" & i + 1)
Next
End With
With ListView1
.ListItems.Item(Idx) = TextBox2
For i = 1 To 9
.ListItems(Idx).SubItems(i) = Controls("TextBox" & i + 2)
Next
End With
For j = 2 To 11
Controls("TextBox" & j) = ""
Next
