XL 2013 Erreur Code VBA

Dranreb

XLDnaute Barbatruc

• 6 Octobre 2018

• #2

Bonjour.
Ce qui ne va pas c'est qu'il y a un membre de méthode ou de données spécifié qui n'existe pas.
Par exemple il n'existerait aucun contrôle nommé TboTotal dans l'objet associé au module.

 

Vote positif 0 Vote négatif

jeanba

XLDnaute Occasionnel

• 6 Octobre 2018

• #3

Salut Dranreb,

Toujours fidèle au poste mon vieux!

Regarde les zones qu'il surligne..



Et à tout hazard, j'envoie le code de l'usf_initializ

VB:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then Cancel = 1
End Sub
Private Sub UserForm_Initialize()
Dim n As Long
TextBox1.Value = [proprio_intellect].Value
    For n = 100 To 112
        Set txtB(n).txtB = Controls("TextBox" & n)
    Next n
    For i = 113 To 125
        Me.Controls("TextBox" & i).Enabled = True
    Next
End Sub

 

Vote positif 0 Vote négatif

jeanba

XLDnaute Occasionnel

• 6 Octobre 2018

• #4

Dranreb, tu vois quelque chose qui pourrait m'aider à avancer?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Octobre 2018

• #5

Non, à part joindre le classeur.
À mon avis si l'objet associé au module n'a pas de collection Controls c'est qu'il ne s'agit pas d'un UserForm.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Octobre 2018

• #6

De fait la 1ère instruction Public WithEvents txtB as Msforms.TextBox du module incriminé ainsi que la Set txtB(n).txtB = Controls("TextBox" & n) de l'UserForm_Initialize m’incitent fortement à penser que l'objet qui lui est associé serait plutôt un exemplaire d'objet d'un type défini par un module de classe du même nom, et qui ne possède donc pas de collection Controls.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Octobre 2018

• #7

Voyez si vous pouvez vous inspirer de cette structure.

 

Pièces jointes

• Temp.xlsm

  24.5 KB · Affichages: 28

Vote positif 0 Vote négatif

jeanba

XLDnaute Occasionnel

• 7 Octobre 2018

• #8

Humm humm
Ton petit programme est super, mais trop complexe pour moi le debutant..
J'envoie ci-joint mon projet..

Merci par avance

 

Pièces jointes

• Calculs de Textbox dans Frame.xlsm

  31.3 KB · Affichages: 30

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Octobre 2018

• #9

Tant pis.
Pourtant la programmation de l'UserForm était très courte.
Qu'est ce que tu ne comprends pas ?
Je le joins avec des commentaires explicatifs dans l'objet CollectionTBxNum

 

Pièces jointes

• Temp.xlsm

  28.3 KB · Affichages: 31

Vote positif 0 Vote négatif

jeanba

XLDnaute Occasionnel

• 7 Octobre 2018

• #10

Bonjour Dranreb,

Je te remercie.
J'ai réussi à intégrer ton code et ça marche super bien.

Cependant (et c'est pas de ta faute), ce n'est pas seulement ce que je voulais que fasse le programme.
Il s'agissait à la base de faire une sorte de "SOMMEPROD" des valeurs de mes textbox de USF18_1 à 13 (1ere matrice) et USF18_14 à 26 (2e matrice).
Et, en intégrant ton code, il disparaît les calculs et la somme totale...(voir ci-joint). Et j'avoue que je suis vite déstabilisé d'un code sort des sentiers battus..

Mais, je me souviens d'avoir soumis un tel souci au forum il y a de cela quelques temps. Je vais fouiller et certainement trouver quelque chose qui colle..

Merci encore et bon dimanche!

 

Pièces jointes

• Calculs de Textbox dans Frame.xlsm

  33.3 KB · Affichages: 29

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Octobre 2018

• #11

Bonjour.
Comme ça alors si j'ai bien compris :

VB:

Option Explicit
Private WithEvents ClnTBxNum As CollectionTBxNum
Private Sub UserForm_Initialize()
   Dim N As Long
   Set ClnTBxNum = New CollectionTBxNum
   For N = 1 To 13
      ClnTBxNum.Add Me("USF18_TextBox" & N): Next N
   TboTotal18.Text = "0"
   End Sub
Private Sub ClnTBxNum_Change(ByVal TBx As MSForms.TextBox)
   Dim N As Long, Valeur As Double, Somme As Double
   For N = 1 To 13
      Valeur = ClnTBxNum.Value(N) * Choose(N, 10000, 5000, 2000, 1000, 500, 500, 100, 50, 25, 10, 5, 2, 1)
      Me("USF18_TextBox" & N + 13).Text = Format(Valeur, "### ### ##0")
      Somme = Somme + Valeur: Next N
   TboTotal18.Text = Format(Somme, "### ### ##0")
   End Sub

Mais pourquoi avoir mis des TextBox plutôt que des Label pour des valeurs non modifiables par l'utilisateur ?

 

Vote positif 0 Vote négatif

jeanba

XLDnaute Occasionnel

• 7 Octobre 2018

• #12

Trop fort ce Dranreb!
Excellent!
Merci

Dranreb à dit:

Mais pourquoi avoir mis des TextBox plutôt que des Label pour des valeurs non modifiables par l'utilisateur ?

Cliquez pour agrandir...

Bonne question! Réponse: Erreur de débutant, voilà tout!
Maintenant je le sais..
Thanks

Je joins un fichier de même nature de souci (code de débutant lourd et avec sans doute des erreurs d'amateur.. Voir ci-joint..)

Toujours merci par avance..

 

Pièces jointes

• Formulaire avec tri.zip

  827.8 KB · Affichages: 31

Vote positif 0 Vote négatif

jeanba

XLDnaute Occasionnel

• 7 Octobre 2018

• #13

Quelqu'un a une idée d'où vient mon problème dans ces 2 codes joints sur les USF ci-dessus?
Merci beaucoup par avance!

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Octobre 2018

• #14

Il manque un Next i et une procédure TrierTiers n'existe pas.

 

Vote positif 0 Vote négatif

jeanba

XLDnaute Occasionnel

• 7 Octobre 2018

• #15

Oui, j'ai corrigé cela dans la version après envoi.
Mais, à part cela, le temps d'exécution est trop long et ça fait pas toutes les actions que je souhaite voir faire les boutons qui figurent sur les 2 usf...

 

Vote positif 0 Vote négatif