Sub test() Debug.Print testCasse("test de ma string") Debug.Print testCasse("AUTRE TEST") Debug.Print testCasse("Troisieme TEST") End Sub Function testCasse(Str1 As String) Select Case Str1 Case UCase(Str1) testCasse = "Majuscule" Case LCase(Str1) testCasse = "Minuscule" Case Else testCasse = "Autre" End Select End Function
Function TestMinus(Str1 As String) As Boolean If Str1 = LCase(Str1) Then TestMinus = True End Function
ceci est du code
Function TestMinus(Str1 As String) As Boolean TestMinus = LCase(Str1) = Str1 End Function
Sub test() Debug.Print TestMinus("test de ma string") Debug.Print TestMinus("AUTRE TEST") Debug.Print TestMinus("Troisieme TEST") Debug.Print TestMinus("1234") Debug.Print TestMinus("1234 FF") End Sub Function TestMinus(Str1 As String) As Boolean Select Case Str1 Case UCase(Str1) TestMinus = False Case LCase(Str1) TestMinus = True Case Else TestMinus = False End Select End Function
Vrai Faux Faux Faux Faux
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionFunction Regex_Minuscules(MaString As String) As Boolean '-------------------------------------------------------- ' Nécessite de cocher ' "Microsoft VBScript Regular Expressions 5.5" ' dans "OutilsRéférences". '-------------------------------------------------------- Dim RegEx As RegExp Set RegEx = New RegExp Dim matches As IMatchCollection2 Dim match As Variant With RegEx .IgnoreCase = False .Global = True .Pattern = "[A-Z]" Set matches = .Execute(MaString) End With If matches.Count > 0 Then Regex_Minuscules = False Else Regex_Minuscules = True End If End Function
Sub Verif_Reference_Active() Debug.Print ReferenceActive("VBScript_RegExp_55") If ReferenceActive("VBScript_RegExp_55") = False Then 'si pas active..on l'ajoute Application.VBE.ActiveVBProject.References.AddFromFile ("vbscript.dll3") Debug.Print "Activation.." End If End Sub Function ReferenceActive(Nom As String) As Boolean ' Avoir coché :Accès approuvé au modèle d'objet du projet VBA ' Dans la sécurité des macros '-------------------------------------------------------------- Dim i As Integer Dim NbreRef As Integer NbreRef = Application.VBE.ActiveVBProject.References.Count For i = 1 To NbreRef If Application.VBE.ActiveVBProject.References(i).Name = Nom Then ReferenceActive = True Exit Function End If Next i End Function
.Pattern = "[A-ZÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝ]"
Function Regex_Minuscules(MaString As String) As Boolean '-------------------------------------------------------- ' Nécessite de cocher ' "Microsoft VBScript Regular Expressions 5.5" ' dans "OutilsRéférences". '-------------------------------------------------------- Dim RegEx As RegExp Set RegEx = New RegExp Dim matches As IMatchCollection2 Dim match As Variant With RegEx .IgnoreCase = False .Global = True .Pattern = "[A-ZÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝ]" Set matches = .Execute(MaString) End With If matches.Count > 0 Then Regex_Minuscules = False Else Regex_Minuscules = True End If End Function
Application.Proper(montexte)