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