Discussion :

[Benwad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Qwazerty]

Bonjour et bienvenu

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

UnString = Format(MonDouble, "0.00")

A++
Qwaz

[Benwad]

merci Qwaz

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[Qwazerty]

Hello

Et comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Benwad]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

voici le message d'erreur que j'obtiens

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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