Discussion :

[Liloo14]

Bonjour à tous,
Voilà mon code

Code :

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

1
2
3
4
5
6
7
8
For i = 2 To 101
    Historique.Controls("Label" & 305 + i) = Sheets("Feuil3").Range("D" & -1 + i)
If Historique.Controls("Label" & 305 + i).Caption = 20 Or 19 Or 18 Or 17 Or 16 Or 15 Or 14 Or 13 Or 12 Or 11 Or 10 Or 9 Or 8 Or 7 Or 6 Or 5 Or 4 Or 3 Or 2 Or 1 Or 0 Then
    Historique.Controls("Label" & 305 + i).Caption = Format(Sheets("Feuil3").Range("D" & -1 + i), "0")
Else
    Historique.Controls("Label" & 305 + i).Caption = Format(Sheets("Feuil3").Range("D" & -1 + i), "0.00")
End If
Next i

Comme vous pouvez le voir, j'ai des labels qui reçoivent des notes sur 20.
En ligne 3 j'ai définis toutes les notes qui n'ont que des zéro après la virgule pour qu'elles s'affichent dans un format sans virgule.
Après le ELSE j'ai donc définis que celles qui ont autre chose que des zéro après la virgule s'affiche normalement.

Probleme, cela ne fonctionne pas.
Tous les chiffres s'affichent sans la virgule et les décimales derriere.

Normalement en ligne 3 je devrais définir non pas les chiffre entier comme 20 par exemple mais comme 20,00.
Le soucis est que si en ligne 3 j'écris 20,00, le code se transforme en 20#.

Quelqu'un aurait-il une idée du pourquoi du comment ?

Merci par avance à ceux qui se pencheront sur mon bleme.
Laurent

[jfontaine]

Bonjour,

pour le test des entiers, cela ne s'écrit pas comme cela

Code :

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

If Historique.Controls("Label" & 305 + i).Caption = 20 Or Historique.Controls("Label" & 305 + i).Caption = 19 Or Historique.Controls("Label" & 305 + i).Caption = 18 ...

Exemple simple testant si la note est à décimales

Code :

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

1
2
3
4
5
6
7
8
9
Dim dblNote As Double
 
dblNote = 18
 
If dblNote - Int(dblNote) > 0 Then
    MsgBox Format(dblNote, "0.00")
Else
    dblNote
End If

[Liloo14]

Merci à toi Jérôme, je ne la connaissais pas celle-là.
Ca marche impec.
Merci encore