pourcentage en VBA

[Mimi]

Bonjour à tous et à toutes,
Je vous souhaite une bonne et heureuse année 2006.
Est-il possible en VBA d'appliquer un pourcentage par rapport à la cellule sélectionnée.
Si je sélectionne la célulle H18 et que j'appuie sur mon bouton 2%, 30 € deviendrait 30,60 €.
Ceci étant que je puisse sélectionné n'importe quel celulle.
D'avance je vous remercie
Michel' [file name=Essai_20060106095157.zip size=0]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essai_20060106095157.zip[/file]

 

[Mimi]

Re
Le fichier
Michel [file name=Essai_20060106095300.zip size=15154]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essai_20060106095300.zip[/file]

 

[Abel]

Bonjour Mimi,

Ci-joint ton exemple modifié.

Dans le code, 'Selection(1)' permet de ne prendre en considération que la première cellule d'une plage.

Si tu veux pouvoir faire l'opération sur toute une plage, indique le nous.

Abel. [file name=ExempleMimi.zip size=13322]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ExempleMimi.zip[/file]

 

[Mimi]

Salut Abel,
Je te remercie, ça me convient, mais peut-tu m'expliquer (si tu as le temps) que veut dire 'selection(1)' dans le VBA
Encore merci et @ plus
Michel

 

[Abel]

Re,

'Selection' est un mot clé de VB pour Excel qui lui indique d'appliquer les méthodes et propriétés (en bref de travailler) sur la sélection en cours.

'Selection(1)' indique à Excel que si la sélection en cours contient plus d'une cellule, alors il ne faut prendre en compte que la première.

Abel.

 

[Mimi]

Re Abel,
Excuse moi encore mais je me suis trompé, je n'ajoute pas 2% mais j'enlève 2% par rapport au prix.
Encore merci
Michel

 

[Mimi]

Re
Je pense que j'ai trouvé, il suffit de diviser au lieu de multiplier.
Encore merci
Michel

 

[Abel]

Re,

Non, il faut multiplier par 0,98 au lieu de 1,02.

Exemple : 100 - (100 x 0,02)
= 100 x (1 - 0,02)
= 100 x 0,98

Abel.

 

[Mimi]

Salut Abel,
Décidément je comprendrai jamais rien au formule,
en tout cas merci beaucoup.
@ plus
Michel