Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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)
 

Pièces jointes

  • Classeur111.xlsm
    13.4 KB · Affichages: 9

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
 

Pièces jointes

  • Classeur111(1).xlsm
    26.6 KB · Affichages: 4

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…