Simulation touche tab

[gds35]

Mes AMIS du Forum , bonjour Bon dimanche,

soucis : je selectionne une valeur dans une combobox (LISTRURE) , je cherche dans un premier temps a limenter la ListBox2 avec la valeur correspondante de la colonne "A" de la feuille "FRU" , et en simulant la touche TAB , passer directement a la saisie de la combobox "UD" , j'ai fais des recherches perso mais je n'y arrive pas ...... Auriez vous une idée ?
Je joins un fichier pour une une meilleure comprehension de mon pb.....

Merci encore de votre aide . Cordialement GDS

 

[kjin]

Re : Simulation touche tab

Bonjour,
Comme à mon habitude, rien compris

Private Sub LISTRURE_Change()
Dim ChoixRU As String
If LISTRURE.ListIndex = -1 Then Exit Sub
ChoixRU = LISTRURE.Value
'MsgBox (ChoixRU)
ListBox2.Clear
ListBox2.AddItem Sheets("FRU").Cells(LISTRURE.ListIndex + 3, 1).Value
UD.SetFocus

End Sub

Private Sub UserForm_Initialize()
With Sheets("FRU")
    LISTRURE.List = .Range("B3:B" & .Range("B65000").End(xlUp).Row).Value
End With
With UD
    .AddItem "UDP"
    .AddItem "UDR"
End With

End Sub

A+
kjin

 

[gds35]

Re : Simulation touche tab

Merci KJIN , dans la précipitation j'ai commis un bug dans mon fichier d'exemple , je le renvoi a nouveau mais pourquoi 'Comme à mon habitude, rien compris' , c'est moi qui ne sais expliquer mes problème , c'est fort possible .
Cordialement GDS35