XL 2010 afficher numero de telephne dans TextBox4

Bonjour @Philo

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

Merci de ton retour

@Phil69970

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

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

re le fil

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

Cliquez pour agrandir...

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

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

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 :
Mais sans fichier Lol........
Bonne journée
Jean marie

Bonjour le Forum
voila le fichier joint

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

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

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