afficher numero de telephne dans TextBox4

Philo

XLDnaute Occasionnel
Bonjour
Comment je peux afficher numéro de téléphone dans le textbox 4
les téléphone ce trouve dans la colonne F Dans mon fichier plusieurs feuille
voila un debut de code
Private Sub ListBox1_Click()
TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
TextBox3 = ListBox1.List(ListBox1.ListIndex, 2)

TextBox4 = ListBox1.List(ListBox1.ListIndex, 6) ce que j'ai ajouter

End Sub
Private Sub TextBox1_Change()
Me.ListBox1.Clear

TextBox2 = "": TextBox3 = "": TextBox4 = "" ce que j'ai ajouter

If Me.TextBox1 = "" Then Exit Sub
If Len(TextBox1) < 3 Then Exit Sub
For onglet = 2 To Sheets.Count
With Sheets(onglet).[D1:D1000]
'i = 1
Set c = .Find(TextBox1.Text, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Me.ListBox1.AddItem c.Value
Me.ListBox1.List(i, 1) = c.Offset(, -1).Text
ListBox1.List(i, 2) = Sheets(onglet).Name
i = i + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Next
'On Error Resume Next
'Me.ListBox1.Selected(0) = True
End Sub
 

Statistiques des forums

Discussions
292 782
Messages
1 926 176
Membres
182 940
dernier inscrit
elharf