Mettre en majuscule un inputbox

C

CBernardT

Guest

• 22 Novembre 2004

• #2

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

 

Vote positif 0 Vote négatif

C

Cédric

Guest

• 22 Novembre 2004

• #3

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 !!

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 22 Novembre 2004

• #4

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

 

Vote positif 0 Vote négatif

C

CBernardT

Guest

• 22 Novembre 2004

• #5

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

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 22 Novembre 2004

• #6

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

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

 

Vote positif 0 Vote négatif

C

Cédric

Guest

• 22 Novembre 2004

• #7

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.

 

Vote positif 0 Vote négatif