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 & ""