Première lettres en majuscule

[apt]

Bonsoir à tous,
Comment transformer les premières lettres de cette phrase en majuscule :
«Café au lait» en «Café au Lait»
Merci.

 

[Papou-net]

Re : Première lettres en majuscule

Bonsoir apt,

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

Cordialement.

 

[apt]

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.

 

[Papou-net]

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.

 

[apt]

Re : Première lettres en majuscule

Merci Papou-net.

 

[jeanpierre]

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

 

[Papou-net]

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.

 

[Catrice]

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

 

[jeanpierre]

Re : Première lettres en majuscule

Re,

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

Bonsoir Catrice, bien...

 

[Papou-net]

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.

 

[apt]

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 :

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 !!! 😕

 

[Catrice]

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

 

[apt]

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 :

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

en :

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

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

"Espace pile insuffisant" ... 😕

 

[BOISGONTIER]

Re : Première lettres en majuscule

Bonjour,

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

 

[JCGL]

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