Pb de débutant VBA Excel

Bonjour,

Novice en programmation, je ne parviens pas créer une macro qui me permet tout simplement d'appliquer un coefficient multiplicateur à une sélection de cellules effectuée à la souris (important de dire que c'est à la souris, car cette sélection est très variable d'un tableau à l'autre).

sur une cellule le programme suivant fonctionne :

Code:

---

1 2 3 4 5

Sub FR() ActiveSheet.Select ActiveCell.Select ActiveCell.FormulaR1C1 = ActiveCell * 1.09288285 End Sub

---

Ce que je ne parviens pas à mettre en VBA, c'est donc d'une part de définir la plage de cellules sélectionnées à la souris et d'autre part l'application du coefficient multiplicateur à toutes les cellules de cette plage.

Un grand merci pour l'aide que vous pourrez m'apporter.

Thomas

Bonjour et bienvenue

Code:

---

1 2 3 4 5 6 7 8 9

Sub Coeeficient() Dim Cellule As Range Dim Coef As Variant   Coef = 1.1 For Each Cellule In Selection Cellule.Value = Cellule.Value * Coef Next Cellule End Sub

---

Je ne sais pas si tu passes par vba par nécessité ou parce que tu ne sais pas comment faire via Excel... Dans le deuxième cas, il y a la solution de saisir le coefficient dans une cellule, de la copier, de sélectionner la plage désirée, puis collage spécial/Multiplication

Merci à vous Pierre.

Cela me convient tout à fait.

Bonne soirée.