Première lettres en majuscule

Papou-net

XLDnaute Barbatruc

• 31 Octobre 2008

• #2

Re : Première lettres en majuscule

Bonsoir apt,

Tout simplement en utulisant la fonction "NOMPROPRE", mais tu obtiendras : Café Au Lait.

Cordialement.

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 31 Octobre 2008

• #3

Re : Première lettres en majuscule

Bonsoir Papou-net,

Justement je ne peux pas utiliser ni "NOMPROPRE" par formule ni "Application.Proper" en VBA, parce que ça donne le résultat indiqué en haut.

J'aimerais avoir un truc, une fonction par exemple définie en VBA, qui résoudra le problème.

Merci.

 

Dernière édition: 31 Octobre 2008

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 31 Octobre 2008

• #4

Re : Première lettres en majuscule

Re-bonsoir apt,

Je suis désolé, mais là je cale.
Le problème me paraît compliqué à résoudre avec une fonction simple.
J'espère que le forum t'apportera la solution.

Cordialement.

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 31 Octobre 2008

• #5

Re : Première lettres en majuscule

Merci Papou-net.

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 31 Octobre 2008

• #6

Re : Première lettres en majuscule

Bonsoir apt, papou-net,

Nompropre donne précisément dans ton cas Café au Lait.

Une fonction, en VBA, ne donnera pas mieux, sauf à aloudir la chose.... donc ????

Pourquoi recréer une fonction qui existe déjà ? C'est tourner en rond, réinventer la roue et moulins à vent.

Précise ta pensée ou ton problème.

Jean-Pierre

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 31 Octobre 2008

• #7

Re : Première lettres en majuscule

Bonsoir jeanpierre,

NOMPROPRE donne plus exactement : Café Au Lait.

La demande d'apt est donc fondée, reste à trouver une solution simple à ce problème (personnellement, je ne vois qu'une "Usine à Gaz").

Cordialement.

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 31 Octobre 2008

• #8

Re : Première lettres en majuscule

Bonsoir,

Ci-joint, une macro fonction qui fait ce que tu veux faire d'apres ce que j'ai compris.
Il faut renseigner une liste de mots à exclure

 

Pièces jointes

• Classeur1.xls

  24 KB · Affichages: 350
• Classeur1.xls

  24 KB · Affichages: 357
• Classeur1.xls

  24 KB · Affichages: 367

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 31 Octobre 2008

• #9

Re : Première lettres en majuscule

Re,

Effectivement Papou-net tu as raison, pas réveillé ce soir.

Bonsoir Catrice, bien...

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 31 Octobre 2008

• #10

Re : Première lettres en majuscule

Bravo Catrice,

Ce n'est pas une usine à gaz, et pourtant ça fonctionne.

Il me semblait bien qu'il fallait construire une base de données de mots à exclure, je n'avais pas pensé à l'intégrer à la fonction elle-même.

J'en prends bonne note, et félicitations.

Cordialement.

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 1 Novembre 2008

• #11

Re : Première lettres en majuscule

Bonsoir jeanpierre, Catrice, Papou-net,

Ca marche très bien ton code Catrice.

Mais en voulant l'adapter en écrivant :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [B:B]) Is Nothing Then
        Call Test(Target)
    End If
End Sub

Les mots dans la phrase restent tels qu'ils sont !!! 😕

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 1 Novembre 2008

• #12

Re : Première lettres en majuscule

Bonsoir,

Ce que tu veux faire ne fonctionne pas car il s'agit d'une fonction.
Il faudrait recopier la formule Test dans les cellules à partir de l'evenement Worksheet_Change.

Dans l'exemple joint j'ai transformé la fonction en Sub => on execute la Sub Test2 à chaque saisie dans la colonne A

 

Pièces jointes

• Classeur1.xls

  27.5 KB · Affichages: 191
• Classeur1.xls

  27.5 KB · Affichages: 202
• Classeur1.xls

  27.5 KB · Affichages: 204

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 1 Novembre 2008

• #13

Re : Première lettres en majuscule

Salut Catrice,

Comme j'aimerais avoir le changement en premieres lettres en majuscule dans la même cellule de saisie, j'ai modifier cette ligne :

Code:

'Arg1.Offset(0, 1) = Right(Var3, Len(Var3) - 1)

en :

Code:

Arg1 = Right(Var3, Len(Var3) - 1)

Mais ça donne plusieurs erreurs de suite, en premier :

"Espace pile insuffisant" ... 😕

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 1 Novembre 2008

• #14

Re : Première lettres en majuscule

Bonjour,

Code:

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

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/Fonction_NomPropre3.xls

JB
Formation Excel VBA JB

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 1 Novembre 2008

• #15

Re : Première lettres en majuscule

Bonjour à tous,

Une macro complémentaire qui le permet ICI

mDF Police change de nom et devient encore plus pratique !

Changez instantanément la casse et les attributs de caractères dans vos feuilles Excel !
Gagnez en productivité et simplifiez-vous la vie !


Fonctionnalités:

• S'applique à la sélection d'une cellule ou d'une plage entière de cellules
• Permet rapidement de convertir la casse en :
  
  - Minuscule
  - 1ère lettre
  - Nom Propre
  - Majuscule

A+ à tous

 

Vote positif 0 Vote négatif