Décimales sur une macro

Version imprimable

Bonjour
Voici une macro qui a un problème

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton1_Click()
 
Dim entiertemporaire1 As Long
Dim entiertemporaire2 As Long
Dim entiertemporaire3 As Long
Dim entiertemporaire4 As Long
 
Range("a3:h3").Select
 
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
entiertemporaire1 = CLng(100 * Worksheets("calcul").Range("k3").Value)
entiertemporaire2 = CLng(1000 * Worksheets("calcul").Range("j3").Value)
entiertemporaire3 = CLng(100 * Worksheets("calcul").Range("i3").Value)
entiertemporaire4 = CLng(100 * Worksheets("calcul").Range("l3").Value)
 
    UserForm1.Label6.Caption = "" & CDbl(entiertemporaire1) / 100 & " "
    UserForm1.Label8.Caption = "" & CDbl(entiertemporaire2) / 1000 & ""
    UserForm1.Label10.Caption = "" & CDbl(entiertemporaire3) / 100 & " "
    UserForm1.Label14.Caption = "" & CDbl(entiertemporaire4) / 100 & " "
 
End Sub

J'ai un paramètre que je rentre dans une textbox et qui influe sur les cellules i3 à l3.
La macro fonctionne a partir du moment ou ce paramètre est rentré avec ,00 deux chiffres apres la virgule. Lorsque je rentre 3 chiffres cad ,000 il se met en erreur (erreur 13 ou 9)
Pouvez vous m'aidez ?

14/02/2008, 16h32
patbou

bonjour,

les variables de type long sont des entiers !!!
declare tes variables de type variant ou currency
15/02/2008, 11h54
fmris

en déclarant les declarant en variant le probleme reste le meme
ca fonctione a partir du moment ou je rentre ds la text box 2 décimale par ex 15,32 mais ca se met en erreur quand je mets 15,321
15/02/2008, 12h52
ouskel'n'or

Alors déclare des Single ou des double. Regarde dans l'aide (F1) ce qui convient le mieux. ;)

Code:

entiertemporaire1 = Cdbl(100 * Worksheets("calcul").Range("k3").Value)

l'erreur ne provient pas de la.
j'ai testé le code suivant et c la meme chose

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub CommandButton1_Click()
'Dim entiertemporaire1 As Long
'Dim entiertemporaire2 As Long
'Dim entiertemporaire3 As Long
'Dim entiertemporaire4 As Long
 
Range("a3:h3").Select
 
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
'entiertemporaire1 = CLng(100 * Worksheets("calcul").Range("k3").Value)
'entiertemporaire2 = CLng(1000 * Worksheets("calcul").Range("j3").Value)
'entiertemporaire3 = CLng(100 * Worksheets("calcul").Range("i3").Value)
'entiertemporaire4 = CLng(100 * Worksheets("calcul").Range("l3").Value)
 
    'UserForm1.Label6.Caption = "" & CDbl(entiertemporaire1) / 100 & " "
    'UserForm1.Label8.Caption = "" & CDbl(entiertemporaire2) / 1000 & ""
    'UserForm1.Label10.Caption = "" & CDbl(entiertemporaire3) / 100 & " "
   ' UserForm1.Label14.Caption = "" & CDbl(entiertemporaire4) / 100 & " "
 
 
End Sub

l'erreur provient de la fonction replace.
je remarque que lorsque je met la cellule de la controlSource en texte ca marche ..... mais pas toujours j'aimerais comprendre pourquoi
merci pour votre aide

15/02/2008, 14h22
fmris

j'ai fait une nouvelle vérification
Il s'agit bien du fait de l'action de Replace qui crée le probleme.
En effet, lorsque je rentre dans la textbox 15,3568 il n'y a pa de pb (Replace n'agit pas)
cependant lorsque je rentre 15.3568 "Replace" agit et provoque le dysfonctionnement
J'aimerais comprendre pourquoi pour parer a ce probleme
merci
15/02/2008, 14h48
fmris
J'ai trouve
il faut remplacer la partie concernant le remplacement du "." par "," par le code suivant
Code:

1 2 3 4 dim a for a=1 to 7 Cells(3, a) = CDbl(Replace(Cells(3, a), ".", ",")) next a
bonne journée
15/02/2008, 14h51
ouskel'n'or

Replace agit sur une chaîne de caractères. Si tu l'utilises, tu récupères un string.
Je viens de voir ta dernière solution et en effet, c'est ce que j'allais te proposer.
Trop tard ! :lol: