une procédure VBA pour verrouiller en majuscule

Bonjour.
Pourquoi ne pas transformer le résultat de la saisie en majuscules :
Saisie = UCase(InputBox("Faites votre saisie"))
Cordialement.
Daniel
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
43ce143e$0$21269$8fcfb975@news.wanadoo.fr...

Bonjour à tous,............................Excel 2000 soux XP

Merci de me lire.....................bonne journée...!!!

Je voudrais pouvoir incérer dans une macro existante 1 petite procédure,
ayant pour effet de verrouiller en majuscule, pour pouvoir saisir du texte
en majuscule, et ensuite une autre petite procédure à insérer pour
dévérouiller, la saisie se faisant dans une fenêtre ImputBox, type 2 pour
du texte,

Cordialemment......Merci d'avance.....au plaisir de vous lire.....DC

DC avait soumis l'idée :

Bonjour à tous,............................Excel 2000 soux XP

Merci de me lire.....................bonne journée...!!!

Je voudrais pouvoir incérer dans une macro existante 1 petite procédure,
ayant pour effet de verrouiller en majuscule, pour pouvoir saisir du texte en
majuscule, et ensuite une autre petite procédure à insérer pour dévérouiller,
la saisie se faisant dans une fenêtre ImputBox, type 2 pour du texte,

Cordialemment......Merci d'avance.....au plaisir de vous lire.....DC

reponse = Ucase(Inputbox(...)) devrait suffir
JLuc

Bonjour à tous,.........................Bonjour.......Daniel.......JLuc,

Merci de vos réponses positives.............bonne journée...!!!

J'ai donc insérée cette procédure dans la macro, et çà fonctionne
parfaitement, mieux que je ne l'espérais, juste une petite remarque, est-il
possible de positionner la petite Fenêtre Excel sur l'écran,
...............Merci d'y penser...!!!
'----------------------------------------------------------
Range("Réf").Select

ActiveCell = UCase(InputBox("Faites votre saisie en minuscule + OK"))

Range("Trv").Select
'---------------------------------------------------------
Cordialement.............un grand Merci...!!!...............DC

"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.92b87d61032302fd.42854@free.fr.ns...

DC avait soumis l'idée :

Bonjour à tous,............................Excel 2000 soux XP

Merci de me lire.....................bonne journée...!!!

Je voudrais pouvoir incérer dans une macro existante 1 petite procédure,
ayant pour effet de verrouiller en majuscule, pour pouvoir saisir du
texte en majuscule, et ensuite une autre petite procédure à insérer pour
dévérouiller, la saisie se faisant dans une fenêtre ImputBox, type 2 pour
du texte,

Cordialemment......Merci d'avance.....au plaisir de vous lire.....DC

reponse = Ucase(Inputbox(...)) devrait suffir
JLuc

DC avait soumis l'idée :

Bonjour à tous,.........................Bonjour.......Daniel.......JLuc,

Merci de vos réponses positives.............bonne journée...!!!

J'ai donc insérée cette procédure dans la macro, et çà fonctionne
parfaitement, mieux que je ne l'espérais, juste une petite remarque, est-il
possible de positionner la petite Fenêtre Excel sur l'écran,
...............Merci d'y penser...!!!
'----------------------------------------------------------
Range("Réf").Select

ActiveCell = UCase(InputBox("Faites votre saisie en minuscule + OK"))
ActiveCell = UCase(InputBox("Faites votre saisie en minuscule +

OK",,100,100))

Range("Trv").Select
'---------------------------------------------------------
Cordialement.............un grand Merci...!!!...............DC

"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.92b87d61032302fd.42854@free.fr.ns...

DC avait soumis l'idée :

Bonjour à tous,............................Excel 2000 soux XP

Merci de me lire.....................bonne journée...!!!

Je voudrais pouvoir incérer dans une macro existante 1 petite procédure,
ayant pour effet de verrouiller en majuscule, pour pouvoir saisir du texte
en majuscule, et ensuite une autre petite procédure à insérer pour
dévérouiller, la saisie se faisant dans une fenêtre ImputBox, type 2 pour
du texte,

Cordialemment......Merci d'avance.....au plaisir de vous lire.....DC

reponse = Ucase(Inputbox(...)) devrait suffir
JLuc

--
JLuc

Bonsoir à tous..........................Bonsoir JLuc,

Merci de me répondre...................bonne soirée...!!!

Je suis navré JLuc, mais je n'y arrive pas,........Voici 2 procédures qui
fonctionnent bien, mais elles ont chacune un petit inconvénient
La première, peut être positionnée sur l'écran ( mais pas de majuscules ),
La seconde, fait des masjuscules (mais pas de position sur l'écran )
Aussi j'aimerais pouvoir conjuguer les 2 avantages en une seule, c'est à
dire; Faire des masjuscule + positionner sur l'écran )
................Merci de voir si c'est possible...!!!
'------------------------------------------------------------------
ActiveCell = Application.InputBox(Prompt:="Faites votre saise en minuscule +
OK...", Left:(0, Top:0, Type:=2)
'**************************************************
ActiveCell = UCase(InputBox("Faites votre saisie en minuscule + OK"))
'------------------------------------------------------------------
Cordialement.............Merci d'avance.........bonne soirée......DC

"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.93697d616066b93d.42854@free.fr.ns...

DC avait soumis l'idée :

Bonjour à tous,.........................Bonjour.......Daniel.......JLuc,

Merci de vos réponses positives.............bonne journée...!!!

J'ai donc insérée cette procédure dans la macro, et çà fonctionne
parfaitement, mieux que je ne l'espérais, juste une petite remarque,
est-il possible de positionner la petite Fenêtre Excel sur l'écran,
...............Merci d'y penser...!!!
'----------------------------------------------------------
Range("Réf").Select

ActiveCell = UCase(InputBox("Faites votre saisie en minuscule + OK"))
ActiveCell = UCase(InputBox("Faites votre saisie en minuscule +

OK",,100,100))

Range("Trv").Select
'---------------------------------------------------------
Cordialement.............un grand Merci...!!!...............DC

"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.92b87d61032302fd.42854@free.fr.ns...

DC avait soumis l'idée :

Bonjour à tous,............................Excel 2000 soux XP

Merci de me lire.....................bonne journée...!!!

Je voudrais pouvoir incérer dans une macro existante 1 petite
procédure, ayant pour effet de verrouiller en majuscule, pour pouvoir
saisir du texte en majuscule, et ensuite une autre petite procédure à
insérer pour dévérouiller, la saisie se faisant dans une fenêtre
ImputBox, type 2 pour du texte,

Cordialemment......Merci d'avance.....au plaisir de vous lire.....DC

reponse = Ucase(Inputbox(...)) devrait suffir
JLuc

--
JLuc

DC avait soumis l'idée :

Bonsoir à tous..........................Bonsoir JLuc,

Merci de me répondre...................bonne soirée...!!!

Je suis navré JLuc, mais je n'y arrive pas,........Voici 2 procédures qui
fonctionnent bien, mais elles ont chacune un petit inconvénient
La première, peut être positionnée sur l'écran ( mais pas de majuscules ),
La seconde, fait des masjuscules (mais pas de position sur l'écran )
Aussi j'aimerais pouvoir conjuguer les 2 avantages en une seule, c'est à
dire; Faire des masjuscule + positionner sur l'écran )
................Merci de voir si c'est possible...!!!
'------------------------------------------------------------------
ActiveCell = Application.InputBox(Prompt:="Faites votre saise en minuscule +
OK...", Left:(0, Top:0, Type:=2)
'**************************************************
ActiveCell = UCase(InputBox("Faites votre saisie en minuscule + OK"))
'------------------------------------------------------------------
Cordialement.............Merci d'avance.........bonne soirée......DC

"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.93697d616066b93d.42854@free.fr.ns...

DC avait soumis l'idée :

Bonjour à tous,.........................Bonjour.......Daniel.......JLuc,

Merci de vos réponses positives.............bonne journée...!!!

J'ai donc insérée cette procédure dans la macro, et çà fonctionne
parfaitement, mieux que je ne l'espérais, juste une petite remarque,
est-il possible de positionner la petite Fenêtre Excel sur l'écran,
...............Merci d'y penser...!!!
'----------------------------------------------------------
Range("Réf").Select

ActiveCell = UCase(InputBox("Faites votre saisie en minuscule + OK"))
ActiveCell = UCase(InputBox("Faites votre saisie en minuscule +

OK",,100,100))

Range("Trv").Select
'---------------------------------------------------------
Cordialement.............un grand Merci...!!!...............DC

"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.92b87d61032302fd.42854@free.fr.ns...

DC avait soumis l'idée :

Bonjour à tous,............................Excel 2000 soux XP

Merci de me lire.....................bonne journée...!!!

Je voudrais pouvoir incérer dans une macro existante 1 petite procédure,
ayant pour effet de verrouiller en majuscule, pour pouvoir saisir du
texte en majuscule, et ensuite une autre petite procédure à insérer pour
dévérouiller, la saisie se faisant dans une fenêtre ImputBox, type 2
pour du texte,

Cordialemment......Merci d'avance.....au plaisir de vous lire.....DC

reponse = Ucase(Inputbox(...)) devrait suffir
JLuc
Dans ce cas :

reponse = Inputbox("Question...")
Ureponse = UCase(reponse)

En deux fois mais devrait aller
Dis nous

--
JLuc

Bonsoir à tous,...............................Bonsoir
JLuc,.....et.....Daniel

Merci de m'avoir répondu..................Bonne soirée...!!!

Bon, çà y est j'ai résolu mon problème, la mise en masjuscule est de loin le
plus important, donc le positionnement sur l'écran, je verrais peut-être çà
plus tard,.........Merci pour tout...!!!
'------------------------------------------------------------------
ActiveCell = UCase(InputBox("Faites votre saisie en minuscule + OK"))
'------------------------------------------------------------------
Cordialement.................un grand Merci...!!!................DC

"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.94427d617f37e638.42854@free.fr.ns...

DC avait soumis l'idée :

Bonsoir à tous..........................Bonsoir JLuc,

Merci de me répondre...................bonne soirée...!!!

Je suis navré JLuc, mais je n'y arrive pas,........Voici 2 procédures qui
fonctionnent bien, mais elles ont chacune un petit inconvénient
La première, peut être positionnée sur l'écran ( mais pas de
majuscules ),
La seconde, fait des masjuscules (mais pas de position sur l'écran )
Aussi j'aimerais pouvoir conjuguer les 2 avantages en une seule, c'est à
dire; Faire des masjuscule + positionner sur l'écran )
................Merci de voir si c'est possible...!!!
'------------------------------------------------------------------
ActiveCell = Application.InputBox(Prompt:="Faites votre saise en
minuscule + OK...", Left:(0, Top:0, Type:=2)
'**************************************************
ActiveCell = UCase(InputBox("Faites votre saisie en minuscule + OK"))
'------------------------------------------------------------------
Cordialement.............Merci d'avance.........bonne soirée......DC

"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.93697d616066b93d.42854@free.fr.ns...

DC avait soumis l'idée :

Bonjour à
tous,.........................Bonjour.......Daniel.......JLuc,

Merci de vos réponses positives.............bonne journée...!!!

J'ai donc insérée cette procédure dans la macro, et çà fonctionne
parfaitement, mieux que je ne l'espérais, juste une petite remarque,
est-il possible de positionner la petite Fenêtre Excel sur l'écran,
...............Merci d'y penser...!!!
'----------------------------------------------------------
Range("Réf").Select

ActiveCell = UCase(InputBox("Faites votre saisie en minuscule + OK"))
ActiveCell = UCase(InputBox("Faites votre saisie en minuscule +

OK",,100,100))

Range("Trv").Select
'---------------------------------------------------------
Cordialement.............un grand Merci...!!!...............DC

"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.92b87d61032302fd.42854@free.fr.ns...

DC avait soumis l'idée :

Bonjour à tous,............................Excel 2000 soux XP

Merci de me lire.....................bonne journée...!!!

Je voudrais pouvoir incérer dans une macro existante 1 petite
procédure, ayant pour effet de verrouiller en majuscule, pour pouvoir
saisir du texte en majuscule, et ensuite une autre petite procédure à
insérer pour dévérouiller, la saisie se faisant dans une fenêtre
ImputBox, type 2 pour du texte,

Cordialemment......Merci d'avance.....au plaisir de vous lire.....DC

reponse = Ucase(Inputbox(...)) devrait suffir
JLuc
Dans ce cas :

reponse = Inputbox("Question...")
Ureponse = UCase(reponse)

En deux fois mais devrait aller
Dis nous

--
JLuc

*Bonjour DC*,

'------------------------------------------------------------------
ActiveCell = UCase(InputBox("Faites votre saisie en minuscule + OK"))
'------------------------------------------------------------------
La saisie peut se faire en majuscule, minuscule ou un melage des deux.

UCase("Passe une bonne SOIREE") donnera :
"PASSE UNE BONNE SOIREE"

--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS

Bonjour à tous,............................Bonjour JLuc,

Merci de bien suivre.........................bonne journée

Effectivement je n'avais pas remarqué cette petite différence, sur la forme
de saisie, ce qui ne justifie plus, cette mention de minuscule dans mon
texte, je donc modifié l'ensemble du texte pour le rendre plus
compréhensif..............Merci pour tout...!!!
'----------------------------------------------------------------
ActiveCell = UCase(InputBox("Rentrer votre nouvelle Référence + OK"))
'----------------------------------------------------------------
Cordialement..............un grand Merci...!!!................DC

"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.948f7d61b85ccba6.40692@free.fr.ns...

*Bonjour DC*,

'------------------------------------------------------------------
ActiveCell = UCase(InputBox("Faites votre saisie en minuscule + OK"))
'------------------------------------------------------------------
La saisie peut se faire en majuscule, minuscule ou un melage des deux.

UCase("Passe une bonne SOIREE") donnera :
"PASSE UNE BONNE SOIREE"

--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS