Effacer un textbox si sélectionner. Option setfocus

Rebonjour forum.
Je souhaiterais effacer le contenu d'un textbox si il est sélectionné.exemple d'expression

Code:

---

if t_nom.setfocus then t_nom=" "

---

mais le code ne fonctionne pas. Message d'erreur : fonction ou variable attendue.
Merci de m'expliquer mon erreur.

bonsoir
a quel moment veux tu enlever le focus a ce textbox?

1. lors du click dessus?
2. par l'intermédiaire d'un bouton ?
3. par une macro ou une condition dans une macro?
4. est ce que ca doit être automatique ?

pour savoir si ton textbox a le focus tu fait pareille que les autre controls

Code:

---

if activecontrols.name="TextBox1" then textbox1=""

---

un exemple dans un UserForm

Code:

---

1 2 3 4 5 6 7 8 9 10

'--------------------------------------------------------- 'le bouton a la propriété 'takefocusonclick a false a mettre dans le activate de l'UserForm 'CommandButton1.TakeFocusOnClick = False '---------------------------------------   Private Sub CommandButton1_Click() If ActiveControl.Name = "TextBox1" Then TextBox1 = "" End Sub

---

te reste a répondre aux questions pour savoir comment tu devra faire ;)

Merci pour la réponse Pat. Enfaite il s'agit d'effacer un textbox à l'instar des autres si je clique sur le Cmbuton.
Je ne voudrais pas effacer tous les contenus des Textbox ce pourquoi j'ai opté pour le pas à pas .
Je vais tester le code et je te fais un retour. Merci

J'ai mis le

Code:

---

bt_eff.takefocusonclick=false

---

dans le userform_activate.
Ensuite dans le bt_eff j'ai mis

Code:

---

1 2 3 4 5

if activecontrol.name="textbox" then T_nom="" T_prenoms="" T_paye="" End if

---

mais ça ne marche pas.
Merci

Lorsque je mets

Code:

---

CMB.takefocusonclick=true

---

seul setfocus dans le textbox designer s'annule mais le texte ne s'efface pas.

re
salut

Code:

---

1 2 3 4 5

if activecontrol.name="T_nom" then T_nom="" T_prenoms="" T_paye="" End if

---

Salut

Citation:

---

Envoyé par patricktoulon

[...]
a quel moment veux tu enlever le focus a ce textbox?[...]

---

Où a-t-il été question d'enlever le focus? :roll:



Pour répondre à la question initiale (vider un textbox lorsqu'il est sélectionné)...

Code:

---

1 2 3

Private Sub TextBox1_Enter() TextBox1.Text = "" End Sub

---

Si tu veux vider plusieurs contrôles lorsque le textbox est sélectionné

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub TextBox1_Enter() ViderControles End Sub   Sub ViderControles() TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" End Sub

---

Merci pour la réponse. Je ne savais pas qu'il y avait un event appelé'' enter''. Je vais le tester et je réponds.

Je reprends mon sujet pour être bien compris :
Lorsque je click dans un quelconque textbox et que je click sur le commande bouton, le textbox sélectionné se vide. Elseif aucun textbox n'est sélectionné alors en cliquant sur le commande bouton tout se vide.

Mon soucis c'est comment traduire ça en code:

Code:

---

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

private sub cmbx_click Dim c If textbox1.select then Textbox1=empty Else For each c in me.controls If nametype(c)="textbox" then C="" If nametype (c)="combobox"then C="" End if End if End if Next c

---

voici un peu mon idée. Merci pour votre aide.

Quand la demande est bien formulée dès le début, c'est tout de même plus simple :calim2:

Sur la logique, ce que tu demandes est impossible. Lorsque tu vas quitter le textbox pour cliquer sur le bouton, le textbox ne sera plus sélectionné!

A quoi sert un bouton pour vider un textbox lorsqu'on est sur le textbox? L'utilisateur ne sait pas vider son textbox tout seul comme un grand? S'il ne sait pas vider son textbox tout seul, ne lui mets pas un ordi dans les pattes, il n'arrivera jamais à l'utiliser...

Si tu tiens vraiment à réaliser cela, tu vas devoir créer une variable pour mémoriser le textbox dans lequel tu rentres, pour pouvoir l'identifier par la suite lorsque tu cliqueras sur le bouton et que le textbox ne sera plus actif. Mais alors, comment feras-tu pour déterminer si un textbox était sélectionné ou si aucun ne l'était? A quel moment videras-tu cette variable pour déterminer que tu vas considérer qu'aucun textbox n'était sélectionné "juste avant" de cliquer sur le bouton...

C'est absurde, ce truc. Ca ne tient pas la route.

Des fois, j'vous jure!

Deux solutions

1. Mettre un bouton à côté de chaque textbox à vider (un peu à la manière d'un site web) et au clic, vider le textbox correspondant, et ajouter un bouton pour vider tous les textbox. Si vraiment les utilisateurs sont trop stupides que pour vider un textbox, ils risquent évidemment de cliquer sur le mauvais bouton.

Sinon, le code suivant permettrait cela. Ils vont s'amuser à voyager du textbox au bouton pour supprimer...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Private SelectedTextBox As String   Private Sub CommandButton1_Click() If SelectedTextBox <> "" Then Controls(SelectedTextBox).Value = "" Else TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" End If SelectedTextBox = "" End Sub   Private Sub TextBox1_Enter() SelectedTextBox = "TextBox1" End Sub   Private Sub TextBox2_Enter() SelectedTextBox = "TextBox2" End Sub   Private Sub TextBox3_Enter() SelectedTextBox = "TextBox3" End Sub

---

Voilà. Une "ergonomie" lourde et inutile, ça se paie en code. Y a pas miracles

Merci et un grand merci. L'explication est nette et sans bavure. Je crois que le problème est résolu et c'est mieux que j'utilise l'événement

Code:

---

textbox_Dblclick()

---

pour vider le textbox. Donc Y'a t'il un moyen de faire une boucle avec l'événement double click sur tous les textbox et combobox? Si oui, dois je créé un autre module ou je reste dans le même module?
Merci

Bonjour, à moins que vous ne souhaitiez vider tous les TextBox simultanément sur un seul DoubleClick??? :roll:
voici la marche a suivre ci-dessous.

Pièce jointe 501799
Vous cliquez dans la feuille code du UserForm sur TextBox1 puis sur DblClick. Enfin vous tapez le texte (TextBox1.value = "") et ça marche. Vous n'avez plus qu'a recommencer pour les autres TextBox, ListBox ou ComboBox que vous souhaitez utiliser avec cette manière de travailler. (Je précise qu'il convient de modifier le Nom du TB pour agir sur celui désiré) :weird:

Cordialement 8-)