Pb avec récupération poucentage [Résolu]

[mep1607]

Bonjour.
Je récupère un champ qui contient un pourcentage : 31,7 %.
Je l'ai mis dans du currency.
Quand je regarde le résultat, je récupère 0,317.
J'ai essayé avec d'autres formats, c'est toujours pareil.
Après, quoi que je fasse, je n'arrive pas à retrouver mon chiffre, il est arrondi à 31%.
Je suis désolée si ma question est bête. J'y ai passé des heures et peut-être que j'ai les yeux qui se croisent à force et que je ne vois plus ce qui doit vous paraître évident.
Est-ce que quelqu'un veut bien m'aider ?
Je suis débutante et perdue.
Merci mille fois.

[defluc]

Transmets-nous le code de ta macro pour qu'on puisse t'aider

[mep1607]

Code :

1
2
3
4
5
6
7
8
9
10
Dim MargeCible As Currency
 
MargeCible = Workbooks(FichierImport).Sheets("Info. Generales").Cells(13, 15)
 
'La cellule que je récupère est en format % mais quand je regarde avec le débogueur, je récupère 0,317
 
Workbooks("BL_SOLUTIONS_TDB encours.xlsm").Sheets("Affaires en cours").Range("G" + CStr(NumLigneProjet)).Select
                Selection.Style = "Percent"
                Selection.NumberFormat = "0,0%"
                Workbooks("BL_SOLUTIONS_TDB encours.xlsm").Sheets("Affaires en cours").Range("G" + CStr(NumLigneProjet)) = MargeCible

J'ai essayé dans tous les sens avec tous les formats, ça fait pareil ...

[Qwazerty]

Salut

Je ne comprend pas ton problème, c'est un pourcentage, il est bien exprimé avec une valeur inférieur ou égale à 1.
Pour le stocker, un Double sera bien suffisant. Si ensuite tu veux retrouver ta valeur sous forme 31.7, il te suffit de multiplier par 100 le contenu de ta variable Double (0.317).

Concernant ton code
Plutôt que de sélectionner la cellule, il est préférable de seulement la pointer pour travailler avec, comme ceci

Code :

1
2
3
4
5
with Workbooks("BL_SOLUTIONS_TDB encours.xlsm").Sheets("Affaires en cours").Range("G" + CStr(NumLigneProjet))
       .Style = "Percent"
       .NumberFormat = "0,0%"
       .value = MargeCible
End With

[Edit]
J'ai testé pour comprendre voila une solution à ton problème, ton format n'est pas bon.

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub teste()
Dim MargeCible As Double
 
MargeCible = Range("A1")
 
With Range("B1")
       .Style = "Percent"
       .NumberFormat = "#,#00.0%"
       .Value = MargeCible
End With
End Sub

[/Edit]

++
Qwaz

[mep1607]

Ca fonctionne !!!
C'est super gentil, j'y ai vraiment passé des heures cet après-midi.
Merci beaucoup.
:-)