Microsoft 365 Evénement arrondi au multiple sup

hbb

XLDnaute Occasionnel
Bonjour à tous,
Je suis à la recherche d'un code qui permettrait à la suite d'une saisie de qté dans une cellule (sur une plage donnée) d'arrondir cette quantité automatiquement à l'arrondi supérieur (suivant multiple défini en colonne B)

J'essai d'avancer à partir du code suivant mais je bloque....
Si quelqu'un a une idée, merci d'avance,
Bonne journée
hbb

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [C2:Q6]) Is Nothing Then
L = Target.Row: C = Target.Column
Qte = Cells(L, C).Value

...... ROUNDUP ????
End If
Fin:
End Sub
 

Pièces jointes

  • Evénement arrondi au multiple.xlsm
    15.7 KB · Affichages: 4

Dranreb

XLDnaute Barbatruc
Bonsoir.
En exploitant la remarque de @Katido :
VB:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim M As Long
   If Target.CountLarge > 1 Then Exit Sub
   If Not Intersect(Target, [C2:Q6]) Is Nothing Then
      M = Cells(Target.Row, "B").Value
      Application.EnableEvents = False
      Target.Value = -Int(-Target.Value / M) * M
      Application.EnableEvents = True
      End If
   End Sub

Ah ben il l'a fait je vois …
 

Discussions similaires

Réponses
2
Affichages
569