Erreur Focus textbox

Résolu/Fermé

sormick - Modifié par pijaku le 27/01/2015 à 14:11
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 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
Erreur 0x80070643 - Guide
Erreur 10016 epson - Forum Imprimante
Erreur c2002 western union ✓ - Forum Vos droits sur internet
Erreur g030 - Forum Bbox Bouygues
Erreur 5000 france tv - Forum Lecteurs et supports vidéo

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
27 janv. 2015 à 14:30

Bonjour,

en anglais, mais facile a comprendre:

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

sormick
27 janv. 2015 à 14:52

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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > sormick
27 janv. 2015 à 15:27

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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
27 janv. 2015 à 15:36

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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
27 janv. 2015 à 15:46

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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
27 janv. 2015 à 15:52

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

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Erreur de lecture sur iptv smarters

Problème de décodeur TV Bouygues Telecom

Discussions similaires

Newsletters