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

Excel.Deb

XLDnaute Nouveau
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)
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonjour Excel.Deb, Pierre,

Avec une feuille pour les résultats :
VB:
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
 

Fichiers joints


Haut Bas