Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 SetFocus sur le premier Texbox vide de la Frame

P

Piment

XLDnaute Occasionnel
Bonjour à tous, pensée particulière pour Job75.
Je reviens vers vous une fois encore afin de m'aider à solutionner une difficulté que je rencontre.
Je voudrais que dès la sortie( par Tabulation) de la combobox, le focus soit mis sur le premier TextBox vide de la Frame de mon Usf.
Actuellement dès la sortie par Tab ou Entrer, le focus est mis sur le premier TextBox de la Frame.
Ci-joint un fichier minimaliste de mon fichier de base. Le but est de donner plus de fluidité à la saisie.
Par avance merci de votre sollicitude.
 

Pièces jointes

  • Essai4.xlsm
    50.5 KB · Affichages: 15
Trier par date Trier par votes

patricktoulon

XLDnaute Barbatruc
re
Attention
je reviens sur la notion d'intuitivité de la combobox
quand tu aura des centaines de numeros l'auto selection en autocomplétion par le INSTR de la valeur tapée ne te suffira plus
car si ils ne sont pas dans l'ordre alpha si tu tape 06 88 par exemple
et que tu en aura 50 de numeros qui commencent comme ca
et que par exemple celui que tu cherche est le dernier
bien tu saura obligé de taper le numero entier
resultat intuitivité =zero+zero=la tête à toto

tu trouvera ici et là dans le forum des exercices bien plus precis et vraiment intuitifs pour les combo

pour le moment ce que tu appelle "intuitivité"(qui n'en est pas une d'ailleurs) de ta combo n'est que la selection de la première occurence

tu reviendra pour ça je le sais
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
deja a minima
met ta liste dans l'ordre alpha
comme ça tout les numero qui commenceront pareil seront les un a la suite de l'autre
ensuit au taper tu peux faire un developpe de la combo pour eventuellement sélectionner une des occurences directement
mais pour ca il va te falloir soit faire un tri dans ta feuille
soit si tu ne veux pas toucher l'ordre de la feuille fair une variable tablea 2 colone colonne 1 les numero de tel et colonne 2 les index de lignes
et mettre ca dans ta combo
a la selection tu va chercher l'item (.list(.listindex,1) pour avoir ta ligne correspondante
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
les espaces et 14 caractères max
VB: 
'si on tape sur les touches numeriques la liste se reduit aux occurences du même  LEFT que le  VALUE
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    With ComboBox1
        Select Case (KeyCode)
        Case 96 To 105
            Select Case Len(.Value): Case 2, 5, 8, 11: .Value = .Value & " ": End Select
            .Value = .Value & Chr(KeyCode - 48): partListe: KeyCode = 0
            Select Case Len(.Value): Case 2, 5, 8, 11: .Value = .Value & " ": End Select
        Case 8
            If .Value <> "" Then .Value = Left(.Value, Len(.Text) - 1): partListe Else .List = tbl
            KeyCode = 0
        Case 46
            partListe
        End Select
        .Value = Mid(.Value, 1, 14)
    End With
End Sub
 
Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc
Re
je sais pas si c'est dû aux versions excel ,mais j'ai plein de problèmes exemple avec Select Case (KeyCode)
j'ai du mettre Select Case True
aussi avec .Value = .Value & Chr(KeyCode) puis avec .list=.list ainsi qu'avec le .DropDown qui n'affiche rien Lol etc etc
et la procédure ComboBox1_DropButtonClick
J'ai ajouté la gestion des Touches du pavé
VB: 
  Select Case True '(KeyCode)
         Case KeyCode >= 48 And KeyCode <= 57 Or KeyCode >= 96 And KeyCode <= 105
J'abandonne pour ce soir Lol
Bonne fin de Soirée.
Jean marie
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

L
  • Résolu(e)
XL 2016 Focus sur contrôle hors Frame dans UserForm
2
Réponses
22
Affichages
1 K
Lorenzini
L
A
  • Question
XL 2010 Forcer le focus a rester dans un Textbox apres validation
Réponses
11
Affichages
648
aurelio.ewane
A
S
  • Question
Microsoft 365 A partir de la 1ere cellule non vide, récupérer le mois
Réponses
4
Affichages
152
Sissou71
S
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
1 K
NONO14
N
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
578
escudo
E
X
  • Question
XL 2016 Gestion RH (renvoie de la valeur de la premier cellule d'une liste quand en fin de liste la cellule est vide)
Réponses
6
Affichages
714
xsara63
X
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
18 19 20
Réponses
291
Affichages
67 K
NONO14
N
T
  • Résolu(e)
XL 2019 Gestion "pseudo-évènements" sur un userform
2
Réponses
15
Affichages
531
ThierryP
T
T
  • Question
XL 2019 Redonner le focus à un TextBox
2
Réponses
16
Affichages
1 K
ThierryP
T
  • Résolu(e)
XL 2021 En restant sur Feuille 1 active, comment activer dans ma feuille2 la 1ère cellule vide de la colonne A
2
Réponses
29
Affichages
1 K
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…