minucule en majuscule

[ifi77]

Bonjour @ tous,

mon probleme à déj aété traité et j'ai repris cela, cependant il doit y avoir un truc qui m'échappe car cela ne fonctionne pas sur mon formulaire.

Si quelqu'un peut m'éclairer

merci

 

[Lebonetletruand]

Re : minucule en majuscule

Bonjour,

Quel est exactement le problème ? Sauf erreur de ma part, il n'y a strictement aucune explication

Ce serait plutôt à toi de nous éclairer (sourire)

 

[Gorfael]

Re : minucule en majuscule

Salut ifi77 et le forum
C'est dommage pour toi, mais comme le problème a déjà été traité et que ma boule de cristal est gelée...
Enfin, une autre solution, c'est d'utiliser capslock.
A+

 

[ifi77]

Re : minucule en majuscule

Bonjour @ tous,

Mon probleme est que sur la userform de saisie dans les textbox nom et prénom, j'ai voulu obliger la siasie en majuscule avec Ucase mais cela ne semble pas fonctionner.

merci

@+

 

[Gorfael]

Re : minucule en majuscule

Salut ifi77 et le forum
Dans le module de ton USF
Case de gauche, tu sélectionnes nom
Case de droite, tu sélectionnes AfterUpDate
=> ça te crée une macro évènementielle qui sera déclenchée au moment où le texte de la TextBox est mémorisé par VBA.
et là, tu colles le code qui doit être exécuté à ce moment "Me.nom=Ucase(Me.nom)"
Les macros que tu as faîtes manuellement ne sont pas des macros évènementielles ! juste des macros et il faut trouver un moyen de les lancer.
A+

 

[ifi77]

Re : minucule en majuscule

Bonsoir Gorfael,

qu'appelles tu macro evenementiel, et par la comment les lancer.
Sinon tu me parlais de capslock,

car ce que j'ai écris dans la macro est ce que j'ai pu récuperer sur le forum, il exist epeut etre d'autre moyen pour mettre en majuscule ce qui peut etre ecrit en minuscule.

merci

@+

 

[Si...]

Re : minucule en majuscule

Salut

change l'évennement :

Private Sub [B]nom_Change[/B]()
  nom = UCase(nom)
End Sub

Private Sub [B]prenom_Change[/B]()
  prenom = UCase(prenom)
End Sub

 

[Staple1600]

Re : minucule en majuscule

Bonsoir à tous

car ce que j'ai écris dans la macro est ce que j'ai pu récuperer sur le forum, il exist epeut etre d'autre moyen pour mettre en majuscule ce qui peut etre ecrit en minuscule.

Sub autre_moyen()
Dim a$, b$, c$
a = "MinUsculE"
b = StrConv(a, vbUpperCase)
c = StrConv(a, vbLowerCase)
MsgBox a & vbLf & vbLf & b & vbLf & c, vbInformation, "Exemple utilisation StrConv"
End Sub

 

[ifi77]

Re : minucule en majuscule

Un grand merci @ tous,

cela fonctionne avec chacun de vos exemples.

@+

 

[Gorfael]

Re : minucule en majuscule

Salut ifi77 et le forum
Juste pour répondre aux questions :

qu'appelles tu macro evenementiel, et par la comment les lancer.

On les appelle aussi macros à lancement automatiques : Ce sont des macros qui se lancent quand l'évènement prévu arrive.
Pour les trouver, dans le module, la case de droite sert à sélectionner un objet, la case de gauche, à sélectionner une macro évènementielle liée à l'objet choisi. Elles sont prédéfinies en fonction de l'objet.

Sinon tu me parlais de capslock

😛 C'était une galéjade : Verrouillage majuscule sur ton clavier.
Quand on n'a aucun moyen de comprendre le problème, c'est assez frustrant.

On ne sait résoudre un problème... que dans la mesure où on comprend le problème. C'est une manière de demander des explications supplémentaires. Pas très futée, d'accord.
Mais tu aurais mis ton second poste en premier, il n'y aurais pas eu de demande d'explications supplémentaires : on comprend que tu as une TextBox sur un USF qui doit être en majuscules quelque soit la saisie. le fichier d'essai n'est même pas indispensable.
A+

 

[ifi77]

Re : minucule en majuscule

Bonsoir gorfael,

bien vu pou rle capslock...

merci pour l'explication de l'evenementiel.

@+

 

[YANN-56]

Re : minucule en majuscule

Bonsoir ifi77, et à tous,

Ceci n'est qu'un exemple avec les mois de l'année qui sont d'office en minuscules par Bill.

Private Sub CommandButton1_Click()
     For i = 1 To 12  
  Worksheets("Feuil1").Cells(i, 1).Value = UCase(Replace(Replace(MonthName(i), "û", "U"), "é", "E"))
  
     Next i

End Sub

Je n'ai pas testé, mais en remplaçant " MonthName(i)" par ce que tu veux,
cela devrait marcher aussi. (Classeur joint pour tester)

A voir.

Amicalement.

Yann

 

[Staple1600]

Re : minucule en majuscule

Bonsoir

Mon interprétation de l'exemple de YANN-56

Sub y()
Const m As String = "JANVIER FEVRIER MARS AVRIL MAI JUIN JUILLET AOUT SEPTEMBRE OCTOBRE NOVEMBRE DECEMBRE"
Dim t
t = Split(m)
Cells(1, 1).Resize(UBound(t) + 1) = Application.Transpose(t)
End Sub

En codant en dur , on sera à jamais en majuscules 😉

Mais on parlait de nom et prénom, non ?

Mon probleme est que sur la userform de saisie dans les textbox nom et prénom, j'ai voulu obliger la siasie en majuscule avec Ucase mais cela ne semble pas fonctionner.

 

[JNP]

Re : minucule en majuscule

Bonsoir le fil 🙂,
Une solution "clef en main" sur ce post, qui a sans doute encore des failles, mais qui blinde pas mal le terrain 😛
Bonne soirée 😎