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

  • Initiateur de la discussion Initiateur de la discussion Excel.Deb
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour