XL 2016 Focus sur contrôle hors Frame dans UserForm

L

Lorenzini

XLDnaute Occasionnel
Bonjour,

J'ai créé un formulaire dans lequel j'ai placé plusieurs contrôles.
Pour être plus précis : il y'a un Frame dans lequel j'ai placé tous mes contrôles SAUF 2 boutons de commande (Annuler et Valider...qui sont dans le fond de ce formulaire).
Au fur et à mesure des saisies, je valide le passage d'un contrôle à l'autre en pressant la touche [Entrée] ; jusque-là, tout va bien.
Sauf que : en arrivant dans le DERNIER contrôle (qui est un TextBox), je souhaitais (par facilité pour les futurs utilisateurs) que la validation des données saisies dans ce contrôle me place le focus sur le bouton "Valider" (qui est en dehors du Frame).
Je pensais qu'il me suffirait de placer un .SetFocus, mais déjà là, je me suis demandé (et j'ai testé) : où placer cette commande ?
dans le TextBox_Exit ? ou le CommandButton3_Enter (le fameux bouton de commande rehaussé d'un '+' qui prend le focus à la suite ET QUE JE NE VEUX PAS QU'IL LE PRENNE !!)
Il m'en aura fait perdre mon français !! mais vous aurez compris.
Le problème en faisant çà, c'est qu'une fois que j'ai validé par [Entrée], ou le bouton (CommandButton3 n'est plus cliquable) ou plus aucun autre contrôle n'est modifiable si je choisi le TextBox_Exit...
Ce problème (si si, pour moi, c'en est un alors que je ne l'aurais jamais cru !) est devenu carrément un casse-tête...
Y'a-t-il une solution pour que le bouton Valider prenne le focus après la saisie du dernier contrôle TextBox, sans que celà ne bloque tout ?

J'ai aussi tenté de changer l'ordre des tabulations, de remplacer le Frame par une Image (mais là, j'ai eu d'autres soucis... car je joue avec des si untel contrôle pas rempli ; l'autre invisible... et du coup, en passant de l'un à l'autre, Excel me saute des contrôles (les invisibles qui sont redevenus visibles)...

Enfin bref, j'espère que quelqu'un pourra m'aider ?
 

Pièces jointes

  • Question_01.jpg
    Question_01.jpg
    198.1 KB · Affichages: 18
  • LOREO3_Excel_Download.xlsm
    983 KB · Affichages: 1
Dernière édition:
Trier par date Trier par votes
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
et ces goto à la pelle c'est quoi?
VB: 
If DemoForm.ComboBox1.Value = "" And DemoForm.ComboBox2.Value = "" Then GoTo 10 Else GoTo 20
   
10  With DemoForm
        .Height = 225
        .Frame1.Height = 105
        .CommandButton1.Top = 144
        .CommandButton2.Top = 144
        .Top = Application.Top + 199
        .ComboBox1.Value = ""
        .ComboBox2.Value = ""
        .ComboBox3.Value = ""
        .TextBox2.Value = ""
        .TextBox3.Value = ""
        '.Label9.Caption = Sheets("Consultation").Range("A1")
        .CommandButton1.SetFocus
        .CommandButton2.Enabled = False
    End With

20 If DemoForm.ComboBox1.Value = "" And DemoForm.ComboBox2.Value <> "" Then GoTo 30 Else GoTo 40

30  With DemoForm
tu n'y est pas du tout j'ai l'impression d’être retourné 40 ans en arriere et travaill sur du basic.1

c'est comme ca que l'on fait aujourd'hui enVBA
Code: 
Private Sub ComboBox1_Click()

select case combobox1.value
case 10
'faire ceci'
case 20
'faire cela'
case 30
'ou bien cecicela'
case else
'si aucune correspond

end select
 
Dernière édition:
Vote positif 0 Vote négatif
L

Lorenzini

XLDnaute Occasionnel
patricktoulon à dit:
re
et ces goto à la pelle c'est quoi?
VB: 
If DemoForm.ComboBox1.Value = "" And DemoForm.ComboBox2.Value = "" Then GoTo 10 Else GoTo 20
   
10  With DemoForm
        .Height = 225
        .Frame1.Height = 105
        .CommandButton1.Top = 144
        .CommandButton2.Top = 144
        .Top = Application.Top + 199
        .ComboBox1.Value = ""
        .ComboBox2.Value = ""
        .ComboBox3.Value = ""
        .TextBox2.Value = ""
        .TextBox3.Value = ""
        '.Label9.Caption = Sheets("Consultation").Range("A1")
        .CommandButton1.SetFocus
        .CommandButton2.Enabled = False
    End With

20 If DemoForm.ComboBox1.Value = "" And DemoForm.ComboBox2.Value <> "" Then GoTo 30 Else GoTo 40

30  With DemoForm
tu n'y est pas du tout j'ai l'impression d’être retourné 30 ans en arriere et travaill sur du basic.1

c'est comme ca que l'on fait aujourd'hui enVBA
Code: 
Private Sub ComboBox1_Click()

select case combobox1.value
case 10
'faire ceci'
case 20
'faire cela'
case 30
'ou bien cecicela'
case else
'si aucune correspond

end select
Cliquez pour agrandir...
😂🤣 ben oui euh
....
je dois encore apprendre les Case Select... c'est çà non ?
oui, je sais, c'est du vieux...mais bon, çà fonctionne encore 😁
 
Vote positif 0 Vote négatif
L

Lorenzini

XLDnaute Occasionnel
Lorenzini à dit:
😂🤣 ben oui euh
....
je dois encore apprendre les Case Select... c'est çà non ?
oui, je sais, c'est du vieux...mais bon, çà fonctionne encore 😁
Cliquez pour agrandir...
patricktoulon à dit:
re
et ces goto à la pelle c'est quoi?
VB: 
If DemoForm.ComboBox1.Value = "" And DemoForm.ComboBox2.Value = "" Then GoTo 10 Else GoTo 20
   
10  With DemoForm
        .Height = 225
        .Frame1.Height = 105
        .CommandButton1.Top = 144
        .CommandButton2.Top = 144
        .Top = Application.Top + 199
        .ComboBox1.Value = ""
        .ComboBox2.Value = ""
        .ComboBox3.Value = ""
        .TextBox2.Value = ""
        .TextBox3.Value = ""
        '.Label9.Caption = Sheets("Consultation").Range("A1")
        .CommandButton1.SetFocus
        .CommandButton2.Enabled = False
    End With

20 If DemoForm.ComboBox1.Value = "" And DemoForm.ComboBox2.Value <> "" Then GoTo 30 Else GoTo 40

30  With DemoForm
tu n'y est pas du tout j'ai l'impression d’être retourné 30 ans en arriere et travaill sur du basic.1

c'est comme ca que l'on fait aujourd'hui enVBA
Code: 
Private Sub ComboBox1_Click()

select case combobox1.value
case 10
'faire ceci'
case 20
'faire cela'
case 30
'ou bien cecicela'
case else
'si aucune correspond

end select
Cliquez pour agrandir...
oui, voilà, c'est çà que je dois apprendre à utiliser ; je vais m'y coller.
Merci !
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
j'essai avec beaucoup d'effort de comprendre qu'est ce qui a pu t'aiguiller pour tes codes
on va la faire courte hein comme ça on perdra moins de temps
donc si j'ai bien compris l'intention
tu rempli des textbox et selectionne dans des combos le focus doit aller au controls suivant dans un ordre tres précis
le focus ne peut pas etre pris si le control précédent n'est pas ok

et une fois dument rempli on peu valider et envoyer dans le tableau structuré
on est ok avec ça ?
 
Vote positif 0 Vote négatif
L

Lorenzini

XLDnaute Occasionnel
patricktoulon à dit:
re
j'essai avec beaucoup d'effort de comprendre qu'est ce qui a pu t'aiguiller pour tes codes
on va la faire courte hein comme ça on perdra moins de temps
donc si j'ai bien compris l'intention
tu rempli des textbox et selectionne dans des combos le focus doit aller au controls suivant dans un ordre tres précis
le focus ne peut pas etre pris si le control précédent n'est pas ok

et une fois dument rempli on peu valider et envoyer dans le tableau structuré
on est ok avec ça ?
Cliquez pour agrandir...
En gros oui.
je nuance/précise : LA condition SINEQUANONE --> 2 ComboBox (1 Transporteur et 1 Fournisseur) DOIVENT être remplis (tous les autres ctrl peuvent être vides) pour que le bouton Valider soit Enable = true.
une fois terminé, le tout est envoyé dans un tableau structuré.
Le focus passe de l'un à l'autre... j'ai pensé à l'idée de DRANREB à 'jouer' avec les Default = True... le focus passe 1 nano seconde sur le bouton Valider et file sur le '+' !! grrrrrrrrrrr !!
J'ai eu une 2ème idée : Sendkeys "{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}" ... 7 x en tout pour que le focus arrive sur le bouton Valider mais mon pavé numérique se désactive avec cette satanée commande !!
Du coup, je planche sur ta solution (j'avais même pensé à remplace la Frame par une image, me disant : est-ce la Frame le problème ?)
(Tu n'as pas une adresse mail où je pourrais t'envoyer le fichier complet (2,70 Mo)... tu comprendrais mieux les idées avec...)
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
pour être honnête avec toi ,ton fichier n'apportera rien (tout du moins pour l'instant)
je te le dis avec tes userform il faut tout reprendre de zero
demain je te donnerais un exemple avec ton userform demoform tu verra
je bute encore sur le ID en colonne 1 du tableau perso j'aurais fait une suite et formaté la colonne mais bon

on en reparle demain
 
Vote positif 0 Vote négatif
L

Lorenzini

XLDnaute Occasionnel
patricktoulon à dit:
re
pour être honnête avec toi ,ton fichier n'apportera rien (tout du moins pour l'instant)
je te le dis avec tes userform il faut tout reprendre de zero
demain je te donnerais un exemple avec ton userform demoform tu verra
je bute encore sur le ID en colonne 1 du tableau perso j'aurais fait une suite et formaté la colonne mais bon

on en reparle demain
Cliquez pour agrandir...
ok, Merci de ton attention.
 
Vote positif 0 Vote négatif

Discussions similaires

D
  • Question
XL 2019 Contrôle active x qui se transforme en contrôle formulaires
Réponses
2
Affichages
299
Dranreb
Dranreb
P
  • Question
Microsoft 365 SetFocus sur le premier Texbox vide de la Frame
9 10 11
Réponses
150
Affichages
6 K
Piment
P
S
  • Question
XL 2021 Erreur "Sub ou Fonction non définie" pour la commande [LoadPicture] VBA (RESOLU)
Réponses
5
Affichages
386
Sghaier Chafaa
S
A
  • Question
XL 2010 Forcer le focus a rester dans un Textbox apres validation
Réponses
11
Affichages
650
aurelio.ewane
A
jcf6464
  • Résolu(e)
Microsoft 365 Contrôle sur textbox
Réponses
5
Affichages
317
jcf6464
jcf6464
T
  • Résolu(e)
XL 2019 Gestion "pseudo-évènements" sur un userform
2
Réponses
15
Affichages
543
ThierryP
T
Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
405
Chaton77
Chaton77
Z
  • Question
XL 2021 InputBox and focus à la fin de la ligne d'une valeur par défaut
Réponses
4
Affichages
271
zedude
Z
G
  • Question
Microsoft 365 Labels qui se dimensionnent tous seuls.
Réponses
3
Affichages
131
GClaire
G
AIXELS
  • Résolu(e)
Microsoft 365 Problème sur bouton valider
Réponses
8
Affichages
382
Lolote83
L

Membres actuellement en ligne

18 membres et 228 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 132
Messages
2 116 581
Membres
112 797
dernier inscrit
zouzou50