Chercher un numéro de téléphone

J

jch

XLDnaute Nouveau

• 11 Novembre 2011

• #2

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

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 11 Novembre 2011

• #3

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

 

Dernière édition: 11 Novembre 2011

Vote positif 0 Vote négatif

J

jch

XLDnaute Nouveau

• 12 Novembre 2011

• #4

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!

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 12 Novembre 2011

• #5

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

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

 

Vote positif 0 Vote négatif

J

jch

XLDnaute Nouveau

• 12 Novembre 2011

• #6

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 12 Novembre 2011

• #7

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.

 

Pièces jointes

• test22.xls

  72 KB · Affichages: 62

Vote positif 0 Vote négatif