Encore des problèmes de doublons...

Hulk

XLDnaute Barbatruc
Hello tout le monde :)

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

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

Pièces jointes

  • Test tbx.xlsm
    22.7 KB · Affichages: 35

youky(BJ)

XLDnaute Barbatruc
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

job75

XLDnaute Barbatruc
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:

job75

XLDnaute Barbatruc
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

Statistiques des forums

Discussions
294 211
Messages
1 936 900
Membres
188 102
dernier inscrit
benefaballe