Discussion :

[Hassane31]

Bonsoir les amis au sujet de la discussion :

http://www.developpez.net/forums/d14...-d-formulaire/


Enfin j'ai pu modifier ce formulaire afin qu'il soit adapter à mes besoins.

Néanmoins, j'ai une colonne qui à comme valeur un nombres, et je voulais intégrer une autre fonction qui additionne le total, étant donnée que la cellule est sous forme de texte je ne peu, malheureusement, pas additionner, Y a-t-il une possibilité de déclarer cette colonne de manière a ce que la saisie soit directement considérer comme un nombre?

Merci pour votre support.

[Hassane31]

RE ;

Bon je me suis un peu cassé la tête et j'ai pu insérer un bouton qui exécute la MACRO suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Calcul_des_Totaux()
 
Range("F5:G5").Select
    Selection.NumberFormat = "0,00"
 
FinLigne = ActiveSheet.UsedRange.Rows.Count
 
Range("I6").Value = Application.WorksheetFunction.Sum(Range("E2:E" & FinLigne))
Range("J6").Value = Application.WorksheetFunction.Sum(Range("F2:F" & FinLigne))
 
End Sub

Sa marche pas, le résultat est différent du réel, merci de bien vouloir maider.

PS : Les deux colonnes E & F contiennent des nombres et leurs sommes est affectée à deux cases distincte

[Hassane31]

salut;

G pu trouver un truc simple pour modifier le type de la valeur de ma cellule, en la multipiliant par 1, comme le montre le code :

Code :

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

1
2
 .Cells(RecordNumber, 5) = Me.txtMontant * 1
 .Cells(RecordNumber, 6) = Me.txtRemise * 1

Pou la somme j'ai juste inclu une formule de somme avec, comme limite, une cellule eloigné (E500 pour mon exemple)

Slt

[Philippe Tulliez]

Bonjour,
Pour convertir une chaîne de caractères en valeur numérique, voir donc du côté des fonctions de conversion telles que CByte, CCur, CDbl, CDec, CInt, CLng, CSng et pour convertir un nombre en chaîne de caractères c'est CStr.
Exemple

Code :

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

1
2
3
4
 Dim txt As String, val As Double
 txt = "100"
 val = CDbl(txt)
 MsgBox val

[Igloobel]

Bonjour,

juste histoire d'ajouter mon grain de sel, il y a aussi Val qui est interessante dans certain cas :

extrait de l'aide ligne :
Val, fonction

Renvoie le nombre contenu dans une chaîne de caractère sous la forme d'une valeur numérique d'un type approprié.

Syntaxe
Val(string)

L'argument string peut être n'importe quelle expression de chaîne.

Remarques
La fonction Val arrête la lecture de la chaîne au premier caractère ne faisant apparemment pas partie d'un nombre. Les symboles et caractères fréquemment associés aux valeurs numériques, comme le signe $ et les virgules ne sont pas reconnus. En revanche, la fonction reconnaît les préfixes &O (pour octal) et &H (pour hexadécimal). Les espaces, les tabulations et les caractères de saut de ligne ne sont pas pris en compte dans l'argument.

Dans l'exemple suivant, la fonction renvoie la valeur 161517 :
Val(" 1615 17e siècle")

Dans l'exemple ci-dessous, la fonction Val renvoie la valeur décimale -1 correspondant à la valeur hexadécimale indiquée :
Val("&HFFFF")

Note : La fonction Val ne reconnaît que le point comme séparateur décimal (.). Lors de l'utilisation d'autres séparateurs décimaux (applications internationales, par exemple), convertissez la chaîne en nombre à l'aide de la fonction CDbl.

A+