Encore des problèmes de doublons...

youky(BJ)

XLDnaute Barbatruc

• 13 Mars 2013

• #2

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

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

 

Pièces jointes

• Test tbx(2).xlsm

  21.3 KB · Affichages: 27
• Test tbx(2).xlsm

  21.3 KB · Affichages: 26
• Test tbx(2).xlsm

  21.3 KB · Affichages: 31

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Mars 2013

• #3

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

Bonjour Hulk, Bruno,

Avec un Module de classe contenant ce code :

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+

 

Pièces jointes

• Test tbx(1).xlsm

  28.3 KB · Affichages: 33

Dernière édition: 13 Mars 2013

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 13 Mars 2013

• #4

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...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Mars 2013

• #5

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

Re,

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

Code:

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

Fichier (2).

A+

 

Pièces jointes

• Test tbx(2).xlsm

  28.4 KB · Affichages: 24
• Test tbx(2).xlsm

  28.4 KB · Affichages: 26
• Test tbx(2).xlsm

  28.4 KB · Affichages: 39

Vote positif 0 Vote négatif