Rapport de message :*
 

Re: Vérifie si une chaine commence par une majuscule

Titre du sujet : Re: Vérifie si une chaine commence par une majuscule
par spookyz le 05/02/2009 22:48:01

Désolé je craind de n'avoir rien compris voila ce que j'essai de faire 

 
Function MajOK(T As String) As Boolean
    MajOK = Left(T, 1) = UCase(Left(T, 1))
   
End Function


Sub Test()
DERLIGNE = Cells(1, 3).End(xlDown).Row
For T = 1 To DERLIGNE
Z = Cells(T, 3).Text
    MsgBox MajOK(Z)
    MsgBox MajOK("celle-ci non")
Next T
End Sub