XL 2010 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
1629655866204.png
 

Philo

XLDnaute Occasionnel
merci de vos debut de reponse
1629686432932.png

1629686561893.png

Private Sub ListBox1_Click()
TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
TextBox3 = ListBox1.List(ListBox1.ListIndex, 2)



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

TextBox2 = "": TextBox3 = ""

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

voila le veritable code
il faut juste que j'ai le telephone qui s'affiche dans le textbox4 quand je commence a chercher
TextBox 1 Recherche, TextBox 2 Code UF, Textbox3 Etablissement (Ca fonctionne)
sur mon fichier j'ai 6 Feuille (Toutes les meme avec different hopitaux)
1629687379109.png


je ne peut pas envoyer de fichier beaucoup de numero et nom de medecin present dans le fichier
j'espere que mes explication sont clair
merci de votre aide
 

ChTi160

XLDnaute Barbatruc
Bonjour Philo
Bonjour le Fil ,le Forum
il est toujours possible d'anonymiser un fichier il suffit de quelques Lignes !
question combien as tu de colonnes dans ta ListBox1 (tu devrais en avoir 6) d'après l'image?
car il suffit de récupérer toutes les colonnes de ta Base de Données dans ta ListBox et ensuite tu transferes le Numéro de téléphone qui devrait être en fin de ListBox (Colonne 5)
Ex :
VB:
 Me.TextBox4.Text = Format(Me.listBox1.List(Me.listBox1.ListIndex, 5), "## ## ## ## ##")
Mais sans fichier Lol........
Bonne journée
Jean marie
 
Dernière édition:

ChTi160

XLDnaute Barbatruc
Re
Pourrais tu nous dire ce que tu recherches via le TextBox Recherche !
ne pourrais tu faire une recherche via des Combobox en Cascades ?
est ce la même chose dans les Colonnes Centre de Responsabilité/Pôle et Service
combien as tu de Libellés différents dans les différentes colonnes ou tu fais les recherches
soit : Code UF / Etablissements et Téléphones
ni a t'il pas moyen de pofiner la recherche par selection successives
Ex UF puis Service etc etc ou autres
il y a une colonne sans entête est ce Normal ?
dans l'attente
jean marie
 

Discussions similaires

Réponses
17
Affichages
760
Réponses
6
Affichages
202