Discussion :

[Mr l'Ashanti]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

un exemple dans un UserForm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Mr l'Ashanti]

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

[Mr l'Ashanti]

J'ai mis le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

bt_eff.takefocusonclick=false

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
if activecontrol.name="textbox" then
T_nom=""
T_prenoms=""
T_paye=""
End if

mais ça ne marche pas.
Merci

[Mr l'Ashanti]

Lorsque je mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CMB.takefocusonclick=true

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

[patricktoulon]

re
salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
if activecontrol.name="T_nom" then
T_nom=""
T_prenoms=""
T_paye=""
End if

[Pierre Fauconnier]

Salut

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

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



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

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

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 vba :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Mr l'Ashanti]

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.

[Mr l'Ashanti]

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.

[Mr l'Ashanti]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Pierre Fauconnier]

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

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!

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Mr l'Ashanti]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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

[Transitoire]

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


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é)

Cordialement