Code VBA TextBox correct, code VBA pour 2 TextBox ?

[marcelio]

Bonjour à tous,
J’utilise le code suivant et celui-ci fonctionne correctement.
Ce code me permet de récupéré un chiffre qui est dans la cellule DI50 et de l’inséré dans la TextBox 53 et ensuite de l’additionner avec les résultats que j’ajoute dans les TextBoxs suivantes : TextBox21, 17, 47, 22, 18, 48, 33, 37, 49.

Private Sub TextBox21_Change()
Dim a, i, s
a = Array(TextBox21, TextBox17, TextBox47, TextBox22, TextBox18, TextBox48, TextBox33, TextBox37, TextBox49)
With Feuil1.[DI50] 'CodeName de la feuille
For i = 1 To 9
If IsNumeric(.Cells(i)) Then s = s + .Cells(i) + Val(Replace(a(i - 1), ",", "."))
Next
End With
TextBox53 = s
End Sub


Mon problème c’est qu’il faut que j’ajoute un autre TextBox le 55 avec sur ma feuille la même cellule DI50,
Mais elle doit être additionné seulement avec les TextBox21, 17, 47, 22, 18, 48.
J’ai fait plusieurs essais mais à chaque fois cela bug.
Merci d’avance de l’aide que vous pourrez m’apporter.

Marcelio

 

[mutzik]

bonjour

un petit bout de ton fichier, et il me semble qu'il doit y avoir plus simple pour y arriver

 

[marcelio]

Bonjour Bertrand,
merci de ton aide voila un bout de mon fichier.
Marcelio

 

[Paf]

bonjour à tous,

S'il y a une action pour la textbox53 et une autre pour la textbox55, il serait peut-être plus simple de déclencher deux codes différents (1 par Textbox) qui seraient lancés par un double clic dans une ou l'autre Textbox

Private Sub TextBox53_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
a = Array(TextBox21, TextBox17, TextBox47, TextBox22, TextBox18, TextBox48, TextBox33, TextBox37, TextBox49)
'Le code 
End Sub

Private Sub TextBox55_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
a = Array(TextBox21, TextBox17, TextBox47, TextBox22, TextBox18, TextBox48)
'le code
End Sub

A+

 

[marcelio]

Bonjour le Forum et Paf,
Désolé pour la réponse tardive.
Merci Paf pour le conseil et les codes, cela fonctionne très bien.
Bonne fin d'après midi à toi et au Forum
Marcelio