Mettre en majuscule un inputbox

[Cédric]

Bonjour au forum, j'aimerai que la case soit mise en majuscule directement, voici le code que j'ai essayé :

entreprise = InputBox("Saisissez le nom de l'entreprise que vous avez choisi :", "Entreprise")
Target.Value = UCase(Target.Value)
Sheets("Données").Range("B16") = entreprise

Il y a une erreur concernant cette ligne : Target.Value = UCase(Target.Value)

Quelqu'un aurait-il une solution s'il vous plait ??

Merci bcp à vous tous.

 

[CBernardT]

Bonjour Cédric

Essayes avec cette syntaxe :

Dim entreprise As String
entreprise = InputBox("Saisissez le nom de l'entreprise que vous avez choisi :", "Entreprise")
entreprise = UCase(entreprise)
Sheets("Données").Range("B16") = entreprise

Cordialement

CBernardT

 

[Cédric]

Merci bcp à toi ça fonctionne mais peux tu m'expliquer si tu as le temps ce que tu as fait en détails, enfin ce que veut dire ce que tu as fait !!

 

[Eric C]

Bonjour le forum
Bonjour Cédric, bonjour CBernardT



Dim entreprise As String ==> Tu peux dans ta variable, déclarer des données alphanumriques
entreprise = InputBox("Saisissez le nom de l'entreprise que vous avez choisi :", "Entreprise") ==> Ta variable correspond à ce que tu entre comme valeur (contenu de ton InputBox)
entreprise = UCase(entreprise) ==> Le contenu de ton InputBox est converti en majuscule // Contraire ==> LCase (Minuscule)
Sheets("Données").Range("B16") = entreprise ==> ta variable est placée dans la cellule B16 de la feuille nommée Données

@ ++ Eric C

 

[CBernardT]

re Cédric et bonjour Eric C

C'est là qu'on voit la complémentarité entre les forumeurs hi hi

Merci Eric C, je n'aurais pas mieux expliquer.

Salut

CBernardT

 

[Eric C]

Re le forum
Re bonjour Cédric, re bonjour CBernardT

Je fais selon mes modestes connaissances V.BAsiques.
@micalement
Eric C

 

[Cédric]

Merci Eric pour ce complément, il me manquait juste 2 notions : l'alphanumérique et les majuscules et merci pour les minuscules je ne savait pas non plus !!!

A bientot et bonne soirée.