Premiere lettre en majuscule

Salut Apitos,

inspiré d'une macro de ru-th:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If rep <> Empty Then
If Range(rep).HasFormula = False Then
Range(rep) = Evaluate("proper(" & rep & ")")
End If
End If
rep = Target.Address
End Sub



--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Apitos" <apitos@gmail.com> a écrit dans le message de news:
1158768649.528328.131190@e3g2000cwe.googlegroups.com...
Bonjour,

Comment mettre la première lettre en majuscule d'une façon
automatique au fur et à mesure de la saisie ?

Merci.

Salut Apitos,

inspiré d'une macro de ru-th:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If rep <> Empty Then
If Range(rep).HasFormula = False Then
Range(rep) = Evaluate("proper(" & rep & ")")
End If
End If
rep = Target.Address
End Sub



--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}

Ca marche pas.

!!