textbox

K

kjin

XLDnaute Barbatruc

• 23 Novembre 2010

• #2

Re : textbox

Bonjour,
Pourquoi un userform dans ce cas, une Inputbox suffit...à moins que ne veuilles faire jouli
A+
kjin

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 23 Novembre 2010

• #3

Re : textbox

Bonjour kjin,

Pourquoi un userform parce que la j'ai fait juste un userform vite fait, mais en faite c'est userform avec mot de passe et il faut rentré le mot de passe puis valider avec un bouton alors je voulais juste rentrer le mot de passe et faire entrer.

Si possible je pense !

Merci d'avoir répondu

@+

Max

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 23 Novembre 2010

• #4

Re : textbox

Bonjour,

Personnellement, j'ai fait ceci dans une de mes applications :

Code:

Private Sub Textbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        KeyCode = 0
        Bouton1_Click
    End If
End Sub

En espérant que ça puisse te servir.

Bonne journée

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 23 Novembre 2010

• #5

Re : textbox

Bonjour Geotrouvepas.

Sa marche bien a part que j'ai changer bouton1 en commandbutton1 si non Nikel !

Je te remercie

Bonne journée

Max

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 23 Novembre 2010

• #6

Re : textbox

Re,

Code:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("feuil1").Range("A1") = TextBox1
Unload Me
End Sub

...en principe
A+
kjin

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 23 Novembre 2010

• #7

Re : textbox

@apdf1 : De rien et bonne journée

@kjin : A priori, je dirais que ça marche aussi mais à condition de mettre le EnterkeyBehavior à true...

 

Vote positif 0 Vote négatif