Simuler Touche TAB

[gds35]

Mes AMIS du Forum , Bonjour , Bon Dimanche ,

Je cherche a résoudre un pb ……
J'ai un USF +
J'ai une COMBOBOX puis 2 TextBox
Apres avoir choisi dans la combo la valeur désirée , je vais dans une feuille
Excel et rapatrie dans les 2 textbox les valeurs se référent au choix de la Combo
Mais il me faut faire TAB a chaque fois pour obtenir l'affichage et poursuivre …..
La Saisie dans l'USF. Y a-t-il un moyen de simuler la touche TAB après valid de la combobox
Pour que les valeurs s'affichent dans les textbox et poursuivre la saisie dans l'USF ????

D'avance Merci . Cordialement GDS35

 

[Dull]

Re : Simuler Touche TAB

Salut gds35, le Forum

à tester si j'ai bien compris

Private Sub ComboBox1_AfterUpdate()
[COLOR=Green]'TonCode[/COLOR]
TextBox1.SetFocus
End Sub

si TextBox1 est la Première TextBox à remplir
Bonne Journée

 

[kiki29]

Re : Simuler Touche TAB

Salut, s'il s'avère réellement nécessaire de simuler la touche TAB , alors suivant le contexte utiliser

If KeyAscii = 13 Then SendKeys "{TAB}": KeyAscii = 0

ou

Application.SendKeys "{TAB}"

à toi de voir

 

[gds35]

Re : Simuler Touche TAB

Re Salut Dull et KIKI

Voila le p'tit bout de code que j'ai .....
Private Sub LISTRERUCC_AfterUpdate()
'
'======================================'
' ALIMENTATION DES TEXTBOX DEPENDANTES '
' DU CHOIX DU RE '
'======================================'

NameRE = LISTRERUCC.Value
'
Sheets("FRE").Visible = True
'
Sheets("FRE").Select
LigRE = 3
RECHERCHE:
NamefeuilleRE = Range("B" & LigRE)
If NameRE <> NamefeuilleRE Then
LigRE = LigRE + 1
GoTo RECHERCHE
Else
NUMRERUCC = Range("A" & LigRE).Value
BOXUDRECC = Range("C" & LigRE).Value
RURECC = Range("E" & LigRE).Value
NUMRUCC = Range("D" & LigRE).Value
'
Sheets("FRE").Visible = False
'
End If
End Sub
et je cherche a valider automatiquement les 4 textbox NUMRERUCC ,BOXUDRECC,
RURECC et NUMRUCC

Mais Impossible , malgré vos conseils avisés...

Cordialement GDS35