Bonjour à tous,
Voilà mon code
Comme vous pouvez le voir, j'ai des labels qui reçoivent des notes sur 20.
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
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
Partager