XL 2016 Saisie d'une valeur à l'aide de inputtext pour obtenir des valeurs brutes

[Excel.Deb]

Bonjour tout le monde,
je dispose d'un tableau qui contient le planning des articles de production par semaine,ainsi que les quantités nets des articles par jour .
je voudrais réaliser une macro qui nous permet d'obtenir des valeurs pondérées par un coefficient que l'on fait entrer par le biais d'un input text,par exemple si on saisie 1,5 toutes les valeurs comprises entre les colonnes C et H seront multipliées par 1,5(valeurs brutes)

 

[pierrejean]

Bonjour Excel.Deb

Un essai

 

[job75]

Bonjour Excel.Deb, Pierre,

Avec une feuille pour les résultats :

Sub xCoef()
Dim n As Variant, c As Range
n = InputBox("Entrez le coefficient multiplicateur :")
If n = "" Then Exit Sub
n = Val(Replace(n, ",", "."))
Application.ScreenUpdating = False
With Sheets("xCoef")
    .Cells.Delete 'RAZ
    Sheets("Tableau_pdp").UsedRange.Copy .[A1]
    On Error Resume Next 'si aucune SpecialCell
    For Each c In .[C:H].SpecialCells(xlCellTypeConstants, 1)
        c = c * n
    Next
    .Activate 'facultatif
End With
End Sub

 

[Excel.Deb]

Merci pierre et Job75...les deux codes fonctionnent à merveille!!