[XL-2007] VBA: Formater une variable numérique

1 pièce(s) jointe(s)

VBA: Formater une variable numérique

Bonjour,

Je déclare dans mon code, des variables en entier pour ensuite les faire apparaitre en commentaire de cellule
Pièce jointe 202570

Mais comme ces variables sont le résultat de calcul, j'obtiens un chiffre avec plusieurs décimales après la virgule et je souhaiterai en faire apparaître aucune.

J'ai essayé ça mais ca ne fonctionne pas :(
Code:

1 2 3 4 5 Inv.Sheets(1).Cells(cpt1, cpt2 + 1).AddComment Inv.Sheets(1).Cells(cpt1, cpt2 + 1).Comment.Visible = False Inv.Sheets(1).Cells(cpt1, cpt2 + 1).Comment.Text Text:="" & Chr(10) & ptr1 & " uvc à risque 240j " & ptr2 & " uvc à risque 190j " & ptr3 & " uvc à risque 90" Inv.Sheets(1).Cells(cpt1, cpt2 + 1).Comment.Select Selection.NumberFormat = "0"
Pourriez-vous m'aider svp.

Merci d'avance.

bonjour,
j'ai rien compris

Code:

Inv.Sheets(1).Cells(cpt1, cpt2 + 1).Comment.Text Text:="" & Chr(10) & cint( ptr1 )& " uvc à risque 240j " & cint( ptr2) & " uvc à risque 190j " & cint(ptr3) & " uvc à risque 90"

C'est un commentaire qui affiche 3 résultats différents selon le type de risque (en nombre de jour)

tu comprendra peut-etre mieux comme ca :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
Dim ptr, prt1, ptr2, ptr3 As Double
    Dim Inv As Workbook
    Dim NvlDte As Date 'date
    Dim Dtefvie As Date '
    Dim JrFinStk As Double ' nbre de jour pour épuiser le stock
    Dim stk As Double 'nbre de produit en stock
    Dim VLM As Double 'nbre de produit vendus
 
 Do
        stk = Inv.Sheets(1).Cells(cpt1, cpt2 + 1).Value
        JrFinStk = (stk * 30) / VLM 'nombre de jour de stock pour cette palette
        NvlDte = NvlDte + JrFinStk 'date à laquelle le stock s'épuisera
        ptr1 = 0
        ptr2 = 0
        ptr3 = 0
        'ptr1.NumberFormat = "0"
 
       Dtefvie = CDate(Format(Inv.Sheets(1).Cells(cpt1, cpt2).Value, "0000-00") & "-01")
 
       If Dtefvie - 240 <= NvlDte Then
          Inv.Sheets(1).Range("W" & cpt1).Value = "Risque Casse"
          ptr1 = (NvlDte - (Dtefvie - 240)) * (VLM / 30)
          Inv.Sheets(1).Cells(cpt1, cpt2 + 1).AddComment
          Inv.Sheets(1).Cells(cpt1, cpt2 + 1).Comment.Visible = False
          Inv.Sheets(1).Cells(cpt1, cpt2 + 1).Comment.Text Text:="" & Chr(10) & ptr1 & " uvc à risque 240j   " & ptr2 & " uvc à risque 190j   " & ptr3 & " uvc à risque 90"
          Inv.Sheets(1).Cells(cpt1, cpt2 + 1).Comment.Select
          Selection.NumberFormat = "0"
         Else: If Inv.Sheets(1).Range("W" & cpt1).Value = "" Then Inv.Sheets(1).Range("W" & cpt1).Value = "OK"
       End If
 
 
       If Dtefvie - 180 <= NvlDte Then
          Inv.Sheets(1).Range("X" & cpt1).Value = "Risque Casse"
          ptr2 = (NvlDte - (Dtefvie - 180)) * (VLM / 30)
          'Inv.Sheets(1).Cells(cpt1, cpt2 + 1).AddComment
         ' Inv.Sheets(1).Cells(cpt1, cpt2 + 1).Comment.Visible = False
          Inv.Sheets(1).Cells(cpt1, cpt2 + 1).Comment.Text Text:="" & Chr(10) & ptr1 & " uvc à risque 240j   " & ptr2 & " uvc à risque 190j   " & ptr3 & " uvc à risque 90"
          Inv.Sheets(1).Cells(cpt1, cpt2 + 1).Comment.Select
          Selection.NumberFormat = "0"
         Else: If Inv.Sheets(1).Range("X" & cpt1).Value = "" Then Inv.Sheets(1).Range("X" & cpt1).Value = "OK"
       End If
 
 
       If Dtefvie - 90 <= NvlDte Then
           Inv.Sheets(1).Range("Y" & cpt1).Value = "Risque Casse"
           ptr3 = (NvlDte - (Dtefvie - 90)) * (VLM / 30)
         ' Inv.Sheets(1).Cells(cpt1, cpt2 + 1).AddComment
         ' Inv.Sheets(1).Cells(cpt1, cpt2 + 1).Comment.Visible = False
           Inv.Sheets(1).Cells(cpt1, cpt2 + 1).Comment.Text Text:="" & Chr(10) & ptr1 & " uvc à risque 240j   " & ptr2 & " uvc à risque 190j   " & ptr3 & " uvc à risque 90"
           Inv.Sheets(1).Cells(cpt1, cpt2 + 1).Comment.Select
          Selection.NumberFormat = "0"
         Else: If Inv.Sheets(1).Range("Y" & cpt1).Value = "" Then Inv.Sheets(1).Range("Y" & cpt1).Value = "OK"
       End If
 
       cpt2 = cpt2 + 2
 
    Loop While Inv.Sheets(1).Cells(cpt1, cpt2) <> ""

oui ok, m'a réponse plus haut est donc valable!

Magnifique ! Merci :)