Quel textbox à le focus ?

tototiti2008

XLDnaute Barbatruc

• 8 Décembre 2008

• #2

Re : Quel textbox à le focus ?

Bonjour carlos,

le soucis que j'entrevois, c'est qu'en cliquant sur un bouton, le focus n'est plus dans une textbox...

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 8 Décembre 2008

• #3

Re : Quel textbox à le focus ?

Bonjour tototiti2008

en effet ..;

Mais quand je clic sur le textbox , je pourrai envoyer le nom dans une cellule et le récuperer en cliquant sur le bouton .

Le probleme est que :

sub textbox1.click () n'existe pas!

Merci

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 8 Décembre 2008

• #4

Re : Quel textbox à le focus ?

Bonjour Carlos, tototiti😉,

Il faut que ton (tes) boutons de UserForm aient la propriété TakeFocusOnClick=False

Exemple d'action possible ensuite:

Code:

Private Sub CommandButton1_Click()
    'Si le contrôle actif est un TextBox
    If TypeName(Me.ActiveControl)="TextBox" then
        msgbox ActiveControl.name
    End If
End Sub

A+

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 8 Décembre 2008

• #5

Re : Quel textbox à le focus ?

Re

en fait je veux pouvoir coller la valeur 3 dans le textbox.setfocus en cliquant sur le bouton3 par exemple.

merci

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 8 Décembre 2008

• #6

Re : Quel textbox à le focus ?

Re,
Bonjour Hasco,

Bien vu Hasco, je ne connaissais pas cette propriété 🙂

en fait je veux pouvoir coller la valeur 3 dans le textbox.setfocus en cliquant sur le bouton3 par exemple

Cliquez pour agrandir...

désolé, carlos, mais je n'ai pas compris...

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 8 Décembre 2008

• #7

Re : Quel textbox à le focus ?

Bonjour Hasco

En faite mes textbox sont sur des multipages et cela me donne le nom du multipage actif.

Sinon j'ai testé ta proposition sur un USF simple avec que des textbox et ca marche.

Comment faire pour échapper à ce multipage?

Carlos

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 8 Décembre 2008

• #8

Re : Quel textbox à le focus ?

Re
Voici un fichier joint , car j'ai aussi des onglet....

 

Pièces jointes

• SetFocusPerdu.xls

  31.5 KB · Affichages: 135
• SetFocusPerdu.xls

  31.5 KB · Affichages: 134
• SetFocusPerdu.xls

  31.5 KB · Affichages: 134

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 8 Décembre 2008

• #9

Re : Quel textbox à le focus ?

Re,

peut-être grace à cette modification du code de Hasco :

Code:

Private Sub CommandButton1_Click()
    'Si le contrôle actif est un TextBox
    If TypeName(Me.ActiveControl) = "TextBox" Then
        MsgBox ActiveControl.Name
    ElseIf TypeName(Me.ActiveControl) = "MultiPage" Then
        MsgBox ActiveControl.SelectedItem.ActiveControl.Name
    End If
End Sub

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 8 Décembre 2008

• #10

Re : Quel textbox à le focus ?

Re

Pas possible avec multipage.

Il faut donc que tu passes par l'évènement 'Enter' de chaque Textbox1 et prévoir une variable String en tête de module pour récupérer le nom du dernier TextBox ayant eu le focus.

Code:

'Variable en tête de module
Private NomTextBoxFocus as String
 
 
'A répéter pour chaque textbox 
Private TextBox1_Enter()
   NomTextBox = "TextBox1"
End Sub

Ou parcourir tous tes textbox sur CommandButton1_click:

Code:

Private Sub CommandButton1_Click()
Dim i As Byte, X
For i = 1 To 20
    On Error Resume Next
    X = Controls("TextBox" & i).CurX
    If Err.Number = 0 Then
        Label1 = "TextBox" & i
        Exit For
    End If
    Err.Clear
Next i
End Sub

A+

 

Dernière modification par un modérateur: 8 Décembre 2008

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 8 Décembre 2008

• #11

Re : Quel textbox à le focus ?

Re

j'ai testé en mettant les textbox directement sur le multipage .Ton code marche impeccable.

Maintenant si je les mets sur le tabstrip , je ne sais pas quoi ercrire.

Carlos

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 8 Décembre 2008

• #12

Re : Quel textbox à le focus ?

Re:

Pour le coup, bien vu TotoTiti🙂
Je m'égarais....
A+

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 8 Décembre 2008

• #13

Re : Quel textbox à le focus ?

Re Hasco, tototiti2008

Franchement Hasco je suis impréssionné .

Ta derniere methode marche super

Je pense que celle :

Private Sub CommandButton1_Click()
'Si le contrôle actif est un TextBox
If TypeName(Me.ActiveControl) = "TextBox" Then
MsgBox ActiveControl.Name
ElseIf TypeName(Me.ActiveControl) = "MultiPage" Then
MsgBox ActiveControl.SelectedItem.ActiveControl.Name
End If
End Sub

devrait aussi fonctionner mais elle n'est aboutie.

Bravo et merci

Carlos

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 8 Décembre 2008

• #14

Re : Quel textbox à le focus ?

Re,

carlos, à priori le TabStrip ne change pas les contrôles donc le code que j'ai posté devrait fonctionner (j'ai testé sur ton exemple)

Hasco, c'est là qu'on se rend compte de la plus value du forum : c'est la collaboration 🙂

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 8 Décembre 2008

• #15

Re : Quel textbox à le focus ?

Re

Voici fichier joint qui marche .

 

Pièces jointes

• SetFocusPerdu.xls

  26 KB · Affichages: 141
• SetFocusPerdu.xls

  26 KB · Affichages: 149
• SetFocusPerdu.xls

  26 KB · Affichages: 166

Vote positif 0 Vote négatif