forcage majuscule

[lagodille]

bonjour
je suis à la recherche d'une macro qui me force n'importe quelle lettre en majuscule
je sais faire sur une lettre en particulier mais pas sur toutes

est ce quelqu'un peut m'aider
merci

 

[Macpoy]

Re : forcage majuscule

bonjour le forum, lagodille

avec la fonction Ucase cela marche:

Range("A1").Value = UCase(Range("A1")

bonne journée

 

[meldja]

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

 

[joss56]

Re : forcage majuscule

Bonjour,

Il manque une parenthèse:

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

 

[lagodille]

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.

 

[Cousinhub]

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?

 

[Robert]

Re : forcage majuscule

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

Dim cel As Range
For Each cel In Range("Users")
    cel.Value = UCase(cel.Value)
Next cel

 

[lagodille]

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

 

[Cousinhub]

Re : forcage majuscule

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

 

[lagodille]

Re : forcage majuscule

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

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

 

[kjin]

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

 

[lagodille]

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

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

 

[Cousinhub]

Re : forcage majuscule

Bonsoir,

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

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

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

MOT_DE_PASSE = mot_de_passe

 

[lagodille]

Re : forcage majuscule

merci beaucoup bhbh à bientot
cordialement