Vérifier si un textbox à le focus ?

Bonjour à tous,

Je vais essayé d'être compréhensible ;)
Voila alors je travail sur 2 textbox et sur ces 2 textbox, sur l'évènement "change" je change la valeur de l'une et l'autre en utilisant un calcul (division) et donc je me retrouve dans une boucle pas très sympathique qui se termine par une division par 0.

Pour remédié à ceci je voudrai mettre une condition sur ces 2 textbox avec le focus (si le textbox n'a pas le focus aucun calcul ne se fera) cependant en VBA-E je ne trouve pas de méthode pour vérifier si un textbox à le focus donc voici ma question :
Est-ce possible de vérifier si un textbox à le focus ?

merci

Bonjour,

une seule réponse (et à toi de jouer... c'est facile) :
- si un contrôle a le focus, il est le contrôle actif. l'Objet ActiveControl possède des propriétés, parmi lesquelles la propriété Name, qu'il est facile de comparer avec le nom de ta textbox ....;)

Arf j'ai oublié de précisé que mes 2 textbox se trouve dans un groupe d'objet et AciveControl.Name me renvoi donc le nom du groupe et non le nom du textbox...
Une idée ? je pourrai les retiré du groupe mais ça me créerai de nouveau problèmes avec mes boutons d'option. :cry:

Comment as-tu créé ton "groupe" ?
S'agit-il d'un groupe "indexé" (avec une classe) où tes textbox sont reférenciables par des index, genre TextBox1(0), TexBox1(1), etc...?
Si oui et que tu l'as bien fait, tu as alors une propriété index, à utiliser dans un tel cas à la place de la propriété Name (et tu compares le contenu de la propriété Index (un integer, donc) avec l'index de ta textbox)

EDIT :
Tu pourrais avoir d'autres groupes et pas de chance avec le seul index :
Dans le cas ci-dessus, il te faut donc contrôler 2 choses :
Que la propriété .Name soit la même que celle de ta TextBox
- que la propriété Index soit aussi la même .

J'ai utilisé le groupe normal (entouré en rouge) je ne sais pas utilisé de groupe indexé je sais le faire avec les textbox simple mais pas dans un groupe

EDIT : j'ai regardé dans les propriété et je n'est pas "index"

http://jinzo59.free.fr/groupe.jpg

Je crains dans ce cas ne pouvoir aller plus loin avec toi dans cette discussion, ne sachant rien de ton "groupe", de la manière dont il a été créé... et n'ayant de surcroît pas Excel à portée de main présentement...
Désolé. Quelqu'un d'autre prendra le relais...

ok ok merci pour tes messages, tu m'as déjà bien aidé.
Bonne soirée

De retour quand même, mais (sans Excel) à l'aveuglette et sans aucune garantie...
Je suis par ailleurs à peu près certain de ce qu'il y a probablement mieux à faire :

1) je commence à deviner (ce que tu n'avais pas précisé) qu'il s'agit de contrôles présents sur une feuille et non sur un UserForm
2) bien que je pense qu'existe du plus orthodoxe, essaye donc (si personne ne vient d'aider avec du mieux) de faire ceci :

sur ta feuille, en plus de ton "groupe" contenant tes textboxes (ici 2 textboxes pour essai) :
un bouton de commande
Si j'ai raison, le click sur le bouton de commande devrait afficher True ou False selon que la textbox2 a ou non le focus :

Allons-y (en tentative à l'aveuglette et sans garantie, hein ...) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

private toto As string   private sub commandbutton1_click() dim voyons as boolean voyons = textbox2.name = toto ' ou tout simplement encore : voyons = Ucase(toto) = Ucase("textbox2") ... because la casse possible MsgBox voyons end sub     private sub textBox2_gotfocus() toto = textbox2.name end sub private sub textBox1_gotfocus() toto = textbox1.name end sub

---

Si (ce que j'espère), cette acrobatie te donne le résultat attendu, utilise-la comme tu l'entends dans ton évènement (change, je crois ... sans réellement comprendre... à moins que ce Change n'intervienne sans intervention manuelle...)
Bonne chance
Mais j'espère que tu auras une réponse plus orthodoxe que ce machin-là fait l'aveuglette ...:lol:

EDIT : j'ai rajouté un évènement oublié (celui du focus donné à textbox1, bien évidemment).

Tu pourrais d'ailleurs faire (si tu ne dois contrôler le focus que d'une seule textbox) la même chose avec une variable booléenne toto à True au GotFocus et à False au LostFocus (plus facile, donc)

Tout ceci, bien sûr, sans préjuger du caractère astucieux de tes mécanismes, que je ne parviens pas à deviner (bizarre, d'utiliser un évènement change et de se demander quel est le contrôle actif, qui ne peut être que celui qui subit l'évènement, normalement, encore que .... si le change intervient à cause d'une modification dynamique... mais depuis quoi ? où et comment ... bizarre...)

Bon (ton affaire m'empêche de dormir ...:D)

J'en suis arrivé à la conclusion selon laquelle, pour que tu en arrives à mettre en place un tel mécanisme, c'est que l'une des deux textboxes est alimentée dynamiquement (par un "timer" ou autre) alors que l'utilisateur peut "naviguer" entre les différents contrôles placés sur ta feuille. Je ne vois, sinon, aucune justification logique autre !!!

J'ai donc ouvert mon portable (avec Excel), pour simuler un tel cas de figure.

Toujours avec un bouton de commande et deux textboxes dans ton groupe.
En cliquant sur le bouyton de commande, on déclenche toutes les 4 secondes une macro nommée provoquons qui a pour rôle d'apporter une modif au contenu de TextBox1. Tout s'arrêtera (ne crains rien, à la 10ème modif)

Navique ensuite comme tu le voudras entre tes contrôles (sauf bien évidemment le bouton de commande, hein... sinon tu es parti pour 10 tours à chaque fois...) et observe...
Chaque fois que tu auras donné le focus à la textbox1, tu auras un message VRAI, et un message FAUX dans le cas contraire.Clique sans attendre sur cette msgbox.

On y va :
1) code sur ta feuille :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private toto As Boolean   Private Sub CommandButton1_Click() TextBox1.Text = "" TextBox2.Text = "" Application.OnTime DateAdd("s", 4, Now), "provoquons" End Sub   Private Sub TextBox1_Change() MsgBox toto End Sub   Private Sub TextBox1_GotFocus() toto = True End Sub   Private Sub TextBox1_LostFocus() toto = False End Sub

---

code de la macro provoquons :

Code:

---

1 2 3 4 5 6 7

Sub provoquons() Static i As Integer ActiveSheet.TextBox1.Text = ActiveSheet.TextBox1.Text & "a" If i < 10 Then Application.OnTime DateAdd("s", 4, Now), "provoquons" i = i + 1   End Sub

---

Voilà... A toi maintenant de ne pas dormir...
Bonne nuit...

:roll:

@ ucfoutu : C'est pas tout simplement Frame qu'il veut dire ?
Et c'est vrai que, un Textbox placé dans un Frame, ActiveControl renvoie le Frame...

C'est ce que j'ai compris moi !



A+

Citation:

---

Envoyé par mondev

:roll:

@ ucfoutu : C'est pas tout simplement Frame qu'il veut dire ?
Et c'est vrai que, un Textbox placé dans un Frame, ActiveControl renvoie le Frame...

C'est ce que j'ai compris moi !



A+

---

Bonjour,

Non ...
Il parle bien de groupage, et sur sa feuille de calcul ... Regarde le dessin qu'il a montré plus haut ...:lol:

Citation:

---

Envoyé par ucfoutu

Bonjour,

Non ...
Il parle bien de groupage, et sur sa feuille de calcul ... Regarde le dessin qu'il a montré plus haut ...:lol:

---

!!!

Par quoi es-tu donc surpris, mondev ?
Jette à nouveau un coup d'oeil à l'image qu'il a pourtant jointe, pour que l'on comprenne mieux ce qu'il a fait !
Regarde plus particulièrement l'image de droite et ce qui s'y trouve entouré de rouge. :lol:
Puis va sur une feuille, insère 2 textboxes, sélectionne-les toutes deux (la touche contrôle te le permet et elles apparaissent alors toutes deux entourées de leur cadre de sélection) depuis l'IDE, clique ensuite du bouton droit ===>> clique sur grouper ===>> le groupe est alors déjà créé (le cadre autour ne fait que montrer où et quoi ...
Et en effet : ActiveContrôle ne renvoie alors pas le nom de la textbox active, mais celui du groupe ...
Bonne découverte ... (mais ce n'est là que Excel, à ce niveau... et pas encore VBA)

Je sais pas ucfoutu ! peut être bien...

Ou peut être que, ce qu'il veut dire par "groupe" c'est le cadre marqué dessus "Saisir les valeurs actuelles" (le Frame)



J'insiste pas :D

A+

Bonsoir à tous
Bonsoir jinzo59, ucfoutu, mondev

Je suis ce post avec intérêt depuis le début, et je m'aperçois que ucfoutu se décarcasse depuis 4 jours (voire +) et que l'ami jinzo59 ne montre plus son nez, peut être en vacances (moi j'en reviens, donc ....)

En regardant bien le dessin de jinzo59, j'ai l'impression que "la boîte à outils" me fait penser à une USF, mais peut être me trompe-je ;)

Bonne soirée

Eric

Bonjour, edelweisseric,
Oh nom de nom !...
C'est toi qui a raison (je n'avais pas vu le caption de la boîte :oops:)

Et je présente dans la foulée mes excuses à mondev ... Il n'avait pas tort !

Bon...
Je sais bien que le demandeur n'est plus là, mais je vais malgré tout continuer, pour les autres, dont toi, edelweisseric

Reprenons donc ce que j'avais écrit pour des choses présentes dans la feuille et adaptons :

Code pour l'UserForm :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private toto As Boolean   Private Sub CommandButton1_Click() TextBox1.Text = "" TextBox2.Text = "" Application.OnTime DateAdd("s", 4, Now), "provoquons" End Sub   Private Sub TextBox1_Change() MsgBox toto End Sub   Private Sub TextBox1_Enter() toto = True End Sub   Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) toto = False End Sub

---

et copde pour la macro provoquons :

Code:

---

1 2 3 4 5 6 7

Sub provoquons() Static i As Integer UserForm1.TextBox1.Text = UserForm1.TextBox1.Text & "a" If i < 10 Then Application.OnTime DateAdd("s", 4, Now), "provoquons" i = i + 1   End Sub

---

Tout le reste à l'identique, à savoir : les contrôles présents et les gestes à effectuer pour parvenir à cette simulation.

Un grand merci à toi, edelweisseric, d'avoir mis un terme à cette ambiguïté qui n'avait qu'un seul responsble : moi.

Tu es un type très bien.

Bonsoir à tous

Merci ucfoutu pour ces lignes de code, qui ne sont pas les premières (de toi) que j'engrange.

Pour le "Un grand merci à toi" => pas de problème, quant à "Tu es un type très bien", houlala :oops::oops::oops:

Bonne soirée

Eric

Bonsoir et un grand MERCI pour toutes vos réponses :D.
Alors En effet il sagit d'un frame, excusez-moi de ne répondre que maintenant mais étant étudiant et développeur intérim j'ai été forcé de mettre ce projet de coté pendant un petit moment ^^.
J'ai trouvé une solution plutôt barbare mais qui fonction c'était de tout simplement retiré les textbox du frame en mettant un fond bleu derrière pour couvrir cette barbarie.

Mais je prend note de tous vos code et conseil afin d'améliorer ceci.
encore merci les amis ^^.

Salut,


Bizarre je n'ai reçu aucune notification du forum depuis des jours !



Concernant ton problème jinzo59 :

Tu peux pas faire tout simplement :

Code:

---

TonUSF.LeFrame.ActiveControl

---

???



A+