un seul code pour 14 textbox

Dranreb

XLDnaute Barbatruc

• 18 Décembre 2012

• #16

Re : un seul code pour 14 textbox

C'est très facile de créer des évènements: Instruction Event pour les déclarer, RaiseEvent pour les décréter.
Mais ça ne serait d'aucune utilité ici.
Je pense qu'il faut bien utiliser l'évènement Exit de l'objet Control. Déclarer l'objet Dim WithEvents TBx As Control et non pas TextBox.
Dans les userform ça marche parce que tout TextBox installé dans la fenêtre de conception y est aussi connu en tant que Control parce que c'est géré pour ça derrière. Mais VBA ne peut pas le deviner dans un module de classe. Je le répète: Exit est un évènement de l'objet Control et non de l'objet TextBox.
P.S. Je confirme qu'en déclarant dans ton dernier classeur joint, Papou-net:

VB:

Public WithEvents groupetextbox As MSForms.Control

Les évènements Enter Exit sont proposés dans la liste.
Cordialement

 

Dernière édition: 18 Décembre 2012

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 18 Décembre 2012

• #17

Re : un seul code pour 14 textbox

Dranreb à dit:

C'est très facile de créer des évènements: Instruction Event pour les déclarer, RaiseEvent pour les décréter.
Mais ça ne serait d'aucune utilité ici.
Je pense qu'il faut bien utiliser l'évènement Exit de l'objet Control. Déclarer l'objet Dim WithEvents TBx As Control et non pas TextBox.
Dans les userform ça marche parce que tout TextBox installé dans la fenêtre de conception y est aussi connu en tant que Control parce que c'est géré pour ça derrière. Mais VBA ne peut pas le deviner dans un module de classe. Je le répète: Exit est un évènement de l'objet Control et non de l'objet TextBox.
Cordialement

Cliquez pour agrandir...

Ca me paraît plus clair, d'un coup. Je vais tester ceci plus tard. Merci Bernard.

Cordialement.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Décembre 2012

• #18

Re : un seul code pour 14 textbox

Re,

Je ne savais pas que l'événement Exit ne se crée pas dans un Module de Classe, merci Papou-net.

Alors avec l'événement Change mais ce n'est vraiment pas fameux :

Code:

Private Sub groupetextbox_Change()
Dim c As Control
With groupetextbox
  If .Name <> .Parent.ActiveControl.Name Then Exit Sub
  For Each c In .Parent.Controls
    If TypeName(c) = "TextBox" And c.Name <> .Name _
      Then c = Format(c, "# ###.00 €")
  Next
End With
End Sub

Ton fichier joint.

Edit : ah mais pas rafraîchi, merci Bernard !!

A+

 

Pièces jointes

• Modules de classe(1).xls

  45.5 KB · Affichages: 77

Dernière édition: 18 Décembre 2012

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 19 Décembre 2012

• #19

Re : un seul code pour 14 textbox

Bonjour à tous,

Je remercie Dranreb pour sa solution.

J'ai testé et effectivement on a accès à l'événement Exit.

Ca, il fallait le savoir.

Cordialement.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Décembre 2012

• #20

Re : un seul code pour 14 textbox

Bonjour Papou-net, le fil,

Papou-net à dit:

J'ai testé et effectivement on a accès à l'événement Exit.

Cliquez pour agrandir...

Comment as-tu fait car chez moi (Excel 2003 ou Excel 2010) la classe ne s'initialise pas dans UserForm_Initialize.

J'ai une erreur d'exécution '459'...

A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Décembre 2012

• #21

Re : un seul code pour 14 textbox

Bonjour à tous,

J'ai testé et effectivement on a accès à l'événement Exit.

Cliquez pour agrandir...

bah... chez moi renvoie une erreur lors de l'initialisation (sous 2003)....

dans le module de l'usf :

Code:

Option Explicit
Private mestb As New Classe1
Private Sub UserForm_Initialize()
Set mestb.t = TextBox1
End Sub

dans le module de classe :

Code:

Option Explicit
Public WithEvents t As MSForms.Control

bien sur je passe en modifiant "Control" par "TextBox", mais pas d'événement "exit" dans ce cas....

bon après midi
@+

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 19 Décembre 2012

• #22

Re : un seul code pour 14 textbox

Bonjour job75,

Il ne faut pas toucher à UserForm_Initialize, tout se passe dans le module de classe.

Vois l'exemplaire modifié de ton fichier ci-joint : si tu sélectionnes "grouptextbox" dans la liste déroulante de gauche de l'éditeurVBA, celle de droite affichera quatre événements (AfterUpdate, BeforeUpdate, Enter et Exit).

On a donc bien accès à Exit en déclarant grouptextbox comme control.

Cordialement.

Edit : bonjour Pierrot, je confirme que ça marche sur XL2003 (je n'ai pas encore testé sur 2010 car je ne suis pas chez moi, mais je vérifierai dès que possible).

 

Pièces jointes

• Copie de Modules de classe(1).xls

  37.5 KB · Affichages: 69

Dernière édition: 19 Décembre 2012

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Décembre 2012

• #23

Re : un seul code pour 14 textbox

Re,

@Papou-Net🙂
chez moi sous 2003, et dans le fichier que tu viens de joindre, la ligne de code ci dessous me renvoie le message d'erreur d'exécution 459 : "l'objet ou la classe ne gère pas le jeu d'événements"

Code:

Set Textboxs(Nb).groupetextbox = Ctrl

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Décembre 2012

• #24

Re : un seul code pour 14 textbox

Re Papou-net, salut Pierrot,

Oui j'avais bien compris, mais ça n'empêche pas l'erreur '459' quand on ouvre l'USF :

L'objet ou la classe ne gère pas le jeu d'événements

Cliquez pour agrandir...

A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Décembre 2012

• #25

Re : un seul code pour 14 textbox

Re,

@Job🙂

Oui j'avais bien compris, mais ça n'empêche pas l'erreur '459' quand on ouvre l'USF :

Cliquez pour agrandir...

Aarf tu me rassure Job, suis pas tout seul.... désolé, je n'avais point vu ton post de 14h32... @+

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 19 Décembre 2012

• #26

Re : un seul code pour 14 textbox

RE :

Effectivement, Pierrot et job, j'ai cliqué sur le bouton et j'obtiens également l'erreur 459. Je n'avais pas été jusque là précédemment, je m'étais contenté de vérifier que l'événement Exit était bien proposé comme l'affirmait Bernard. S'il repasse par ici, il nous dira peut-être ce que nous loupons car il nous parle de "RaiseEvent pour les décréter" dans son message #16 et j'avoue ne pas comprendre.

Cordialement.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Décembre 2012

• #27

Re : un seul code pour 14 textbox

Re,

regarde le lien ci-dessous, un fichier de notre ami MichelXLD🙂 allias SilkyRoad :
Les meilleurs sources pour Excel - Club d'entraide des dveloppeurs francophones
bonne soirée
@+

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 19 Décembre 2012

• #28

Re : un seul code pour 14 textbox

rebonjour tous 🙂🙂🙂🙂
concernant le pb de l'ami dindin
je vois pas trop l'intêret de mettre un format avant de remplir les textboxs??? a ce compte la autant mettre un bouton plus le code dedans
autrement on pourrait faire

Code:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
es
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
es
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
es
End Sub
'ect....
Sub es()
 For i = 1 To 14
 If Controls("TextBox" & i) <> "" Then _
 Controls("TextBox" & i) = Format(Controls("TextBox" & i), "# ###.00 €")
 Next i
End Sub

mais la plus de class il faut pas avoir une centaine de textboxs!!!

autrement pour contourner le pb... d'exit dans classe sans passer par lostfocus pour le format

j'avais trouver une methode acceptable en cas ou on se deplace dans les textboxs par la souris & non par Enter
ou autres qui ne valide pas le format
code assez brut a l'epoque pas pousser la reflexion plus loin🙁🙁 on pourrait reflechir a ce pb par exemple exploite evenement change variable public... retro variable pour detecter le controle avant le dernier focus ect..

 

Pièces jointes

• classmousse.xls

  42 KB · Affichages: 58

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Décembre 2012

• #29

Re : un seul code pour 14 textbox

Bonsoir tout le monde, mes hommages Laetitia 🙂,

Merci Pierrot pour le lien, très intéressant avec les événements LostFocus et GetFocus de MichelXLD.

Mais finalement c'est bien compliqué pour pas grand'chose, et comme le dit Laetitia :

a ce compte la autant mettre un bouton plus le code dedans

Cliquez pour agrandir...

C'est donc ce que j'ai fait dans le fichier joint.

Nota : pour le format il faut une virgule => "#,##0.00 €"

A+

 

Pièces jointes

• Format TextBox(1).xls

  43.5 KB · Affichages: 52

Dernière édition: 19 Décembre 2012

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Décembre 2012

• #30

Re : un seul code pour 14 textbox

Bonsoir.
Je confirme.
Ce composant ne gère pas cet ensemble d'événements
Alors celle là je ne l'avais jamais vue !
J'en reviens à supposer que les problèmes de focus sont trop intimement liés à des informations propres au userform pour qu'on puisse les utiliser dans un module de classe.
Cordialement.

 

Vote positif 0 Vote négatif