Discussion :

[Liloo14]

Bonjour à tous,
J'ai beau chercher dans tous les sens je ne trouve pas de solution à mon problème.
J'ai un label dans lequel j'appele un valeur contenue dans une cellule d'une feuille de clacul.
Il s'agit du résultat d'une division donc pas un nombre entier, parfois un nombre à virgule.
J'aimerais faire en sorte que si un nombre est du style 1,666666666667 il ne s'affiche que 1,66 dans le label, soit 2 chiffre maxi après la virgule.
Quelqu'un aurait-il une idée ?

Merci par avance à ceux qui se pencheront sur ce poste.
Laurent

[Invité]

Voici un exemple qui correspond à ce que tu souhaites faire:

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
 
Private Sub Test()
Dim intNombre As Double
    intNombre = 1.666666666667
    Debug.Print (intNombre)
    Debug.Print (Format(intNombre, "0.00"))
End Sub

[Liloo14]

Merci à toi Vincent mais 1,66666667 était un exemple.
Il va de soit que le résultat d'une division peut être n'importe quoi. C'est le nombre de chiffres après la virgule que je veux limiter à 2.

Puis je ne comprend pas ce qui définit l'application à mon Label dans tout ça puisqu'il n'en est même pas question

[Invité]

Bien sur que c'est un exemple !

Il faut que tu utilises la propriété 'Format' lorsque la propriété '.Caption' du Label est renseignée. Si ton Label s'appelle 'lbl1' alors:

Code :

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

lbl1.Caption = Format(1.666666666667, "0.00")

Et le chiffre sera arrondi à deux chiffres après la virgule.

[Liloo14]

Tiens, voilà mon code.

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
25
26
27
28
29
30
31
Private Sub UserForm_Activate()
Dim i As Long
For i = 2 To 101
    Historique.Controls("Label" & 5 + i) = Sheets("Feuil3").Range("A" & -1 + i)
Next i
 
For i = 2 To 101
    Historique.Controls("Label" & 105 + i) = Sheets("Feuil3").Range("B" & -1 + i)
Next i
 
For i = 2 To 101
    Historique.Controls("Label" & 205 + i) = Sheets("Feuil3").Range("C" & -1 + i)
Next i
 
For i = 2 To 101
    Historique.Controls("Label" & 305 + i) = Sheets("Feuil3").Range("D" & -1 + i)
Next i
 
For i = 2 To 101
    If Historique.Controls("Label" & 5 + i) = "" Then
    Historique.Controls("Label" & 5 + i).Visible = False
    Historique.Controls("Label" & 105 + i).Visible = False
    Historique.Controls("Label" & 205 + i).Visible = False
    Historique.Controls("Label" & 305 + i).Visible = False
    Else
    End If
Next i
Label307.Caption = Format(1.666666666667, "0.00")
Label308.Caption = Format(1.666666666667, "0.00")
 
End Sub

A part 1,67 dans chacun des label concernés, je n'obtiens rien d'autre -))

code que j'ai modifié pour limiter les lignes de code :

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
25
26
27
28
29
30
Private Sub UserForm_Activate()
Dim i As Long
For i = 2 To 101
    Historique.Controls("Label" & 5 + i) = Sheets("Feuil3").Range("A" & -1 + i)
Next i

For i = 2 To 101
    Historique.Controls("Label" & 105 + i) = Sheets("Feuil3").Range("B" & -1 + i)
Next i

For i = 2 To 101
    Historique.Controls("Label" & 205 + i) = Sheets("Feuil3").Range("C" & -1 + i)
Next i

For i = 2 To 101
    Historique.Controls("Label" & 305 + i) = Sheets("Feuil3").Range("D" & -1 + i)
    Historique.Controls("Label" & 305 + i).Caption = Format(1.666666666667, "0.00")Next i

For i = 2 To 101
    If Historique.Controls("Label" & 5 + i) = "" Then
    Historique.Controls("Label" & 5 + i).Visible = False
    Historique.Controls("Label" & 105 + i).Visible = False
    Historique.Controls("Label" & 205 + i).Visible = False
    Historique.Controls("Label" & 305 + i).Visible = False
    Else
    End If
Next i


End Sub

[Invité]

'1.666666666667' est un nombre pris en exemple pour illustrer la fonction 'Format' !
Il faut que tu le remplaces par la valeur effective du Label (le résultats de la division comme tu le décris dans ton premier post).

Quelque chose du style:

Code :

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

Historique.Controls("Label" & 305 + i).Caption = Format(Sheets("Feuil3").Range("D" & -1 + i), "0.00")