forcage majuscule

Re : forcage majuscule

bonjour le forum, lagodille

avec la fonction Ucase cela marche:


bonne journée

Re : forcage majuscule

Bonjour
Macpoy, j'ai essayé ton code et j'ai ça ne marche pas

Sub maj()
Range("A1").Value = UCase(Range("A1")
End Sub

Peut être qu'il y a un truc que je n'ai pas capté (j'ai pourtant copié/collé ton code)
Merci, si tu as une explication, je n'y connais rien en macro

Re : forcage majuscule

Bonjour,

Il manque une parenthèse:

Sub maj()
Range("A1") = UCase(Range("A1"))
End Sub

Re : forcage majuscule

bonsoir,
je l'ai appliqué a cela :
Dim Rech, Réponse As Range
Dim MonParametre As Byte
Static TentativePW As Byte, TentativeID As Byte

Application.ScreenUpdating = False
If Txb_ID_Util = Empty Then End
'If Txb_ID_Util = "" Then Exit Sub


Range("Users") = UCase(Range("Users"))
Set Rech = Range("Users").Find(Txb_ID_Util, LookIn:=xlValues, lookat:=xlWhole)

If Not Rech Is Nothing Then

If Txb_Pwd_Util = Rech.Offset(0, 1) Then
MonParametre = Rech.Offset(0, 2)
MaMacro MonParametre 'ici passage de paramètres "Niveau"
Else
TentativePW = TentativePW + 1
If TentativePW > 3 Then MsgBox "ESSAYE ENCORE ", vbCritical, T: Exit Sub
'ThisWorkbook.Close 0
MsgBox "Mot de passe invalide, Tentative N° " & TentativePW & " Sur 3", vbCritical, T
With Me.Txb_Pwd_Util
.Value = ""
.SetFocus
End With
End If

Else
TentativeID = TentativeID + 1
If TentativeID > 3 Then MsgBox "BONJOUR ! " & Chr(13) & " " & Chr(13) & " JE PENSE QUE VOUS AVEZ UN SOUCI AVEC VOTRE IDENTIFIANT OU AVEC VOTRE MOT DE PASSE." & Chr(13) & " " & Chr(13) & "PREVENEZ L'ADMINISTRATEUR QUI SE FERA UN PLAISIR DE VOUS VENIR EN AIDE... MERCI ", vbExclamation, T: End 'ThisWorkbook.Close 0"
MsgBox "Utilisateur inconnu, , Tentative N° " & TentativeID & " Sur 3", vbCritical, T
With Me.Txb_ID_Util
.Value = ""
.SetFocus
.SelStart = 0
.SelLength = Len(Me.Txb_ID_Util.Text)
End With
End If

et ca ne fonctionne pas (incompatibilité de type). Users représente le critère de plusieurs mots de passe possible.

Re : forcage majuscule

Bonsoir,
que veux-tu exactement?
Que les utilisateurs entrent directement leur mot de passe en Majuscule?
Ou, comme tu as essayé de l'écrire, mettre tous les mots de la zone ("Users") en majuscule?

Re : forcage majuscule

Bonsoir le fil, bonsoir le forum,
Essaie comme ça (si j'ai bien compris...) :

Re : forcage majuscule

bonjour
en fait, l'utilisateur doit mettre son mot de passe et qu'il mette des minuscules ou des majuscules, le mot de passe doit etre reconnu
merci

Re : forcage majuscule

Bonjour,
dans ce cas, en haut de page, tu rajoutes Option Compare Text

Re : forcage majuscule

bhbh à dit:

Bonjour,
dans ce cas, en haut de page, tu rajoutes Option Compare Text

Cliquez pour agrandir...

peux tu m'expliquer à quoi ca sert "Option Compare Text" ? je ne comprends pas comment cela peut forcer à la frappe d'une lettre en minuscule le forcage en majuscule.
merci

Re : forcage majuscule

bonjour lagodille, bonjour à tous,
Je suppose que les "users" entre le mdp dans un Textbox auquel cas c'est ici que la mise en MAJ intervient :
Texbox(x).Value=UCase(Texbox(x).Value)
Ensuite recherche (find) sur la valeur Textbox(x)
A+
kjin

Re : forcage majuscule

kjin à dit:

bonjour lagodille, bonjour à tous,
Je suppose que les "users" entre le mdp dans un Textbox auquel cas c'est ici que la mise en MAJ intervient :
Texbox(x).Value=UCase(Texbox(x).Value)
Ensuite recherche (find) sur la valeur Textbox(x)
A+
kjin

Cliquez pour agrandir...

merci à tous et surtout kjin qui a trouvé la soluce à savoir

Txb_ID_Util.Value = UCase(Txb_ID_Util.Value)
Txb_Pwd_Util.Value = UCase(Txb_Pwd_Util.Value)

au lieu de Range("Users") = UCase(Range("Users"))

merci encore et @+ pour d'autres infos

Re : forcage majuscule

Bonsoir,

peux tu m'expliquer à quoi ça sert "Option Compare Text" ?

Cliquez pour agrandir...

Dans l'aide (F1) d'excel :

L'instruction Option Compare Text fournit des comparaisons de chaînes basées sur un ordre de tri qui ne distingue pas les majuscules des minuscules

Cliquez pour agrandir...

Ainsi, quelque soit la casse (Majuscule ou Minuscule), pour Excel :

Re : forcage majuscule

merci beaucoup bhbh à bientot
cordialement