Somme automatique en VBA
Bonjour, je crée un échéancier excel en VBA et je souhaite qu'une de mes texbox calcule la somme automatiquement de mes 12 mois et ce sur chaque ligne que je...forum.excel-pratique.com
Il faudrait commencer dire laquelle de tes TextBox, vu qu'il y en a 14 dans ton UserForm...je souhaite qu'une de mes texbox fasse la somme automatiquement de mes 12 mois
Pourquoi c'est interdit de poser les questions sur differents forum ?Bonjour,
Cross-posting non ? :
A manger à tous les râteliers on finit par ne plus être servi.
Tu ne te rappelles plus de ce que dit la charte du forum à ce sujet ?Pourquoi c'est interdit de poser les questions sur differents forum ?
Oui la ligne correspond à une annéeBonjour,
Il faudrait commencer dire laquelle de tes TextBox, vu qu'il y en a 14 dans ton UserForm...
Et ensuite expliquer quelle ligne doit être utilisée.
Ceci dit, les TextBox semblent correspondre à un mois, donc je ne vois pas bien l'intérêt d'y inscrire la somme d'une ligne vu qu'une ligne semble plutôt être une année...
Oui je souhaite juste que le montant annuel se mette à jour tout seulBonjour,
Il faudrait commencer dire laquelle de tes TextBox, vu qu'il y en a 14 dans ton UserForm...
Et ensuite expliquer quelle ligne doit être utilisée.
Ceci dit, les TextBox semblent correspondre à un mois, donc je ne vois pas bien l'intérêt d'y inscrire la somme d'une ligne vu qu'une ligne semble plutôt être une année...
Et bien ce soir c'est ma fête.....Ok, mais on ne sait toujours pas quelle TextBox doit contenir la somme de quelle ligne.
Et vu d'ici, il semble toujours aussi absurde de faire la somme d'une ligne (qui représente une année) dans une TextBox qui représente un mois...
Sans parler de l'intérêt d'utiliser une TextBox pour inscrire le résultat d'un calcul.
Option Explicit
Private Sub CommandButton2_Click()
Dim lig&, i&, x As ListObject, aux, y As ListRow
Application.ScreenUpdating = True
If Trim(TextBox13) = "" Then MsgBox "Type de dépense absent => Échec!", vbCritical: Exit Sub
For i = 1 To 12: aux = aux & Trim(Controls("textbox" & i)): Next
If aux = "" Then MsgBox "Aucune valeur mensuelle => Échec!", vbCritical: Exit Sub
With Range("a1").ListObject
.ListRows.Add
Set y = .ListRows(.ListRows.Count)
With y
.Range(1, 1) = TextBox13
.Range(1, 2) = Val(Replace(TextBox14, ",", "."))
For i = 1 To 12: .Range(1, i + 2) = Val(Replace(Controls("textbox" & i), ",", ".")): Next
End With
End With
For i = 1 To 14: Controls("textbox" & i) = "": Next
End Sub
Sub Somme()
Dim i&, x
For i = 1 To 12: x = x + Val(Replace(Controls("textbox" & i), ",", ".")): Next
TextBox14 = x
End Sub
Private Sub TextBox1_Change(): Somme: End Sub
Private Sub TextBox2_Change(): Somme: End Sub
Private Sub TextBox3_Change(): Somme: End Sub
Private Sub TextBox4_Change(): Somme: End Sub
Private Sub TextBox5_Change(): Somme: End Sub
Private Sub TextBox6_Change(): Somme: End Sub
Private Sub TextBox7_Change(): Somme: End Sub
Private Sub TextBox8_Change(): Somme: End Sub
Private Sub TextBox9_Change(): Somme: End Sub
Private Sub TextBox10_Change(): Somme: End Sub
Private Sub TextBox11_Change(): Somme: End Sub
Private Sub TextBox12_Change(): Somme: End Sub
La Charte¸ un jour sans pluie à dit:2.1 – Un outil de recherche sur le forum permet de voir si la question a déjà été posée.
Ne pas hésiter à l’utiliser.
On peut poser mille fois mille questions, non, on peut poser une fois mille questions, mais on ne peut pas poser mille fois mille questions.
Non, on peut poser une fois mille questions mais on peut pas poser mille fois une question.
9 mars 1994 : j'ai bien peur de ne pas pouvoir citer la phrase exacte .Pour paraphraser Émile Gravier