Si valeur cellule sup à, alors reporte sur la colonne suivante

Question

Je cherche à établir une sorte de planning de de réservation. Une cellule ne peut pas contenir une quantité supérieure à X. Si la quantité de X est dépassée, alors la quantité ou le restant de quantité doit se reporter sur cellule voisine et ce de manière infinie, toujours à hauteur de 10. EX: Ma cellule A1 ne doit pas être supérieure à 10. Imaginons qu'elle soit déjà remplie par une qté de 5 Si je tape (dans un formulaire) 10, alors A1 doit passer à 10 et B1 à 5. Etc etc etc. Je suppose que ça passe par une macro, je ne pense pas qu'une fonction soit capable de gérer ça. Merci...

GGautier · Answer

Je pense avoir compris ta demande, mais j'ai une question technique, comment tu ajoutes des valeurs dans la colonne A si tu as déjà des valeur présentes ? Est-ce que c'est une passe que tu réalises sur toute la colonne où pour chaque cellule tu ajoutes X ? X une valeur prédéfinie ...

GGautier · Answer

Voilà (peut-être) une solution :

EDIT : j'avais oublié une partie du code

Option Explicit
Sub Ajout()
Dim BD As Worksheet
Dim Plage As Range
Dim Col As String
Dim Ajout As Long, ValeurDepart As Long, Calcul As Long, DernLig As Long, NextCel As Long
Dim Max As Integer, cpt As Integer, PremLig As Integer
Dim Cel As Object

    Set BD = ThisWorkbook.Worksheets("Feuil1")
    Col = "A"
    PremLig = 1
    DernLig = BD.Range(Col & BD.Rows.Count).End(xlUp).Row
    Set Plage = BD.Range(Col & PremLig & ":" & Col & DernLig)
    Ajout = Application.InputBox("Valeur à ajouter :", "Incrémentation", Type:=1)
    If Ajout = 0 Then Exit Sub
    Max = 10
    NextCel = 1
    For Each Cel In Plage
        ValeurDepart = BD.Range(Col & NextCel)
        cpt = 1
        Calcul = BD.Cells(NextCel, cpt) + Ajout
        BD.Cells(NextCel, 1) = Calcul
        Do While Calcul > Max
            cpt = cpt + 1
            BD.Cells(NextCel, cpt) = BD.Cells(NextCel, cpt - 1) - Max
            BD.Cells(NextCel, cpt - 1) = Max
            Calcul = BD.Cells(NextCel, cpt)
        Loop
    NextCel = NextCel + 1
    Next Cel
End Sub