problème avec textbox

[filouplatchaud]

bonjour le forum et bonne fêtes

dans ma textbox recherche je n'arrive pas a obtenir les n° de téléphones
mais juste le nom ?
merci pour votre aide
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Dull]

Re : problème avec textbox

Salut filouplatchaud, le Forum

essaye ce code dans le rechNom_Change

Private Sub rechNom_Change()
Dim C As Range
Set C = ActiveSheet.Cells.Find(What:=rechNom)
If Not C Is Nothing Then
portable.Value = Format(C.Offset(0, 1), "0# ## ## ## ##")
domicile.Value = Format(C.Offset(0, 2), "0# ## ## ## ##")
travail.Value = Format(C.Offset(0, 3), "0# ## ## ## ##")
End If
End Sub

Le format des N° de téléphone ou les N° de téléphone carrément seront peut-être à changer 😱

Bonne Journée

 

[filouplatchaud]

Re : problème avec textbox

merci Dull
il fait chaud chez toi ? ici ça caille vraiment
bon ça marche ton petit code.maintenent je vais esayer suprime contacte ,pas évident pour moi, mais ça passe le temps.
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Dull]

Re : problème avec textbox

Salut filouplatchaud, le Forum

impossible d'ouvrir ton fichier mais un essai a adapter

tu peux Ajouter, Supprimer ou Modifier les renseignements

il fait chaud chez toi ? ici ça caille vraiment

PS: j'aipasàmeplaindre 😀🙄

Bonne journée

 

[filouplatchaud]

Re : problème avec textbox

re merci a Dull
il y a des personnes sur le forum qui disent que mon fichier ne sert a rien
c'est vraie mais moi ça mamuse toute la journée je gère mon resto et le soir je bidouille des trucs qui ne servent a rien
merci a eux d'avoir jeté 1 oeuil sur fichiés
j'ai regardé tes codes Dull je vais voir si je peut adapter