Première lettre en majuscule dans une colonne

[Yann71]

Bonjour la com.

J'ai comme tout le monde par ici, un soucis. J'ai un code VBA permettant de mettre une colonne au format nom propre.
Mon problème réside dans le fait que je sois obligé d'exécuter manuellement par un bouton cette fonction. Se que je souhaite, c'est
que ce code fonction en cour de frappe. En ce sens, si j'écrit michel et que je fasse ENTER, cette cellule affiche Michel.
Je vous donne le code:

Sub Proper_Case()
' Loop to cycle through each cell in the specified range.
For Each x In Range("C1:C5")
' There is not a Proper function in Visual Basic for Applications.
' So, you must use the worksheet function in the following form:
x.Value = Application.Proper(x.Value)
Next
End Sub

Merci pour votre aide.

 

[patricktoulon]

re
bonsoir

que ce code fonction en cour de frappe

non sauf en bricolant un timer perpétuelle
ca peut se faire dans l’événement change du sheets concerné

 

[James007]

Bonjour,

Tu peux tester la macro suivante

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 3 Then Exit Sub
Target.Value = Application.Proper(Target.Value)
End Sub

 

[Yann71]

re
bonsoir

non sauf en bricolant un timer perpétuelle
ca peut se faire dans l’événement change du sheets concerné

Bonsoir, je m'exprime peut-être un peut mal, ce que je veux dire par en cour de frappe, c'est que lorsque j'écrit un mot dans la colonne "C" un mot en l'occurrence un nom tout en minuscule, et que j'appuie sur ENTER ou que je sélectionne une autre cellule ce nom s'affiche avec une majuscule en début

 

[Yann71]

Bonjour,

Tu peux tester la macro suivante

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 3 Then Exit Sub
Target.Value = Application.Proper(Target.Value)
End Sub

Bonsoir, je viens d'essayer ton code mais celui-ci ne fonctionne pas

 

[James007]

Re,

As-tu testé la macro du message # 3 ...?

 

[James007]

Re,

Bonsoir, je viens d'essayer ton code mais celui-ci ne fonctionne pas

As-tu copié la macro dans le module de la feuille ...?

 

[Yann71]

Re,

As-tu testé la macro du message # 3 ...?

Oui je l'ai testé mais cela ne fonctionne pas

 

[James007]

Bonsoir, je viens d'essayer ton code mais celui-ci ne fonctionne pas

As-tu copié la macro dans le module de la feuille ...?

 

[Yann71]

Re,



As-tu copié la macro dans le module de la feuille ...?

Oui je l'ai copié dans un module mais cela ne fonctionne pas. A noter aussi que j'ai plusieurs feuilles dans ce classeur et que je souhaite que ce code s'applique uniquement à la feuille 2

 

[James007]

Donc ... il ne faut copier cette macro que dans LE module de la Feuille 2 ...

son nom est probablement : Feuil2

 

[Yann71]

Donc ... il ne faut copier cette macro que dans le module de la Feuille 2 ...

Comme je l'ai dit plus haut cela ne fonctionne pas

 

[James007]

Désolé ... mais je viens de le tester ... et cela fonctionne

 

[James007]

Aurais-tu besoin d'un fichier test ...???

 

[Yann71]

Aurais-tu besoin d'un fichier test ...???

Merci pour ton fichier mais il y aurai comme un BUG, j'écrit un nom en C1 ok cela fonctionne mais lorsque je souhaite saisir un nom en C2 le fichier plante et se ferme