XL 2010 afficher numero de telephne dans TextBox4

[Philo]

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).[D11000]
'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

 

[Phil69970]

Bonjour @Philo

TextBox4 = Format(TextBox4, "00 00 00 00 00")

Merci de ton retour

@Phil69970

 

[ChTi160]

Bonsoir Philo
Bonsoir le Fil ( Phil69970 )
pas de fichier pour aider Lol
jean marie

 

[Phil69970]

Bonjour @Philo, Jean Marie

Et si tu veux afficher le téléphone de la cellule F1 par exemple :

TextBox4 = Format(Range("F1").Value, "00 00 00 00 00")

Et ce qui te donneras:

*C'est vrai qu'avec un fichier c'est beaucoup mieux

@Phil69970

 

[GALOUGALOU]

re le fil

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

avec un fichier, l'analyse aurait été plus facile, les réponses plus pertinentes certainement
cdt
galougalou

 

[Philo]

merci de vos debut de reponse

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).[D11000]
'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)

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]

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 :

 Me.TextBox4.Text = Format(Me.listBox1.List(Me.listBox1.ListIndex, 5), "## ## ## ## ##")

Mais sans fichier Lol........
Bonne journée
Jean marie

 

[Philo]

Bonjour le Forum
voila le fichier joint

 

[ChTi160]

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

 

[Philo]

bonjour chti160
il faudrait que le numero du sous directeur s'affiche dans le textbox 4 ( exemple Numero 4567
si je vais sur direction que le numero 1234 s'affiche)
la colonne sans entete c'est normal

 

[ChTi160]

re
ton fichier !
jean marie

 

[Philo]

merci chti160
javais completement zapper (ListBox1.List(i, 3) = c.Offset(, 2).Text
le fichier fonctionne tres bien