Erreur Focus textbox

Résolu

sormick -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 27 janv. 2015 à 15:52

Bonjour,

j'ai plusieurs textbox
J'utilise un code vba qui me permet en cliquant sur une listbox de revenir sur le dernier textbox que j'ai utilisé. Voici le code:

Private box As MSForms.TextBox
Private Sub TextBox1_enter()
Set box = Me.TextBox1
End Sub
box.Value = Me.ListBox1.Value
Me.Controls(box.TabIndex + 1).SetFocus

le problème c'est que ce code:
Me.Controls(box.TabIndex + 1).SetFocus
ne fonctionne pas!.je souhaiterais passer à la textbox suivante après avoir validé les informations de la listbox au dernier textbox utilisé.
voici le message d'erreur que j'ai:
le focus ne peut être déplacé sur le contrôle car celui-ci est invisible, non activé..........

Comment faire?

A voir également:

Erreur Focus textbox
Helicon focus - Télécharger - Photo & Graphisme
Erreur 0x80070643 - Accueil - Windows
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
J'aime par erreur facebook notification - Forum Facebook
Code erreur f3500-31 ✓ - Forum Bbox Bouygues

2 réponses

Réponse 1 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

en anglais, mais facile a comprendre:

https://www.excelforum.com/excel-programming-vba-macros/530311-vba-control-tab-index.html

sormick

Heuuu je ne suis pas doué en VBA.. désolé.
je n'arrive pas à le faire fonctionner.
j'ai mis le code:
Sub SetFocusByTabIndex(frm as Form, iTab as Integer)
On Error Resume Next
Dim ctl as Control

For each ctl in frm.Controls
If ctl.TabIndex = iTab Then
ctl.SetFocus
Exit For
End If
Next ctl
End Sub

dans un module , puis j'ai mis le code:
Call SetFocusByTabIndex(Me,3) dans la listbox
l'erreur qui s'affiche est:
type défini par l'utilisateur non défini

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > sormick

Re,

Marche pas, code non teste (ecrit au debut).

Vous envisagez de faire cette manip pour plusieurs textbox ou pas ???

sormick > f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention

oui je veux le faire sur plusieurs textbox.j'explique un peu plus:
je commence à saisir sur la textbox1, une liste de valeurs s'affiche sur la listbox.
je clique dessus.la valeur cliqué s'affiche sur la textbox1 puis automatiquement il passe à la textbox suivante. et ainsi de suite pour toutes les textbox.
il y a un total de 35 textbox

sormick > f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention

j'ai réussi!!
voici le code que j'ai trouvé à mettre sur la listbox:
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.TabIndex = box.TabIndex + 1 Then
ctl.SetFocus
Exit For
End If
Next

bonne journée à tous!!

Réponse 2 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

code corrige pour d'autres au cas ou:

Private box As MSForms.TextBox

Private Sub TextBox1_enter()
    Dim TabTxt As Integer
    
    Set box = TextBox1          '?????????????????
    box.Value = ListBox1.Value
    TabTxt = box.TabIndex + 1
    Call SetFocusByTabIndex(Me, TabTxt)
End Sub

Sub SetFocusByTabIndex(ByRef MaForm As Object, iTab As Integer)
    On Error Resume Next
    Dim ctl As Control

    For Each ctl In MaForm.Controls
        If ctl.TabIndex = iTab Then
            ctl.SetFocus
            x = ctl.Name
            Exit For
        End If
    Next ctl
End Sub

Discussions similaires

Erreur 3005 sur France TV

Code erreur 3000

Panne T32 sur telecommande Orange

Problème streaming France 2

impossible lire vidéos france 2

Votre réponse

Discussions similaires