somme de nombres insérés par un textbox

[stefan373]

Bonjour je sèche sur un problème de somme.
Voila, j ai un userform avec un textbox pour écrire un montant qui ce place dans une feuille colonne C, sur cette même feuille je voudrais faire la somme de ces montant mais cela ne fonctionne pas avec la formule =somme(c1:c100), le résultat affiche 0.
Merci.

 

[sousou]

Re : somme de nombres insérés par un textbox

Bonjour stefan93

Attention le textbox renvoi une valeur string donc pas de nombre
utilise la fonction val(textbox)

 

[ROGER2327]

Re : somme de nombres insérés par un textbox

Bonjour stefan373

Difficile de comprendre sans rien voir. Une explication possible : les données dans la colonne C sont peut-être au format Texte...​

ROGER2327
#3410

16 Floréal An CCXVIII
2010-W18-3T14:47:41Z

______________
Bonjour sousou. D'accord...

 

[Minick]

Re : somme de nombres insérés par un textbox

Salut,

Quand tu le transfere dans ta feuille transforme le au passage (sinon c'est du texte)

Range("Cxx").value=CDbl(TextBox.value)

Evidemment cela suppose que TextBox.Value soit un nombre

 

[stefan373]

Re : somme de nombres insérés par un textbox

Voici le code pour le placer dans la feuille

Private Sub CommandButton1_Click()
Sheets("depenses").Activate
With Sheets("depenses")
ActiveSheet.Unprotect
.Range("A65536").End(xlUp).Offset(1, 0) = UserForm4.ComboBox1
.Range("B65536").End(xlUp).Offset(1, 0) = UserForm4.TextBox5
.Range("C65536").End(xlUp).Offset(1, 0) = UserForm4.TextBox3
End With

et celui ci pour transformer en format monetaire


Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'format monetaire
With Me.TextBox5
If IsNumeric(.Text) Then
TextBox5.Text = Format(TextBox5.Text, "# ###.00 ")
End If
End With
End Sub

 

[stefan373]

Re : somme de nombres insérés par un textbox

Bonjour je confirme que ma colonne B et pas C, est au format nombre.
Voir mon code.
Merci.

 

[Minick]

Re : somme de nombres insérés par un textbox

Salut,

Et je confirme nos reponses precedentes.
Il faut transformer les valeurs lors de l'ajout a la feuille:
.Range("B65536").End(xlUp).Offset(1, 0) = CDbl(UserForm4.TextBox5)
.Range("C65536").End(xlUp).Offset(1, 0) = Val(UserForm4.TextBox3)

Avec CDbl ou Val...

 

[stefan373]

Re : somme de nombres insérés par un textbox

ok cela fonctionne un grand merci.
Mais comme je débute et que j adapte des codes trouvés sur le net je ne connais rien au VB.
Et encore merci et probablement à plus tard si je sèche encore.

 

[stefan373]

Re : somme de nombres insérés par un textbox

Je viens de me rendre compte que mon textbox3 qui est une date, affiche sur ma feuille année 1900.
Cela est du à la fonction Val, mais comment y remédier?
J aurrai besoin de cette fontion plus tard pour trier en fonction de la date et cela ne sera pas possible si la date est en format texte.
Si j ai bien compris les post précédent.
Merci

 

[stefan373]

Re : somme de nombres insérés par un textbox

voici le code pour le format date textbox3

Private Sub TextBox3_Change()
Dim Exemple As String
Dim ExDate As String
Exemple = TextBox3.Value
If ((Len(Exemple) > 5) And (Len(Exemple) < 10)) Then
Application.EnableEvents = False
ExDate = Mid(Exemple, 1, 2) & "-" & Mid(Exemple, 3, 2) & "-20" & Mid(Exemple, 5)
TextBox3.Value = ExDate
Application.EnableEvents = True
End If
End Sub

 

[stefan373]

Re : somme de nombres insérés par un textbox

Ne sachant pas si je devais faire un nouveau sujet, j ai continué sur celui en cour.
Merci

 

[stefan373]

Re : somme de nombres insérés par un textbox

Bonsoir après des heures de casse tête j ai trouvé la soluce.
Avant

.Range("C65536").End(xlUp).Offset(1, 0) = UserForm4.TextBox3

Après et grace a un post de PascalXLD

.Range("C65536" & num).End(xlUp).Offset(1, 0) = CDate(UserForm4.TextBox3)

Cela servira peut être à d autre
Merci à tous