Bonjour
Voici une macro qui a un problème
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
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 ?