affichage d'un chiffre

[fredo]

bonjour, c'est re re remoi!!!

bon dans mes nouvelles aventures, j'ai fait une petite macro qui me calcule un pourcentage.
Quand j'effectue la macro pas a pas je me rends compte que ma variable pourcentage prend la bonne valeur, donc je decide de l'ecrire dans une cellule mais si la variable a pour valeur 86,66 he bien elle va ecrire 866 666 666,00 ce qui n'est pas tout a fait la meme chose.
peut etre que ma commande d'ecriture n'est pas corecte en tout ca sj'ai essayé de changer le format de la cellule dans laquelle j'ecris, ça n a pas marché....

voici le code, merci d'avance

pplication.CutCopyMode = False
Workbooks("Feuille de calcul dans Basis (1)").Sheets("Feuil1").Cells. _
AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Critère").Range _
("E10:F11"), CopyToRange:=Sheets("liste").Range("Z1"), Unique:=False
Sheets("liste").Select
Columns("Z:Z").Select
Dim compteur1
compteur1 = 0
For Each c In Selection
If c.Value <> "" Then
compteur1 = compteur1 + 1
End If
Next c
compteur1 = compteur1 - 1
Sheets("liste").Select
Columns("S:S").Select
Dim compteur2
compteur2 = 0
For Each c In Selection
If c.Value = (Date - 1) Then
compteur2 = compteur2 + 1
End If
Next c
Dim pourcentage
pourcentage = 0
Sheets("graph").Select
pourcentage = ((compteur1 - compteur2) / (compteur1)) * 100
Range("H2") = "" & pourcentage & ""

 

[G.David]

Salut
Mathematiquement on obtient un pourcentage A/B*100
ce qui donne 86%
execl pour afficher 86% doit avoir la cellule au format % et la valeur =0,86
c'est peut etre ce qui plante ton résultat avec la precision affiché par VBA si tu multiplies par 100 tu as 8600%

G.David