Majuscule en VBA

Bonjour
Voila un userForm sans image

http://cjoint.com/?EBkkREJXW5E

Amuse toi

A+
Maurice

C'est le club des papy, j'en ai 71 (LOL)

Cela permet de faire travailler ses neurones!!!!

Bonjour
de toute facon tu a pas finie d'apprendre
moi a 70 ans je sais pas tout HI
A+
Maurice
Je te salue Le Pivert

Etant absent ce matin, je n'ai pas pu te répondre. Maurice que je salue, s'en ai chargé.

En regardant ton fichier, je me suis aperçu que ton Bouton était nommé 21. Il y a eu une mise à jour de Microsoft le 09/12/2014 qui a semé la pagaille. Si à l'avenir tu as des problème avec Excel, lis ces 2 post:

https://docs.microsoft.com/en-us/archive/blogs/

https://forums.commentcamarche.net/forum/affich-31420346-fichier-qui-ne-fonctionne-plus#7

Tout à fait d'accord avec Maurice "il faut mettre le Ucase dans l'évènement TextBox_Change "

Sinon cela ne sert à rien.

Pour ce qui est du bouton, pour le mettre tu as cliqué sur Création dans l'onglet Développeur?
Pour ajoutez le code a ce bouton, c'est la même chose, Création, doubleclic sur le bouton, tu te retrouves dans l'éditeur et il te suffit de mettre ton code d'ouverture.

A ta disposition pour plus de détails

Cordialement

Bonjour Maurice

Merci pour ta réponse cela fonctionne impeccable.
Il est difficile pour moi d'éviter les sapins de noël ne connaissant bien peu
de choses au VBA .
Cordialement

Bonjour
evite les sapins de noêl
il faut mettre le Ucase dans TXT_Change

http://cjoint.com/?3BjlbZnIQ8Q
A+
Maurice

Bonjour

J'ai un souci avec le bouton d'ouverture de l'UF,quand je clique dessus rien ne se passe,je suis obligé d'activer la macro,ci-dessous un exemplaire de mon fichier

https://www.cjoint.com/c/EBjkD1x8QYs
Cordialement

Pas de problème.

Il suffit de supprimer le bouton qui ouvre l'UserForm avec son code et de recréer un autre bouton avec le code d'ouverture de l'userForm

Cordialement

Voir ceci:

https://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/

Sheets("Feuil1").Range("A1").Value = StrConv(TextBox1.Text, vbProperCase) 

Bonjour,

Voir ceci a adapter:

Sheets("Feuil1").Range("A1").Value = UCase(TextBox1.Text) 'majuscule
Sheets("Feuil1").Range("A1").Value = LCase(TextBox1.Text) 'minuscule

re a tous

J'ai, trouvé j'ai omis de mettre Txt avant AUTEUR
UCase(AUTEUR.Text) UCase(TxtAUTEUR.Text)
Cordialement