bonjour, j'ai un soucis je crée ds ma form un textbox dynamique aucun soucis
seulement je voudrai que lorsque j'appuye sur "entre" que ceal le ferme.
j'ai modifier mon code mais je suis en manque d'inspiration si une lanterne pouvait m'éclairer merci

voici le bout de code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
'-----------------------------------
   ' MODIFICATION DES CAPTIONS
   '-----------------------------------
   'avant toute modif, on verifie qu'il n'y en a pas d'autre en cours
    If modif = 1 Then
    MsgBox " valider votre changement avant de modifier un autre critère"
    GoTo fin
    Else
    modif = 1
    End If
            ' on parcour le control multipage
         For Each CtrlPage In Me.MultiPage1.Pages
             For Each CtrlFrame In MultiPage1.Pages.Item(CtrlPage.name).Controls
                ' si on trouve des frames alors on poursuit, sinon on sort
                     If TypeOf CtrlFrame Is MSForms.Frame Then GoTo suite1
                     GoTo fin2
suite1:
 
                    'Boucle sur tous les contrôles de la frame
                    For Each CtrlOption In CtrlFrame.Controls
                        'Vérifie qu'il s'agit d'un OptionButton, sinon on sort
                        If TypeOf CtrlOption Is MSForms.OptionButton Then GoTo suite2
                        GoTo fin3
suite2:
                                 ' une fois trouve on affiche à sa place un textbox
                                    If CtrlOption.Value = True Then
 
                        Set Mycmd = Interface.MultiPage1.Pages.Item(ItemP).Controls.Item(itemBut).Add("Forms.textbox.1")
                            Mycmd.left = CtrlOption.left
                            Mycmd.top = CtrlOption.top
                            Mycmd.width = 210
                            Mycmd.height = 18
                            Mycmd.Font.name = tahoma
                            Mycmd.Font.Size = 8
                            Mycmd.Font.Bold = False
                            Mycmd.text = CtrlOption.Caption
 
                                 With Mycmd
                                    .SetFocus
                                    .SelStart = 0
                                    .SelLength = Len(Mycmd.text)
                                    .MaxLength =
                                End With
.....
et voici ce que j'ai ecrit pour la fermeture:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub Mycmd_KeyPress(ByVal KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
    lecontrolselect.Caption = Mycmd.text
 Interface.Repaint
 DoEvents
Mycmd.Visible = False
 modif = 0
End If
End Sub
j'ai essayé en remplacant mycmd par textbox.1 rien.
l'appuie de la touche entre n'est pas reconnue ?

merci de votre lecture