Chercher un numéro de téléphone

[apt]

Bonjour à tous,

J'aimerais pouvoir ajouter les fonctionnalités suivantes :

1 - Chercher un numéro de téléphone pour modification.

2 - S'il n'existe pas alors possibilité de l'insérer au bon endroit pour une nouvelle saisie.

Merci.

 

[jch]

Re : Chercher un numéro de téléphone

Bonjour,

Pour mettre une majuscule aux noms et prénoms , il y a la fonction NOMPROPRE
pour recherche un numéro de téléphone et le remplacer; dans le menu EDITION /RECHERCHER onglet REMPLACER

bonne journée
jch

 

[apt]

Re : Chercher un numéro de téléphone

J'aimerais bien avoir une solution en vba avec des userform et des boutons si c'est possible bien sur

Pour mettre première lettre en majuscule, j'ai déjà utilisé la fonction :

Application.Proper

Merci

 

[jch]

Re : Chercher un numéro de téléphone

[La fonction Nom Propre sur le site de Mr Boisgontier en VBA"]http://boisgontierjacques.free.fr/fichiers/fonctionsperso/Fonction_NomPropre3.xls[/URL]

Formation Excel VBA JB

Je découvre à peine le VBA donc à part mettre lien, ce sera ma seule aide!

bonne journée!

 

[apt]

Re : Chercher un numéro de téléphone

Merci encore jch, mais le site est inaccessible chez moi ...

 

[jch]

Re : Chercher un numéro de téléphone

extrait du site de Mr Boisgontier, en attendant de pouvoir y accéder

Function NomPropre2(nom As String)
temp = Application.Proper(nom)
tbl = Array("De ", "Du ", "Des ", "Le ", "La ", "À ", "En ", "Au ", "Bis ", "Ter ")
For i = 0 To UBound(tbl)
temp = Replace(temp, tbl(i), LCase(tbl(i)))
Next i
NomPropre2 = temp
End Function

Sub ConvertitSelection()
tbl = Array("De ", "Du ", "Des ", "Le ", "La ", "À ", "En ", "Au ", "Bis ", "Ter ")
For Each c In Selection
temp = Application.Proper(c.Value)
For i = 0 To UBound(tbl)
temp = Replace(temp, tbl(i), LCase(tbl(i)))
Next i
c.Value = temp
Next c
End Sub

 

[apt]

Re : Chercher un numéro de téléphone

Bonjour jch,

Merci pour le code.

J'en aurais surement besoin

Mais voila la forme du fichier que j'aimerais realiser en Pj.