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 myDearFriend! le 05/02/2009 23:04:32

re,
Bonsoir Skoobi,
Je préfère comme ceci pour ma part :
Option Explicit

Sub Test()
Dim DerLign As Long, L As Long
Dim T As String
    DerLign = Cells(ActiveSheet.Rows.Count, 3).End(xlUp).Row
    For L = 1 To DerLign
        T = Cells(L, 3).Text
        If Not MajOK(T) Then
            MsgBox "ligne " & L & " ne commence pas par une majuscule"
        End If
    Next L
End Sub

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

spookyz, je t'invite à consulter VBA et les variables ou tout autre source sur le net qui pourrait t'aider à prendre conscience de l'importance de déclarer ses variables en VBA.

Cordialement