Discussion :

[diombo]

Bonjour,
Je cherche une fonction ou un bout de code qui me permet de tester si oui ou non ma chaîne de caractère est tout en majuscule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim Nom as string
Nom=rst.fields("nom")

Tester si Nom est tout en majuscule

C'est la que se situe mon problème.
Merci pour votre aide

[Jean-Philippe André]

salut,
tu peux faire un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Function testMaj(strInput as String) as Boolean
testMaj =IIF(Instr(strInput,LCase(strInput))>0,True,False)
End Function

[alaingui]

juste pour me faire plasiir
un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if ucase(montext)=montext then msgbox "je suis en majuscule'

mais la solution de jpcheck est plus dans l esprit mais tiens n as tu inversé le true false ?

[diombo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub nom_trait()
    Dim db As DAO.Database, tdf As DAO.TableDef, fld As DAO.Field
    Dim compteur As Long
    Dim rst1 As DAO.Recordset
 
    Dim sql1 As String
 
    Set db = CurrentDb
 
    sql1 = "select * from TMP_NOM_EB"
    Set rst1 = db.OpenRecordset(sql1, dbOpenDynaset)
 
    rst1.MoveFirst
    Do Until rst1.EOF
        Dim nom As String
 
        nom = rst1.Fields(9)
        Call testMaj(nom)
 
        If testMaj(nom) = True Then
            rst1.Edit
            rst1.Fields(12) = rst1.Fields(8) & " " & rst1.Fields(9)
            rst1.Update
            Debug.Print rst1.Fields(12)
        End If
        rst1.MoveNext
    Loop
End Sub
 
Function testMaj(StrInput As String) As Boolean
    testMaj = IIf(InStr(StrInput, LCase(StrInput)) > 0, True, False)
End Function

Voici mon code, mais ça ne marche pas. L'idée est de de tester si le nom est en majuscule pour concaténer.

[alaingui]

et avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub nom_trait()
    Dim db As DAO.Database, tdf As DAO.TableDef, fld As DAO.Field
    Dim compteur As Long
    Dim rst1 As DAO.Recordset
 
    Dim sql1 As String
 
    Set db = CurrentDb
 
    sql1 = "select * from TMP_NOM_EB"
    Set rst1 = db.OpenRecordset(sql1, dbOpenDynaset)
 
    rst1.MoveFirst
    Do Until rst1.EOF
        Dim nom As String
 
        nom = rst1.Fields(9)
 
        If ucase(nom) = nom Then
            rst1.Edit
            rst1.Fields(12) = rst1.Fields(8) & " " & rst1.Fields(9)
            rst1.Update
            Debug.Print rst1.Fields(12)
        End If
        rst1.MoveNext
    Loop
End Sub

[laiglenoir54]

pour vérifier simplement si tous les caractères du texte sont en majuscules:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If UCase(MonTexte) = MonTexte Then ...

[Invité]

Bonjour

pour vérifier simplement si tous les caractères du texte sont en majuscules:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If UCase(MonTexte) = MonTexte Then ..

.

Attention, ce genre de code ne fonctionne que si en entête de module vous avez l'instruction : Option Compare Binary.

Philippe

[pc75]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Majuscule = True
For i = 1 to Len(LeTexte)
   If Mid(LeTexte, i, 1) < Chr(65)  or Mid(LeTexte, i, 1) > Chr(91) then
      Majuscule = False
      Exit For
   End If
Next

[KMDE1990]

bonsoir à vous. comment vérififier la casse dans un formulaire de connexion svp ,merci d'avance