Encore des problèmes de doublons...

[Hulk]

Hello tout le monde

J'ai encore des soucis avec des TextBox et des doublons...

Dans le fichier joint, j'ai préparé un p'tit Usf avec les explications, plus facile à expliquer qu'ici.

Si une bonne âme pouvait m'éclairer...

Merci et bonne journée à tous !!

 

[youky(BJ)]

Re : Encore des problèmes de doublons...

Bonjour Hulk,
Voici dans le fichier 1 seule macro en module pour tous.
Bruno

 

[job75]

Re : Encore des problèmes de doublons...

Bonjour Hulk, Bruno,

Avec un Module de classe contenant ce code :

Public WithEvents tbx As MSForms.TextBox

Private Sub tbx_Change()
If tbx = "" Then Exit Sub
Dim n As Long, c As Control
n = Int(Abs(Val(tbx)))
If tbx <> n Then tbx = n
If n = 0 Or n > nt Then tbx = "": Exit Sub
For Each c In tbx.Parent.Controls
  If TypeName(c) = "TextBox" Then _
    If c.Name <> tbx.Name And c = tbx Then tbx = "": Exit Sub
Next
End Sub

Fichier joint.

A+

 

[Hulk]

Re : Encore des problèmes de doublons...

Bruno, Job,

Merci à vous deux pour votre aide. C'est impec !

PS. J'aime bien les modules de classe...

 

[job75]

Re : Encore des problèmes de doublons...

Re,

Ah une petite imprécision dans la macro précédente, il faut écrire :

If tbx <> CStr(n) Then tbx = n

Fichier (2).

A+