Pouvez vous m'aider merci!

Le
apdf
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

End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Publicité
Poster une réponse
Anonyme