Microsoft 365 Appliquer un coefficient sur une plage de cellules

Carine13c à dit:

Bonjour
Je souhaite appliquer un coefficient dans un tableur avec des prix qui va, par exemple de b17 à p26.
Le coefficient lui serait dans une cellule fixe, mais il serait à changer tout les mois, je souhaiterai connaitre le moyen de l'appliquer à toute la section B17 : p26, sans passer par une formule, ni un collage spécial, je suppose qu'une macro serait le plus adapté, mais je ne sais absolument comment la mettre en place

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim C As Range
  If Target.Address = "$A$1" And IsNumeric(Target) Then
    For Each C In [B17:P26]
      C = C * Target
    Next C
  End If
End Sub

xUpsilon à dit:

Bonjour,

Un fichier exemple anonymisé est toujours le bienvenu en tant que base de travail.

Bonne journée,

Cliquez pour agrandir...

danielco à dit:

Bonjour,
Avec le coefficient en A1 :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim C As Range
  If Target.Address = "$A$1" And IsNumeric(Target) Then
    For Each C In [B17:P26]
      C = C * Target
    Next C
  End If
End Sub

Pour l'installer, fais un clic droit sur l'onglet de la feuille et clique sur "Visualiser le code3. Colle le code dans la partie droite de la fenêtre qui s'ouvre. Ferme cette fenêtre et enregistre le classeur avec le type "Classeur Excel prenant en charge les macros"
Daniel

Cliquez pour agrandir...

cp4 à dit:

Bonjour @Carine13c , @xUpsilon , @danielco ,

@Carine13c : une manipulation sous excel (voir démo). Mettre le coefficient dans une cellule, faire une copier de cette cellule; ensuite sélectionner la plage, puis collage spécial et choisir multiplier et enfin ok
Regarde la pièce jointe 1154722
Bonne journée.

Cliquez pour agrandir...

Carine13c à dit:

Bonjour
Je vous remercie pour votre temps, mais j'ai tenté cette option, mais ce n'est pas adapté à mon besoin, car les données d'origine qui permettent la base de calcul doivent être tjs les même, il n'y a que le coefficient qui changera tous les mois

Cliquez pour agrandir...

Carine13c à dit:

Bonjour
Je vous remercie pour votre temps, mais j'ai tenté cette option, mais ce n'est pas adapté à mon besoin, car les données d'origine qui permettent la base de calcul doivent être tjs les même, il n'y a que le coefficient qui changera tous les mois

Cliquez pour agrandir...

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$11" Then
        Call appliquer_coefficient
    End If
End Sub

Option Explicit

Sub appliquer_coefficient()
   Dim tb, Coeff As Range, i As Integer, j As Integer
   Set Coeff = ActiveSheet.Range("A11")
   tb = ActiveSheet.Range("A5").CurrentRegion
   For i = 1 To UBound(tb, 1)
      For j = 1 To UBound(tb, 2)
         tb(i, j) = tb(i, j) * Coeff
      Next j
   Next i
   ActiveSheet.Range("A13").Resize(UBound(tb), UBound(tb, 2)) = tb
   ActiveSheet.Range("A13").CurrentRegion.NumberFormat = "0.00"
Set Coeff = Nothing
End Sub

Carine13c à dit:

Merci pour votre retour
Voici l'exemple

Cliquez pour agrandir...