Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Format de nombre (numberformat)

  • Initiateur de la discussion Initiateur de la discussion CharlesSSQ
  • 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 !

C

CharlesSSQ

Guest
Bonjour!

Voici une partie d'une macro qui prend un chiffre dans une sheet et met l'info dans une autre sheet. Les chiffres se trouvent à être sous cette forme ex: 1,47% dans excel. et lorsque la macro roule elle les place dans l'autre sheet sous cette forme 0,0147. que devrais-je mettre à numberformat pour corriger cela?

Merci beaucoup!
Charles


For i = 1 To 100
tickerrecherche = ticker(i)
Set Ligneticker = Range("A1:A10000").Find(tickerrecherche, LookIn:=xlValues, LookAt:=xlWhole)
If Not Ligneticker Is Nothing Then
frais = Ligneticker.Row
Cells(frais, 6) = valeur(i)
With Application.Workbooks(WORKBOOK_GUIDE).Sheets(SHEET_TRAVAIL_GUIDE).Cells(frais, 6)
.Value = valeur(i)
.NumberFormat = "0,00"
End With
End If
Next i
 
Re : Format de nombre (numberformat)

bonjour CharlesSSQ, bonjour le Québec,

Mets simplement le format pourcentage, soit "0.00%".
Avec "0.00", tu ne fais qu'afficher 2 décimales, mais pas au format Pourcentage.
 
Re : Format de nombre (numberformat)

allo,

voici la macro au complet, on dirait que le format se conserve du fichier source...

encore merci!!

Application.Workbooks(WORKBOOK_DATA).Activate
Sheets(SHEET_TRAVAIL_FRAIS).Select

For i = 1 To 100
ticker(i) = Cells(4, i).Value
valeur(i) = Cells(6, i).Value

Next i

Application.Workbooks(WORKBOOK_GUIDE).Activate
Sheets(SHEET_TRAVAIL_GUIDE).Select

With Range("F2:F61")
.ClearContents
.ClearFormats
End With


For i = 1 To 100
tickerrecherche = ticker(i)
Set Ligneticker = Range("A1:A10000").Find(tickerrecherche, LookIn:=xlValues, LookAt:=xlWhole)
If Not Ligneticker Is Nothing Then
frais = Ligneticker.Row
Cells(frais, 6) = valeur(i)
With Application.Workbooks(WORKBOOK_GUIDE).Sheets(SHEET_TRAVAIL_GUIDE).Cells(frais, 6)
.Value = valeur(i)
.NumberFormat = "0,00%"

End With
End If
Next i



End Sub
 
- 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

S
Réponses
4
Affichages
2 K
stage_ferrit
S
N
Réponses
17
Affichages
3 K
ninajams
N
V
Réponses
2
Affichages
2 K
vynmarius
V
J
Réponses
20
Affichages
3 K
jujudeo
J
M
Réponses
1
Affichages
858
N
  • Question Question
Réponses
5
Affichages
3 K
B
Réponses
2
Affichages
2 K
B
C
  • Question Question
Réponses
11
Affichages
1 K
G
Réponses
5
Affichages
20 K
C
Réponses
7
Affichages
1 K
CharlesSSQ
C
E
Réponses
2
Affichages
2 K
C
  • Question Question
Réponses
1
Affichages
936
C
Réponses
5
Affichages
1 K
CharlesSSQ
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…