Discussion :

[Iloon]

Bonjour à tous,

J'ai une petite question, je cherche à multiplier les valeurs de deux colonnes par 100 pour les afficher en pourcentage mais sans afficher le symbole "%".

Le problème c'est que je voudrais faire cela par macro pour que, lors d'un copier/coller automatique, les formules ne me gènent pas.

Au départ, quand mon tuteur n'était pas dérangé par le symbole "%", j'avais mis les deux colonnes sous le format "0,00%" mais celui a changé d'avis et j'ai tenté de mettre mes valeurs sous le format "0,00" mais cela me coupe juste mes valeurs après deux chiffres après la virgule.

Savez-vous comment faire ?

Je vous remercie par avance,

Iloon.

[ucfoutu]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
toto = 0.1225
MsgBox Format(toto * 100, "0.00")

[Iloon]

En fait, ça se fait sur deux colonnes donc je peux pas prévoir leurs valeurs, mais je faisais déjà un calcul juste avant donc, il m'a suffit de multiplier le tout par 100 dans cette formule qui existait déjà. Je ne me souvenais plus que je faisais un calcul au préalable, ça devient plus simple d'un coup...

Pour ceux que ça intéresse ça donne ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
l = 1
 
    While Cells(l + 1, 1) <> ""
        Cells(l + 1, 6).Select
        ActiveCell.FormulaR1C1 = "=((RC[-2]/RC[-4])*100)"
        Cells(l + 1, 7).Select
        ActiveCell.FormulaR1C1 = "=((RC[-2]/RC[-4])*100)"
 
    l = l + 1
 
    Wend
 
    Columns("F:G").Select
    Selection.NumberFormat = "0.00"

Merci en tout cas,

Iloon.

[fring]

La même sans ces satanés "Select"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
l = 1
 
    While Cells(l + 1, 1) <> ""
        Cells(l + 1, 6).FormulaR1C1 = "=((RC[-2]/RC[-4])*100)"
        Cells(l + 1, 7).FormulaR1C1 = "=((RC[-2]/RC[-4])*100)"
 
    l = l + 1
 
    Wend
 
    Columns("F:G").NumberFormat = "0.00"