format de nombre

[CharlesSSQ]

Bonjour,

Dans une colonne d'excel de ma trouve à avoir tout mais frais de gestion en %, le format de nombre est toutefois "texte" donc standard dans excel. mais frais sont écrit de la façon suivante: 1,65% par exemple. Je me demande s'il y a une façon rapide de simplement enlever le signe de % et n'avoir que 1,65.

j'ai essayé le .numberformat = "0,00" mais cela ne donne rien

Merci
Charles

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).Text

Next i

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

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

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

End With
End If
Next i


End Sub

 

[Guest]

Re : format de nombre

Bonsoir,

Pas sûr d'avoir tout compris mais tu peux créer une colonne provisoire, par exemple si les taux sont en colonne A sous forme de texte ('1,65%)

B1=A1*100

Formule à tirer vers le bas.
Puis tu sélectionne ta colonne
Copier
CollageSpécial/Valeurs sur elle même
Suppression de la colonne A

A+

 

[CharlesSSQ]

Re : format de nombre

oui merci,

Mais ce que je veux c'est savoir s'il y aurait une modification possible à cetet macro pour que lors de l'importation des données le symbole de pourcentage ne suive pas.

Car en ce moment je copy des rendements incrient comme suit : 1,65% mais je voudrais que seulement 1,65 apparaissent.

bref être capable de modifier la macro pour que % parte

merci
Charles

 

[pierrejean]

Re : format de nombre

bonjour a tous

En supposant ta variable a adapter nommée Var
apres l'avoir remplie mettre

Var = Replace(Var, "%", "") * 1

 

[Guest]

Re : format de nombre

Bonjour,

Hello Pierre-Jean

Si je ne me trompe pas:

C'est la ligne

Cells(frais, 6) = valeurratio

qu'il faut remplacer par

Cells(frais, 6) = Evaluate(valeurratio) *100

Mais comme qui dirait: sans fichier exemple......

A+
A++Pierre-Jean

Edition: ou pour employer la formule de Pierre-Jean

Cells(frais, 6) = Replace(valeurratio, "%", "") * 1

C'est au choix.

 

[CharlesSSQ]

Re : format de nombre

parfait merci!

 

[CharlesSSQ]

Re : format de nombre

Je fais principalement la même démarche pour la date qui est relié avec les frais. Et j'obtiens un bogue lorsque la date est entre 01 et 09, le format de date plante et le chiffre relié à la date apparait dans excel ex: 41167. Donc j'essaie de faire la même chose que plus haut mais sans résultat. dois-je inclure un "Else: GoTo.... "

Merci

For i = 3 To 94
tickerrecherche = ticker(i)
valeurticker = valeur(i)
Set Ligneticker = Range("A1:A10000").Find(tickerrecherche, LookIn:=xlValues, LookAt:=xlWhole)
If Not Ligneticker Is Nothing Then
Dcreation = Ligneticker.Row
Cells(Dcreation, 7) = valeurticker
If valeurticker = "0d-mm-yyyy" Then
valeurticker = Replace(valeurticker, "dd-mm-yyyy", "d-mm-yyyy") * 1
With Application.Workbooks(WORKBOOK_GUIDE).Sheets(SHEET_TRAVAIL_GUIDE).Cells(Dcreation, 7)
.Value = valeurticker
.NumberFormat = ""

End With
End If
Next i



End Sub

 

[Guest]

Re : format de nombre

re,

.NumberFormat = "dd-mm-yyyy"

A+

 

[CharlesSSQ]

Re : format de nombre

oui merci mais ça me dit Next sans For

lorsque je fais cette macro...

merci énormément

 

[Guest]

Re : format de nombre

Re,

C'est difficile de travailler sur des bouts de macro dont on ne connait ni les tenants ni les aboutissants, mais apparement il manque un End If avant la fin de ta boucle:

For i = 3 To 94
tickerrecherche = ticker(i)
valeurticker = valeur(i)
Set Ligneticker = Range("A1:A10000").Find(tickerrecherche, LookIn:=xlValues, LookAt:=xlWhole)
If Not Ligneticker Is Nothing Then
Dcreation = Ligneticker.Row
Cells(Dcreation, 7) = valeurticker
If valeurticker = "0d-mm-yyyy" Then
valeurticker = Replace(valeurticker, "dd-mm-yyyy", "d-mm-yyyy") * 1
With Application.Workbooks(WORKBOOK_GUIDE).Sheets(SHEET _TRAVAIL_GUIDE).Cells(Dcreation, 7)
.Value = valeurticker
.NumberFormat = ""
 
End With
[B][SIZE=3][COLOR=red]End If[/COLOR][/SIZE][/B]
End If
Next i

A+

 

[CharlesSSQ]

Re : format de nombre

WOW parfait merci!

Mais en passant comment faites vous pour inclure des pièce jointe et des zone de code comme vous faites dans vos réponses

Merci

 

[Guest]

Re : format de nombre

Bonjour,

tout d'abord dans ton tableau de bord (lien sur la barre bleue en haut à gauche) dans la section 'Paramètes et options' dans 'Options diverses' (en bas de la page), vérifier que l'option 'Interface des messages' est sur Editeur WYSIWYG.

Ensuite quand tu veux répondre à un post, clique sur le bouton Ajouter une réponse. Et dans l'éditeur de message il y aura une barre d'outils disponible. Le bouton de la balise 'Code' est représenté par un '#'(dièse)

Sinon tu as une partie du forum consacrée à son utilisation ICI

A+