Discussion :

[Thomas2412]

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 :

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

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

[Pierre Fauconnier]

Bonjour et bienvenue

Code :

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

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

[Thomas2412]

Merci à vous Pierre.

Cela me convient tout à fait.

Bonne soirée.