Discussion :

[Nikodemus]

Bonjour,

Je possède un module de groupe dans lequel j'ai des actions sur le changement de plusieurs Textbox.
A certains moments, je fais la somme de quelques une de celles-ci.
Je souhaiterai (lorsque la somme dépasse une certaine valeur) revenir sur la Textbox précédente et la réinitialiser.
Du genre :

Code :

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

1
2
3
4
If Total > 100 Then
MsgBox ("Somme trop importante.")
TextBoxPrécédente.Value = ""
End If

Merci par avance à qui saura m'aider.
Bonne journée.
Cordialement.

[Theze]

Bonjour,

une piste :

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
25
26
27
28
29
30
 
Dim Txt As String
 
Private Sub CommandButton1_Click()
 
    'ici ton code...
 
    If Total > 100 Then
 
        MsgBox ("Somme trop importante.")
        Me.Controls(Txt).SetFocus
        Me.Controls(Txt).Text = ""
 
    End If
 
End Sub
 
Private Sub TextBox1_AfterUpdate()
 
   Txt = "TextBox1"
 
End Sub
 
Private Sub TextBox2_AfterUpdate()
 
   Txt = "TextBox2"
 
End Sub
 
'ainsi de suite pour tous les TextBox ou alors, utiliser un module de classe !

Hervé.

[kiki29]

Salut, voir avec la prorpiété Tag des TextBoxes ?

[Nikodemus]

Voici un de mes nombreux exemples :

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
   If UserForm2.TextBox3.Value <> "" Then
      Total = Total + CDbl(UserForm2.TextBox3.Value)
   End If
   If UserForm2.TextBox94.Value <> "" Then
      Total = Total + CDbl(UserForm2.TextBox94.Value)
   End If
   If UserForm2.TextBox147.Value <> "" Then
      Total = Total + CDbl(UserForm2.TextBox147.Value)
   End If
   If UserForm2.TextBox181.Value <> "" Then
      Total = Total + CDbl(UserForm2.TextBox181.Value)
   End If
   If UserForm2.TextBox215.Value <> "" Then
      Total = Total + CDbl(UserForm2.TextBox215.Value)
   End If
 
   UserForm2.TextBox249.Value = Total
 
   Total = 0

Sur le changement de n'importe laquelle des TextBox, la somme est recalculée.
Je ne parviens pas à adapter les idées à cet exemple pour retourner sur la dernière TextBox renseignée.

[Nikodemus]

Petit up.
Personne n'a d'idées ?

[patricktoulon]

l'idée on te l'a donné deja

quand tu tape sur un textbox

tu alimente une variable object ou meme string et tu te sert de celle ci pour recupérer l'ancien textbox

un peu de concentration

au plaisir