Microsoft 365 Evénement arrondi au multiple sup

[hbb]

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

 

[Katido]

Bonjour,
Je ne sais pas si ça répond à la question, mais en VBA :
l'arrondi à l'entier inférieur se fait par Int(valeur)
l'arrondi à l'entier supérieur se fait par -Int(-valeur)

 

[Phil69970]

Bonjour à tous

@hbb

Je te propose ce fichier

Merci de ton retour

 

[Katido]

Ton fichier modifié

 

[Dranreb]

Bonsoir.
En exploitant la remarque de @Katido :

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 …

 

[Katido]

@Dranreb,
Je vois que toi aussi tu as corrigé le CountLarge

 

[hbb]

Bonsoir,
Merci beaucoup Phil69970, Katido et Dranreb pour vos solutions !!!
Reste à faire un choix maintenant

Bonne soirée,
A bientôt,
hbb