affichage d'un chiffre

  • Initiateur de la discussion Initiateur de la discussion fredo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

F

fredo

Guest
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 & ""
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
10
Affichages
547
Réponses
4
Affichages
461
Réponses
3
Affichages
673
Réponses
5
Affichages
477
Retour