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
! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ [ ] ^ _ ' { | } ~ € ' " ... + # ^ 0/00 < ' ' " " * - -- ~ (TM) > ¡ ¢ £ ¤ ¥ ¦ § ¨ © ª « ¬ ® ¯ ° ± ² ³ ' µ ¶ · ¸ ¹ º » ¼ ½ ¾ ¿ × ß ÷
Sub test() Debug.Print " CARACTERE | MINUSCULE | MAJUSCULE " Dim ListCar As String For c = 0 To 255 myChar = Chr(c) If myChar = UCase(myChar) Then maju = True Else maju = False End If If myChar = LCase(myChar) Then minu = True Else minu = False End If Debug.Print c & " - " & myChar & " | " & minu & " | " & maju If minu = maju Then ListCar = ListCar & " " & myChar End If Next Debug.Print "-----------------------" Debug.Print ListCar End Sub
Function TestMinus(Str1 As String) As Boolean TestMinus = LCase(Str1) = Str1 End Function
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
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)
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.