VBA module de Classe Change()

Bens7 · 10 Juillet 2013

Bonjour a tous !!
Voila j;ai un code assez repetitif on m'a dit que c'etait possible de racourcir avec un Module de Classe (en chinois c'est pareil pour moi ... llllol) si vous avez une idee ici bas le code :

Code:

'MODIF LISTE DE SOUTIEN

Private Sub TextBox7_Change()
If ComboBox2 <> "" Then
SURFACEAPRIX
RECALCUL
End If
End Sub

'MODIF CARTE DE VISITE
Private Sub TextBox8_Change()
If ComboBox2 <> "" Then
SURFACEAPRIX
RECALCUL
End If
End Sub

'MODIF 1/8 EME
Private Sub TextBox9_Change()
If ComboBox2 <> "" Then
SURFACEAPRIX
RECALCUL
End If
End Sub

'MODIF 1/4
Private Sub TextBox10_Change()
If ComboBox2 <> "" Then
SURFACEAPRIX
RECALCUL
End If
End Sub

'MODIF 1/2
Private Sub TextBox11_Change()
If ComboBox2 <> "" Then
SURFACEAPRIX
RECALCUL
End If
End Sub

'MODIF 1
Private Sub TextBox12_Change()
If ComboBox2 <> "" Then
SURFACEAPRIX
RECALCUL
End If
End Sub

'MODIF SOLDE
Private Sub TextBox13_Change()
If ComboBox2 <> "" Then
SURFACEAPRIX
RECALCUL
End If
End Sub

'MODIF CHOIX
Private Sub TextBox14_Change()
If ComboBox2 <> "" Then
SURFACEAPRIX
RECALCUL
End If
End Sub

Bens7 · 11 Juillet 2013

Re : VBA module de Classe Change()

Bon comme j'ai rien compris alors je te remet un nouveaux fichier peut etre je vas mieux comprendre

Dranreb · 11 Juillet 2013

Re : VBA module de Classe Change()

Comme ça ça marche

Mais ça marche aussi avec une collection:

VB:

Option Explicit
Dim Coll As New Collection

Private Sub UserForm_Initialize()
Dim N As Long
For N = 1 To 3: AjoutTbx N, Me.Controls("TextBox" & N), Me.Controls("TextBox" & N + 3): Next N
End Sub
Private Sub AjoutTbx(ByVal N As Long, ByVal Tbx1 As MSForms.TextBox, ByVal Tbx2 As MSForms.TextBox)
Dim Mbr As New TextBoxMembre
Set Mbr.Parent = Me: Set Mbr.Tbx1 = Tbx1: Set Mbr.Tbx2 = Tbx2
Coll.Add Mbr
End Sub

Public Sub TBM_Change(ByVal TBM As TextBoxMembre)
If Me.ComboBox2 <> "" Then TBM.Tbx2 = "ComboBox 2 Pas Vide"
End Sub

Il y avait juste Public Parent As MSForms.Userform qu'il n'aimait pas, sans doute parce qu'il n'arrive pas à introduire de liaison anticipée vu que tous les Userform ne possèdent pas de méthode TBM_Change. Alors allons y à regret pour une liaison tardive en mettant As Object.

Denis · 11 Juillet 2013

Re : VBA module de Classe Change()

Bonjour bens7, le fil et le forum
ci-joint ton classeur.
J'en ai profité pour ajouter les autres textbox (mouse_move).
Fait un test car je n'ai pas tout essayé !!
Bon courage et à +
Denis

Denis · 11 Juillet 2013

Re : VBA module de Classe Change()

Re à tous,
Ci-joint avec les CheckBox
à+
Denis

Bens7 · 11 Juillet 2013

Re : VBA module de Classe Change()

Tout d'abord merci a tous
je suis desole ca marche c'est sur mais je ne pourrais en aucun utiliser les 2 fichiers c'est tellement complique que je ne pourrais jamais reutiliser c'est Module ! Mais je les garde sous le coude quand meme
moi je parlais d'un truc qui passe de 30 lignes a 5 voir le post #16 peut etre plus simple pour moi

VBA module de Classe Change()

Bens7

XLDnaute Impliqué

Bens7

XLDnaute Impliqué

Pièces jointes

Dranreb

XLDnaute Barbatruc

Pièces jointes

Denis

Guest

Pièces jointes

Denis

Guest

Pièces jointes

Bens7

XLDnaute Impliqué

Discussions similaires

VBA module de Classe Change()

Bens7

XLDnaute Impliqué

Bens7

XLDnaute Impliqué

Pièces jointes

Dranreb

XLDnaute Barbatruc

Pièces jointes

Denis

Guest

Pièces jointes

Denis

Guest

Pièces jointes

Bens7

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency