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.