• Initiateur de la discussion Initiateur de la discussion gds35
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gds35

XLDnaute Impliqué
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
 
Re : Simuler Touche TAB

Salut gds35, le Forum

à tester si j'ai bien compris

Code:
Private Sub ComboBox1_AfterUpdate()
[COLOR=Green]'TonCode[/COLOR]
TextBox1.SetFocus
End Sub
si TextBox1 est la Première TextBox à remplir
Bonne Journée
 
Dernière édition:
Re : Simuler Touche TAB

Salut, s'il s'avère réellement nécessaire de simuler la touche TAB , alors suivant le contexte utiliser
Code:
If KeyAscii = 13 Then SendKeys "{TAB}": KeyAscii = 0
ou
Code:
Application.SendKeys "{TAB}"
à toi de voir
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
227
  • Question Question
Réponses
19
Affichages
2 K
Retour