Récupérer Valeur négative

Bonsoir à tous,
je démarre dans vba, et je rencontre quelques difficultés :
je n'arrive pas à récupérer le montant quand celui a une valeur décimale négative. Vous trouverez ci-après une partie de mon code. Peut-être est ce dû au contrôle que je fais dans TxtMontant_Change(), où je veux saisir uniquement des chiffres et le "." pour les décimales

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

If FrmEncoder.CmbTypes = "Dépenses" Then   ActiveCell.Offset(0, 1).Value = FrmEncoder.CmbTypes.Value ActiveCell.Offset(0, 2).Value = FrmEncoder.CmbCharges.Value ActiveCell.Offset(0, 3).Value = FrmEncoder.CmbIntitules ActiveCell.Offset(0, 4).Value = FrmEncoder.CmbDetails.Value 'ActiveCell.Offset(0, 5).Value = val(FrmEncoder.TxtMontant) ActiveCell.Offset(0, 5).Value = -FrmEncoder.TxtMontant.Value ActiveCell.Offset(0, 5).NumberFormat = "#,##0.00 €" ActiveCell.Offset(0, 6).Value = FrmEncoder.CmbEtat.Value ActiveSheet.Columns.AutoFit Else   ActiveCell.Offset(0, 1).Value = FrmEncoder.CmbTypes.Value ActiveCell.Offset(0, 2).Value = "" ActiveCell.Offset(0, 3).Value = FrmEncoder.CmbIntitules ActiveCell.Offset(0, 4).Value = FrmEncoder.CmbDetails.Value 'ActiveCell.Offset(0, 5).Value = val(FrmEncoder.TxtMontant) ActiveCell.Offset(0, 5).Value = FrmEncoder.TxtMontant.Value ActiveCell.Offset(0, 5).NumberFormat = "#,##0.00 €" ActiveCell.Offset(0, 6).Value = FrmEncoder.CmbEtat.Value ActiveSheet.Columns.AutoFit End If

---

Code:

---

1 2 3 4 5 6 7

Private Sub TxtMontant_Change() On Error Resume Next If Not IsNumeric(Right(TxtMontant, 1)) And Right(TxtMontant, 1) <> "." Then TxtMontant = Left(TxtMontant, Len(TxtMontant) - 1) End If End If End Sub

---

Ensuite, je souhaite calculer la somme de la colonne "montant" dont voici mon code :

Code:

---

1 2 3 4 5 6 7

colonne = 0 colonne = ActiveCell.SpecialCells(xlLastCell).Row   For i = 8 To colonne résultat = résultat + Range("f" & i).Value Next MsgBox résultat

---

Bonjour et bienvenu

Alors pour la valeur negative, je pense que c'est pour cette ligne

Code:

---

ActiveCell.Offset(0, 5).Value = -FrmEncoder.TxtMontant.Value

---

Il faut faut transtypé la valeur avant un peu comme dans la ligne en commentaire juste au dessus

Code:

---

ActiveCell.Offset(0, 5).Value = - Cint(FrmEncoder.TxtMontant.Value)

---

Pour la somme des valeur je pense que tu devrais regarder WorkSheetFunction plus partticulierement sa function associée Sum, comme cela

Code:

---

1 2	Dim MonDouble As Double MonDouble = Application.WorksheetFunction.Sum(Range("A1:A6"))

---

Je n'est pas bien compris ce que tu veux faite avec ta 2eme partie de code, mais si c'est pour formatée le chiffre avec un nombre de decimal particulier, tu devrais regarder la fonction Format ;)
Petit exemple

Code:

---

UnString = Format(MonDouble, "0.00")

---

A++
Qwaz

merci Qwaz

je vais essayer ta proposition.
En fait pour la valeur négative, j'avais également essayer ceci :

Code:

---

ActiveCell.Offset(0, 5).Value = - Ccur(FrmEncoder.TxtMontant.Value

---

Mais ca ne fonctionnait pas.

Pour faire la somme de la colonne, je souhaitais faire une boucle comme suit :

Code:

---

1 2 3 4 5 6

colonne = 0 colonne = ActiveCell.SpecialCells(xlLastCell).Row   For i = 8 To colonne résultat = résultat + Range("f" & i).Value Next

---

Mais ca ne fonctionne pas comme je le souhaite, j'ai des difficultés pour trouver la dernière ligne utilisée et la mettre dans une variable pour l'utiliser ensuite dans ma boucle.
Pour ton exemple, je pense qu'il est également nécessaire de connaitre la dernière ligne?
A+:D

Hello

Et comme ca

Code:

---

MonDouble = Application.WorksheetFunction.Sum(Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column).End(xlUp)))

---

pour l'autre probleme c'est bon ? ou pas? si c'est pas bon montre moi ton code.

A++
Qwaz

salut je rencontre toujours le meme probleme avec le code ci apres

Code:

---

ActiveCell.Offset(0, 5).Value = - Ccur(FrmEncoder.TxtMontant.Value

---

voici le message d'erreur que j'obtiens

Citation:

---

erreur d'execution, 13 , incompatibilite de type

---

de plus, j'ai essaye d'utiliser la formule pour faire la somme de ma colonne "g", mais j'obtiens toujours 0 , voici le code :

Code:

---

MonDouble = Application.WorksheetFunction.Sum(Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column).End(xlUp)))

---

Peut-on y arriver en utilisant une boucle, comme je souhaitais le faire au départ?
a l'avance merci
Benwad

Code:

---

ActiveCell.Offset(0, 5).Value = - Ccur(val(FrmEncoder.TxtMontant.Value))

---

(Ccur ne pouvant traiter une chaine de caractères non reconnue comme numérique..., ce qui impose la virgule comme séparateur et non le point sur une machine utilisant la virgule comme séparateur décimal (ce qui est vraisemblablement ton cas). Il faut donc utiliser la valeur de la chaine et non la chaine elle-même, si l'on utilise une chaîne comportant le point comme séparateur décimal..)

Pour s'en convaincre :

Code:

---

1 2 3

MsgBox -CCur("1.1") 'ne passera jamais MsgBox -CCur("1,1") ' passera sans problème MsgBox -CCur(val("1.1")) ' passera également sans problème

---

Tout celà est expliqué dans l'aide en ligne ...;)

Ce que je fais personnellement pour palier à tous les cas de figure et m'assurer de ce que mon appli tournera toujours, quel que soit le séparateur en vigueur sur la machine finale :

1) remplacement systématique de la virgule éventuellement présente par un point
puis
2) traitement avec Ccur et Val ====>> toujours vrai ...;)

merci à toi ucfoutu, cela fonctionne très bien
Peut etre as tu une solution pour mon deuxième probleme . Je souhaite faire la somme de la colonne "montant". Le calcul demarre de la cellule "F8" sur "n" lignes. Voici le code que j'ai commencé à realiser:

Code:

---

1 2 3 4 5 6

colonne = 0 colonne = ActiveCell.SpecialCells(xlLastCell).Row   For i = 8 To colonne résultat = résultat + Range("f" & i).Value Next

---

En fait je souhaite faire ce calcul par l'intermedaire d'une boucle. Penses tu que ce soit possible
A l'avance merci (Merci egalement à Qwaz pour ton aide)

Désolé, ami;

Mai j'ai des principes, parmi lesquels : un problème = 1 discussion et pas 2 problèmes = 1 discussion.

Autrement, plus personne ne s'y retrouve et les solutions sont perdues ...;)

Si ton 1er problème est résolu ===>> tag RESOLU ===>> 2ème problème ? (encore que, ma foi ... tu as la solution à ce second dans le 1er ...;) ) ===>> autre discussion...

Et nous continuerons à être 2 forumeurs respectueux des règles fondamentales...

Ok, je suis désolé tu m'excuseras c'est une première pour moi sur ce forum
je vais donc entammé une nouvelle discussin. Bien evidemment le premier probleme a ete resolu

A+
Benwad:)